lisp调用dcl单选框_晓东CAD家园-论坛-A/VLISP-[求助]：请问如何实现点击dcl对话框中按钮执行lisp程序!-请问如何实现点击dcl对话框中按钮执行lisp程序!我想把积累的lisp...

似水无痕 ,你好,你能帮我写个范例吗?因本人愚昧,很喜欢这个.

代码:加宽直线(defun c:lw()

(progn(write-line"\n 选择实体：")

(setq selet (ssget))

)

(setq pw (getreal "\n输入线宽："))

(setq n 0)

(if(/= selet nil)

(repeat(sslength selet)

(setq entname(ssname selet n))

(setq ent (entget entname))

(setq name (cdr(assoc 0 ent)))

(if(or(= name "LINE")(= name "ARC"))

(command"pedit"entname"y""w" pw \r)

)

(if(= name "LWPOLYLINE")

(command "pedit" entname "w" pw \r)

)

(setq n (1+ n))

)

)

(princ)

)

弧长标注

(defun C:hu (/ obj sel el e r ang angs ange larc pnt multi)

(setvar "CMDECHO" 0)

(setq multi (getvar 'dimlfac));;;add 2002.5.15 can remove

(setq