autovad中快速画球标

tgliu

各位，
我们通常要画装配图时要画球标，但是和autoCAD来画太麻烦，
与用其他外挂又要诸多条件，
本人写了一个程式，很实用，
把下面代码粘贴到记事本，然后另存为qb.lsp文年，然后再在autocad中加载，
然后在autocad命令行中键入QB即可
此引线箭头样式可在标注样式中修改。
下面是原代码：
(defun c:qb()
(prompt "\n******画球标<CB>******")
(setq n 1)
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq la (getvar "clayer"))
(setq lay (tblsearch "layer" "DIM"))
(if (null lay)
(command "layer" "N" "DIM" "c" "GREEN" "DIM" "l" "CONTINUOUS" "DIM" "lw" "0.13" "DIM" "")
)
(setq pt (getpoint "\n起点:"))
(while pt
(setq pt1 (getpoint pt "\n下一点:"))
(setq str (strcat "\n请输入编号<" (rtos n) ">:" ))
(setq st (getint str))
(if (null st)
    (setq st n)
    (setq n st)
)
(setq h1 (getvar "dimtxt"))
(setq ss (getvar "dimscale"))
(setq hh (* h1 ss))
(setq ang (angle pt pt1))
(if (< ang (/ pi 2)) (setq a 0))
(if (> ang (/ pi 2)) (setq a pi))
(if (> ang (* pi 1.5)) (setq a 0))
(setq pt2 (polar pt1 a (* 2 hh)))
(setq la (getvar "clayer"))
(setvar "clayer" "DIM")
(setvar "osmode" 0)
(command "leader" pt pt1 pt2 "" "" "n")
(setq pt3 (polar pt1 a hh))
(setq pts (polar pt3 (/ pi 2) (+ 0.5 hh)))
(command "circle" pts hh)
(command "text" "j" "mc" pts hh "" st )
(setq n (+ n 1))
(setvar "osmode" 39)
(setq pt (getpoint "\n起点:"))
)
(setvar "clayer" la)
(setvar "osmode" os)
(prompt "\n******画球标******")
(prin1)
)
请各位试用
f:\qb.jpg

801215