[LISP程序]：请教: 点击一多义线, 如何知道所点击的子段是第几段? 最好用Vlisp.

lsjjm

请教: 点击一多义线, 如何知道所点击的子段是第几段? 最好用Vlisp.

XDSoft

最初由 lsjjm 发布
[B]请教: 点击一多义线, 如何知道所点击的子段是第几段? 最好用Vlisp. [/B]

不知道使用XDRX_API的方法你需要不需要?

如果需要,论坛已经有了,前段写过很多关于POLYLINE处理方面的帖子.

ll_j

http://www.xdcad.net/forum/showthread.php?threadid=55558
pi.lsp中有相关的函数，Alisp的（Pi_tst、Pi_cen），返回值sg加1就是。

LUCAS

2. ;;SEGMENT FROM STARTPT
   
3. ;;USAGE:(SEGMENT (ENTSEL))
   
4. (defun SEGMENT (ENT / PNT VOBJ PARAM)
   
5.   (setq VOBJ (vlax-ename->vla-object (car ENT)))
   
6.   (setq PNT (vlax-curve-getclosestpointto VOBJ (trans (cadr ENT) 1 0)))
   
7.   (setq PARAM (1+ (fix (vlax-curve-getparamatpoint VOBJ PNT))))
   
8. )

;;SEGMENT FROM STARTPT<br /> ;;USAGE:(SEGMENT (ENTSEL))<br /> (defun SEGMENT (ENT / PNT VOBJ PARAM)<br />   (setq VOBJ (vlax-ename->vla-object (car ENT)))<br />   (setq PNT (vlax-curve-getclosestpointto VOBJ (trans (cadr ENT) 1 0)))<br />   (setq PARAM (1+ (fix (vlax-curve-getparamatpoint VOBJ PNT))))<br /> )

lsjjm

英雄所见略同.谢谢!
昨晚搞了一晚上, 终于搞定. 这里不用加 1,  第0段就是第一段.