xchrimp
发表于 2009-7-23 15:14:00
xchrimp
发表于 2009-7-23 15:21:00
淮上
发表于 2009-7-23 20:01:00
<p>(defun nssget (msg filt fun / ss)<br/> (if fun<br/> (while (progn (princ msg) (not ss))<br/> (if filt<br/> (setq ss (ssget ":S" filt))<br/> (setq ss (ssget ":S"))<br/> ) <br/> (mapcar fun (ss->lst ss))<br/> )<br/> )<br/>)</p><p>;; 返回选择集的图元表<br/>(defun ss->lst (ss / enamep)<br/> (setq enameP '(lambda (x) (= (type x) 'ename)))<br/> (vl-remove-if-not enameP (mapcar 'cadr (ssnamex ss)))<br/>)</p><p><br/>;;;;(nssget "\n选择需要定距的尺寸" '((0 . "DIMENSION")) '(lambda (x) (alert "a")))</p>
xchrimp
发表于 2009-7-24 08:41:00
狂刀无痕
发表于 2009-7-24 14:18:00
<p>用了我的代码记得注我的名，要不下次不帮了</p><p>(defun c:tt (/ ss)<br/> (while (if (not(setq ss (ssget ":s"))) (= 0 (getvar "errno")))<br/> (princ "\n 练好基本功！路都走不好就别老想着跑")<br/> )<br/> ss<br/>)</p>
xchrimp
发表于 2009-7-24 14:32:00
xchrimp
发表于 2009-7-24 14:39:00
xchrimp
发表于 2009-7-24 20:43:00
狂刀无痕
发表于 2009-7-24 20:46:00
你先看看cad帮助while的用法在来问
xchrimp
发表于 2009-7-25 15:56:00