dinosaurhxe 发表于 2007-10-3 21:35:00

请教：如何用LISP得到多段线的长度？

<p>以前似乎看过类似的贴子，但想找却找不到了，感谢指点！祝大家节日快乐！</p>

alin 发表于 2007-10-3 22:40:00

vla-get-length

jdhszh 发表于 2007-10-6 10:30:00

<table id="AutoNumber2" height="1" cellspacing="1" width="593" align="left" border="0"><tbody><tr><td width="665" colspan="2" height="9"><p>斑竹好象<font color="#ffffff"><font style="BACKGROUND-COLOR: #316ac5;">vla-<font size="3">get-Length是这样说的</font></font></font></p><p>(<font color="#ffffff" style="BACKGROUND-COLOR: #316ac5;">vla-</font><font size="3"><font color="#ffffff" style="BACKGROUND-COLOR: #316ac5;">get-Length</font>
                                                </font>Object)</p></td></tr><tr><td width="53" height="1"></td><td width="271" height="1"><font size="3">Object </font></td><td width="394" height="1"><font size="3"><a href="mk:@MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Line%20对象.htm">Line</a>
                                        </font></td></tr><tr><td width="53" height="1"></td><td width="271" height="1"></td><td width="394" height="1"><font size="3">这个属性适用的对象。</font></td></tr><tr><td width="53" height="1"></td><td width="271" height="1"><font color="#ffffff" size="3" style="BACKGROUND-COLOR: #316ac5;">Length</font></td><td width="394" height="1"><font size="3">双精度；只读</font></td></tr><tr><td width="53" height="1"></td><td width="271" height="1"></td><td width="394" height="1"><font size="3">线的长度。</font></td></tr></tbody></table>

psufngah 发表于 2007-10-6 14:23:00

(vl-load-com)<br/>(setq e (car (entsel)))<br/>(setq f (vlax-ename-&gt;vla-object e))<br/>(vla-get-Length f)

hbshyjch 发表于 2007-10-6 18:22:00

<p>谢谢</p><p>试一下</p>

Student 发表于 2007-10-6 19:24:00

<p>;返回直线、多段线的长度<br/>;供参考<br/>;</p><p>(defun get_length(/ ent obj pt)<br/>&nbsp;(setq ent(car(entsel "\n选择一条线:")))<br/>&nbsp;(setq obj(vlax-ename-&gt;vla-object ent))<br/>&nbsp;(setq pt(vlax-curve-getEndPoint obj))<br/>&nbsp;(vlax-curve-getDistAtPoint obj pt)<br/>)<br/>;<br/></p>

dinosaurhxe 发表于 2007-10-6 22:46:00

<p>这是VB的内容吗？</p><p>俺LISP学得较浅。</p>

lianheai 发表于 2010-2-8 16:11:00

去试试~

xiaofengwang 发表于 2010-9-28 10:25:00

谢谢，刚好用到了！

糊涂医生 发表于 2013-6-27 23:23:45

地板写的相当好，谢谢，解决我的问题了
页: [1] 2
查看完整版本: 请教：如何用LISP得到多段线的长度？