使用方法:先把下面的代码复制,再打开CAD,工具-AutoLIST-VISUAL LISP编辑器-新建-粘贴-保存-退出
再之就工具-AutoLIST-加载应用程序,找到你保存的那个东东,加载,关闭退出,输入ZBBZ就可以啦!!!!!
-
(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)
-
- )