qxz 发表于 2008-8-5 21:49:00
<p>受益匪浅</p>jaminth 发表于 2008-8-5 22:03:00
还是10楼方法比较方便!jaminth 发表于 2008-8-5 22:22:00
(defun C:tt(/ pt)<br/> (command "circle" (setq pt (getpoint "\n请输入园心:")) pause)<br/> (command "_.cutclip" (entlast) "")<br/> (command "_.pasteclip" pause)<br/> (princ)<br/> )
页:
1
[2]