chupj 发表于 2008-7-1 11:54:00

[求助]在线等。。。。急

<p>(defun c:bb ()<br/>(vl-load-com)<br/>(setq a (vla-get-length <br/>(vlax-ename-&gt;vla-object (car (entsel)))) )</p><p>(if (/= a nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;<font color="#ee1196">&nbsp;怎么让他循环？就是一直求线段长度？</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>)<br/></p>

caoyin 发表于 2008-7-1 12:05:00

(defun c:bb (/ e a)<br/>&nbsp; (vl-load-com)<br/>&nbsp; (while (setq e (car (entsel)))<br/>&nbsp;&nbsp;&nbsp; (princ&nbsp; (vla-get-length (vlax-ename-&gt;vla-object e)))<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)

chupj 发表于 2008-7-1 16:37:00

<p>每次都会出现“选择对象:”</p><p>怎么将这几个字取消？</p><p>粘贴在EXCEl里有要处理这几个字</p><p>要怎么弄才会只显示数字</p><p></p>

caoyin 发表于 2008-7-1 17:27:00

(entsel)改成(entsel "")

chupj 发表于 2008-7-1 17:53:00

<p>(entsel)改成(entsel "\n")</p><p>加个换行符更加完美</p>

chupj 发表于 2008-7-1 17:53:00

谢谢了
页: [1]
查看完整版本: [求助]在线等。。。。急