CAD泡式标注程序.docVIP

(defun C:BALLOON (/ tmp ts th nh ip sp ali le errexit bx acadver LBLOCK BLAYER TEXTGAP CHARWIDTH BWIDTH) (setq LBLOCK T) ;“气泡”创建为块，除非这里LBLOCK设为nil (setq BLAYER sdim) ;放置“气泡”的图层：XXXX=放置在层XXXX，nil=使用当前层 (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