894560869 发表于 2010-4-16 16:41:00

请解决程序中选择两次为一次

<p>请解决程序中选择两次为一次</p><p>(defun DD()</p><p>(command "DIMDIAMETER" PAUSE PAUSE&nbsp; )<br/>(command&nbsp; "dim1" "new" "%%C&lt;&gt;{}{}" (ENTLAST) "" )）</p><p>(defun DR()</p><p>(command "dimradius" PAUSE PAUSE&nbsp; )<br/>(command&nbsp; "dim1" "new" "%%C&lt;&gt;{}{}" (ENTLAST) "" )）</p><p>(defun c:DAA (/ e1) ; 圆或圆弧标注<br/>(setvar "cmdecho" 0) (setvar "pickbox" 25)<br/>(if (not (tblsearch "layer" "7标注层")) <br/>(command "-layer" "n" "7标注层" "c" "4""7标注层"""));endif<br/>(command "layer" "s" "7标注层" "" )<br/>(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR") <br/>(setq e1 (entget (car (entsel "选择圆或圆弧：")))) <br/>(if (= (cdr (assoc 0 e1)) "ARC") <br/>(DR)) <br/>(if (= (cdr (assoc 0 e1)) "CIRCLE") <br/>(DD)) <br/>(princ)) <br/></p>

ZZXXQQ 发表于 2010-4-17 17:45:00

<p>(defun DD (ss)<br/>(command "DIMDIAMETER" ss PAUSE)<br/>(command&nbsp; "dim1" "new" "%%C&lt;&gt;{}{}" (ENTLAST) "")<br/>)</p><p>(defun DR (ss)<br/>(command "dimradius" ss PAUSE)<br/>(command&nbsp; "dim1" "new" "%%C&lt;&gt;{}{}" (ENTLAST) "")<br/>)</p><p>(defun c:DAA (/ e1) ;圆或圆弧标注<br/>(setvar "cmdecho" 0) (setvar "pickbox" 25)<br/>(if (not (tblsearch "layer" "7标注层"))<br/>(command "-layer" "n" "7标注层" "c" "4""7标注层"""));endif<br/>(command "layer" "s" "7标注层" "")<br/>(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR")<br/>(setq e1 (entget (car (setq s1 (entsel "选择圆或圆弧：")))))<br/>(if (= (cdr (assoc 0 e1)) "ARC") (DR s1))<br/>(if (= (cdr (assoc 0 e1)) "CIRCLE") (DD s1))<br/>(princ)<br/>)<br/></p>

894560869 发表于 2010-7-26 13:00:00

<p>感谢</p>
<p>&nbsp;</p>
页: [1]
查看完整版本: 请解决程序中选择两次为一次