使用方法：先把下面的代碼復制,再打開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)
-
- )
相關文章
- 2015-10-27LZB南昌帝都足道完整施工圖CAD圖紙下載
- 2013-04-13GGD型交流低壓配電柜總裝配CAD圖紙
- 2012-04-06橋梁樁位坐標計算程序5.6綠色版
- 2012-01-29Acme CAD Converter(CAD版本轉換器) V8.0簡體中文版下
- 2011-12-13N-TGD高效鋼絲膠帶斗式提升機詳圖
- 2011-09-27CAD坐標標注小工具中文綠色版
- 2011-04-14TGD630斗式提升機全套圖77張
- 2011-04-13N-TGD630鋼絲膠帶斗式提升機詳圖
- 2011-03-10N-TGD315斗式提升機
- 2011-03-10N-TGD400 71m斗式提升機