CAD氣泡式標(biāo)注程序.doc

(defun C:BALLOON (/ tmp ts th nh ip sp ali le errexit bx acadver LBLOCK BLAYER TEXTGAP CHARWIDTH BWIDTH) (setq LBLOCK T) ;“氣泡”創(chuàng)建為塊，除非這里L(fēng)BLOCK設(shè)為nil (setq BLAYER sdim) ;放置“氣泡”的圖層：XXXX=放置在層XXXX，nil=使用當(dāng)前層 (setq TEXTGAP 0.8) ;希望的文本和“氣泡”的間距（1單位=尺寸文本高） (setq CHARWIDTH 1.0) ;1個單位高字符的平均寬度（僅用于R11） (setq BWIDTH 0.04) ;“氣泡”線寬：nil=無寬度（1單位=尺寸文本高，如果氣泡是橢圓，無效，且在R13中PELLIPSE=0） (setq acadver (read (substr (getvar ACADVER) 1 2) (if (/= (type acadver) INT) (setq acadver 0) (defun errexit (s) (princ n錯誤： ) (princ s) (restore) ) (defun bx () (if le (entdel le) (setvar CMDECHO (car oldvar) (setvar BLIPMODE (cadr oldvar) (setvar OSMODE (nth 2 oldvar) (setvar CLAYER (nth 3 oldvar) (setvar DONUTID (nth 4 oldvar) (setvar DONUTOD (nth 5 oldvar) (setq *error* olderr) (princ) ) ;Main Program (setq T (not nil) (setq olderr *error* restore bx *error* errexit ) (setq oldvar (list (getvar CMDECHO) (getvar BLIPMODE) (getvar OSMODE) (getvar CLAYER) (getvar DONUTID) (getvar DONUTOD) ) ) (setvar CMDECHO 0) (setvar BLIPMODE 0) (setvar OSMODE 0) (terpri) (if (= acadver 11) ;是R11嗎？ (defun textbox (elist) ;如果是，定義一個定制的文本框函數(shù) (list (0 0 0) (list (* (strlen (cdr (assoc 1 elist) (cdr (assoc 40 elist) CHARWIDTH) (cdr (assoc 40 elist) 0 ) ) ) ) (if (= 0 (setq th (cdr (assoc 40 (tblsearch style (getvar textstyle) ) ) (setq nh (setq th (* (getvar DIMTXT) (getvar DIMSCALE) (setq nh nil) ) (if BLAYER (command ._LAYER (if (tblsearch LAYER BLAYER) _S _M) BLAYER ) ) (if (setq ip (setq sp (getpoint 拾取旁注線起點： ) (progn (entmake (list (0 . POINT) (cons 10 (trans sp 1 0) (setq le (entlast) (command ._DIM1 _LEADER) (setvar CMDECHO 1) (command sp) (while (progn (initget 128) (setq sp (getpoint sp) ) (command sp) ) (setvar CMDECHO 0) (command) (setq sp (trans (cdr (assoc 11 (entget (entlast) 0 1) (setq ali (angle (trans (cdr (assoc 10 (entget (entlast) 0 1) sp) (setq tmp (getstring T 鍵入文本： ) (setq ts (textbox (list (cons 1 tmp) (cons 40 th) (setq ts (list (+ (- (car (cadr ts) (car (car ts) (* 2 TEXTGAP th) (* 3 TEXTGAP th) ) ) (command ._TEXT _M (polar sp ali (* 0.5 (if (= (strlen tmp) 2) (cadr ts) (car ts) ) ) (if nh (command th) (command (if (= (strlen tmp) 2) 0 (rtd (if (and ( ali (/ pi 2) (+ ali pi) ali ) ) ) tmp ) (if (= (strlen tmp) 2) (command ._DONUT (cadr ts) (cadr ts) (polar sp ali (* 0.5 (if (= (strlen tmp) 2) (cadr ts) (car ts) ) ) (command ._ELLIPSE sp (polar sp ali (if ( BWIDTH 0) (not (and (= acadver 13) (zerop (getvar PELLIPSE) ( (strlen tmp) 2) ) (command ._PEDIT (entlast) W (* th BWIDTH) X) ) (if LBLOCK (progn (entmake (list (cons 0 BLOCK) (cons 2 *U) (cons 70 1) (cons 10 ip) ) (setq th (setq tmp le) (while (setq tmp (entnext tmp) (entmake (entget tmp) ) (setq tmp (entmake (list (cons 0 ENDBLK) (wh