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

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

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

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

vla-get-length

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

斑竹好象vla-get-Length是这样说的 (vla-get-Length Object)
	Object	MSITStore:C:/cbz242/VBA%20鍑芥暟璇存槑.chm::/Line%20对象.htm">Line
		这个属性适用的对象。
	Length	双精度；只读
		线的长度。

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

(vl-load-com)
(setq e (car (entsel)))
(setq f (vlax-ename->vla-object e))
(vla-get-Length f)

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

谢谢

试一下

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

;返回直线、多段线的长度
;供参考
;

(defun get_length(/ ent obj pt)
(setq ent(car(entsel "\n选择一条线:")))
(setq obj(vlax-ename->vla-object ent))
(setq pt(vlax-curve-getEndPoint obj))
(vlax-curve-getDistAtPoint obj pt)
)
;

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

这是VB的内容吗？

俺LISP学得较浅。

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

去试试~

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

谢谢，刚好用到了！

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

地板写的相当好，谢谢，解决我的问题了

账号		自动登录	找回密码
密码			注册