作业帮 > 综合 > 作业

cad中,确定一个0,0坐标.怎么标注A,B.如何进行x,y标准.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 11:27:35
cad中,确定一个0,0坐标.怎么标注A,B.如何进行x,y标准.
加载坐标标注lisp,复制下面一段代码:
(defun C:zbbz( / zb gd cld osm )
(setq osm (getvar"osmode"))
(setvar "osmode" 33)
(setq gd (getreal "指定标注文字高度:>"))
(if (= gd nil) (setq gd 0.5))
(while (setq zb (getpoint "指定坐标点:"))
(setq cld(getpoint zb "指定文字插入点:"))
(entmake (list
'(0 ."LINE")
'(67 .0)
'(8 ."0")
(list 10 (car zb) (cadr zb) 0)
(list 11 (car cld) (cadr cld) 0)
'(210 0.0 0.0 1.0)
)
)
(entmake (list
'(0 ."text")
(list 10 (+ (car cld) gd) (car(cdr cld)) )
(cons 40 gd)
(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))
'(50 .0)
)
)
(entmake (list
'(0 ."text")
(list 10 (+ (car cld) gd)
(- (car(cdr cld)) (+ gd (/ gd 3)) )
)
(cons 40 gd)
(cons 1 (strcat "Y="(rtos (car zb) 2 3)))
'(50 .0)
)
)
)
(setvar "osmode" osm)
(princ)
)
复制上面一段代码到记事本中,另存为.lisp的文件(文件名随意)
在CAD里加载该lisp即可
命令:zbbz
再问: 怎么加载不进去啊!cad不认!
再答: 看样子你是生手 打开CAD,工具-自定义-界面-lisp文件(右键点击),加载lisp文件,找到你存放的文件,确定