cad中,确定一个0,0坐标.怎么标注A,B.如何进行x,y标准.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/26 03:20:31
cad中,确定一个0,0坐标.怎么标注A,B.如何进行x,y标准.
cad中,确定一个0,0坐标.怎么标注A,B.如何进行x,y标准.
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
在工具栏里选标注 - 坐标
只能做文字输入