有获取多段线上的非顶点的任意一点位于哪两个顶点之间的api函数吗？

dyjwyqz5221

newer

dyjwyqz5221 发表于 2020-8-18 17:53
(defun get::on:Vertices(pt e / seg pts)       
        (setq seg (xdrx-getpropertyvalue e "segat" (trans pt 1 0) ...

(xdrx-getpropertyvalue (entlast) "onsegat" (getpoint))
(2 2.36792)

dyjwyqz5221

(defun get::on:Vertices(pt e / seg pts)       
        (setq seg (xdrx-getpropertyvalue e "segat" (trans pt 1 0))
                pts (xdrx-getpropertyvalue seg "get")
        );;;setq
        (mapcar
                '(lambda(x)
                        (xdrx-polyline-nearindex e x)
                );;;lambda
                pts
        );;;mapcar
)

这样可以找到是位于哪两个顶点之间

dyjwyqz5221

newer 发表于 2020-8-18 18:27
(xdrx-getpropertyvalue (entlast) "onsegat" (getpoint))
(2 2.36792)

返回结果中，两个数值分别代表什么？

pxr201419

(defun par-coo(ent pt / par coo)
   (setq par (vlax-curve-getParamAtPoint ent (vlax-curve-getclosestpointto ent pt))
         coo (vlax-get (vlax-ename->vla-object ent) 'Coordinates))
   (cond ((= (vlax-get (vlax-ename->vla-object ent) 'ObjectName) "AcDbPolyline")
          (list (mapcar '(lambda(x) (nth (+ x (* 2 (fix par))) coo)) '(0 1))
                (mapcar '(lambda(x) (nth (+ x (* 2 (fix par))) coo)) '(2 3))))
         ((= (vlax-get (vlax-ename->vla-object ent) 'ObjectName) "AcDb3dPolyline")
          (list (mapcar '(lambda(x) (nth (+ x (* 3 (fix par))) coo)) '(0 1 2))
                (mapcar '(lambda(x) (nth (+ x (* 3 (fix par))) coo)) '(3 4 5))))))
;参数 ent-对象名 pt-对象上的点
;返回 pt前后两端点组成的表
;lwpolyline返回((27278.4 12377.8) (28993.2 14707.0))
;3dPolyline返回((24363.3 10185.5 0.0) (26078.1 10802.1 0.0))

(defun c:tt  ();测试
   (setq e  (entsel "选择polyline")
         pt (cadr e)
         e  (car e)
         pt (vlax-curve-getclosestpointto e pt))
   (print (par-coo e pt))
   (princ))

dyjwyqz5221

pxr201419 发表于 2020-8-19 08:53
(defun par-coo(ent pt / par coo)
   (setq par (vlax-curve-getParamAtPoint ent (vlax-curve-getcloses ...

谢谢了，看来方法还是很多的。

liuyj

从各位大师那里总结的，你测试一下，我用方法5，挺好的。1、(xdrx-getpropertyvalue e "divide" 1 t)
2、(xdrx-entity-getproperty (xdrx-getpropertyvalue e "allsegs") "get")
3、(xdrx-entity-getproperty (xdrx-getpropertyvalue e "allsegs") "startpoint" "endpoint")
4、(xd::list:snakepair (xdrx-getpropertyvalue e "vertices"))
5、(setq seg (xdrx-getpropertyvalue e "segat" (trans pt 1 0)))
     (xdrx-getpropertyvalue seg "get")
6、(setq inx   (XD::Polyline:OnSegAt e pt)
         inx1  (XD::PolyLine:-Index+ e inx)
         ps    (xdrx_getpropertyvalue e "PointAt" inx)
         pe    (xdrx_getpropertyvalue e "PointAt" (last inx1))
     )

dyjwyqz5221

liuyj 发表于 2020-8-19 10:28
从各位大师那里总结的，你测试一下，我用方法5，挺好的。1、(xdrx-getpropertyvalue e "divide" 1 t)
2、( ...

这几种方法里面也就只有5、6能求出位于哪两点或索引点之间，其他都求不出来，没有pt点。

liuyj

求出每段的两个端点，列个表，判断一下选的点在那个点对中间不就行了

dyjwyqz5221

(xdrx-getpropertyvalue (entlast) "onsegat" (getpoint))最便捷

newer

liuyj 发表于 2020-8-19 10:28
从各位大师那里总结的，你测试一下，我用方法5，挺好的。1、(xdrx-getpropertyvalue e "divide" 1 t)
2、( ...

(setq inx   (XD::Polyline:OnSegAt e pt)
         inx1  (XD::PolyLine:-Index+ e inx)
         ps    (xdrx_getpropertyvalue e "PointAt" inx)
         pe    (xdrx_getpropertyvalue e "PointAt" (last inx1))
     )
上面这些，用：

(xdrx-getpropertyvalue ent "onsegat" pnt) 就行了

newer

dyjwyqz5221 发表于 2020-8-19 08:15
返回结果中，两个数值分别代表什么？

第一参数是所在段的起始顶点， 第二个参数是 点所在位置的参数值

kmliro_2017

谢谢分享！！！！！

yangjian001

看来方法还是很多的