xdrx-polyline-nearindex函数的用法

dyjwyqz5221

(xdrx-polyline-nearindex (car(entsel)) 2) 选取多段线，
这样用法不对吗？返回nil

XDSoft

命令: (xdrx-getpropertyvalue (entlast))


------       Geom Entity Method       ------


<kCompositeCrv3d>:

   Edit Functions:
        ├───setCurveList

   Query Functions:
        ├───getCurveList
        ├───getCurveList
        ├───Vertices
        ├───Bulges
        ├───LineSegAt
        ├───ArcSegAt
        ├───PointAt
        ├───BulgeAt
        ├───isOnlyLines
        ├───isOnlyArcs
        ├───hasBulges
        ├───OnSegAt
        ├───ToBox
        ├───NumVerts
        ├───globalToLocalParam
        ├───localToGlobalParam


<kCurve3d>:

   Bounding Box Functions:
        ├───boundBlock
        ├───orthoBoundBlock

   Closest Point Functions:
        ├───closestPointTo
        ├───projClosestPointTo

   Degeneracy Functions:
        ├───isDegenerate

   Distance Functions:
        ├───distanceTo

   Edit Functions:
        ├───setInterval

   Evaluation Functions:
        ├───evalPoint

   Geometric Inquiry Functions:
        ├───hasEndPoint
        ├───hasStartPoint
        ├───isClosed
        ├───isCoplannarWith
        ├───isLinear
        ├───isPeriodic
        ├───isPlannar

   Length Functions:
        ├───area
        ├───areaOf
        ├───length
        ├───paramAtLength

        ├───porintAtLength

   Parameterization Functions:
        ├───paramOf
        ├───reverseParam

   Point Containment Functions:
        ├───isOn
        ├───orthoProject
        ├───project

   Query Functions:
        ├───startParam
        ├───endParam
        ├───firstdeiv
        ├───firstderiv-
        ├───secondDeriv
        ├───secondDeriv-
        ├───getClosestPointTo
        ├───getInterval
        ├───getLocalClosestPoints
        ├───getNormalPoint
        ├───getProjClosestPointTo
        ├───getSamplePoints
        ├───getSplitCurves
        ├───getTrimmedOffset

   Subdivide Functions:
        ├───explode


<kEntity3d>:

   Equality Checking Functions:
        ├───isEqualTo

   Point Containment Functions:
        ├───isOn

   Type Identification Functions:
        ├───isKindOf
        ├───type


------       DB Entity Method       ------

Class AcDb2dPolyline:

    ├─Closed
    ├─Thickness
    ├─Vertices
    ├─FeaturePoints
    ├─Elevation
    ├─DefaultEndWidth
    ├─DefaultStartWidth
    ├─isLinetypeGenerationOn
    ├─Normal
    ├─PolyType

    ├─AllInnerAngles
    ├─AllOuterAngles
    ├─Angle
    ├─AngularLineVector
    ├─AllSegs
    ├─SegAt
    ├─ArcSegs
    ├─ArcSegAt
    ├─ArcSegIndex
    ├─LineSegIndex
    ├─BulgeAt
    ├─Bulges
    ├─Elevation

    ├─ConstantWidth
    ├─Get
    ├─LineSegAt
    ├─Length
    ├─Lengths
    ├─HasBulges
    ├─HasPlinegen
    ├─HasWidth
    ├─InAngle
    ├─IsSelfCrossing
    ├─IsInnerAngle
    ├─IsOuterAngle
    ├─IsOnlyLines

    ├─NearIndex
    ├─Normal
    ├─NumVerts
    ├─OnSegAt(Point or (INT Point))    ├─PointAt
    ├─PrevNextIndex
    ├─-Index+
    ├─SelfIntPoints
    ├─SelfIntParams
    ├─Thickness
    ├─Vertices
    ├─FeaturePoints
    ├─WidthsAt
    ├─StartWidth
    ├─EndWidth
    ├─OutLine (NULL or Index or (Index and (Int or Real))

Class AcDbCurve:

    ├─Area
    ├─Centroid
    ├─DistanceTo
    ├─Divide
    ├─EndParam
    ├─EndPoint
    ├─GetClosestPointTo
    ├─GetFirstDeriv
    ├─GetFirstDeriv-
    ├─GetSecondDeriv
    ├─GetSecondDeriv-
    ├─GetPointAtParam
    ├─GetPointAtDist
    ├─GetPointsAtDist
    ├─GetPointsAtDists
    ├─GetParamAtPoint
    ├─GetParamAtDist
    ├─GetDistAtPoint
    ├─GetDistAtParam
    ├─GetSamplePoints
    ├─IsClosed
    ├─IsOn
    ├─IsPeriodic
    ├─MidPoint
    ├─StartPoint
    ├─StartParam
    ├─Length


Class AcDbEntity:

    ├─9PT
    ├─Centroid
    ├─GeomExtents
    ├─BoundingBox
    ├─Elevation
    ├─Color (None or T[real color])
    ├─ColorIndex (None or T)
    ├─ECS
    ├─IsMemoryEntity
    ├─Layer (None or T or NIL)
    ├─Layout
    ├─Linetype (None or T or NIL)
    ├─LinetypeScale
    ├─LineWeight
    ├─Project(Plane Normal T)
    ├─OrthoProject(Plane  T)
    ├─Plane
    ├─PlotStyleName
    ├─StretchPoint
    ├─Transparency
    ├─Visibility

Class AcDbObject:
    ├─ClassName
    ├─ExtensionDictionary
    ├─FieldDictionary
    ├─IsA
    ├─IsAProxy
    ├─IsErased
    ├─IsReallyClosing
    ├─Handle
    ├─HasFields
    ├─HasPersistentReactor
    ├─MyParent
    ├─ObjectID
    ├─Owner
    ├─xData

liuyj

这个确实有问题，我试了得用下面的才能得到正确的子段两端点

1. (setq inx   (XD::Polyline:OnSegAt ePipe selpt)
   
2.         inx1  (XD::PolyLine:-Index+ ePipe inx)
   
3.         pps   (xdrx_getpropertyvalue ePipe "PointAt" inx)
   
4.         ppe   (xdrx_getpropertyvalue ePipe "PointAt" (last inx1))
   
5. )
   

(setq inx   (XD::Polyline:OnSegAt ePipe selpt)<br />         inx1  (XD::PolyLine:-Index+ ePipe inx)<br />         pps   (xdrx_getpropertyvalue ePipe "PointAt" inx)<br />         ppe   (xdrx_getpropertyvalue ePipe "PointAt" (last inx1))<br /> )<br />

XDSoft

参数是 点
命令: (xdrx-polyline-nearindex poly (getpoint))
1
命令: (xdrx-getpropertyvalue poly "nearindex" (getpoint))
1
命令: (xdrx-getpropertyvalue poly "-index+" 2)
(1 3)

得到子段两点很多方法
(xdrx-getpropertyvalue (entlast) "divide" 1 t)
(((4608.95 1180.75 0.0) (5540.47 1673.45 0.0)) ((5540.47 1673.45 0.0) (5339.56 2786.58 0.0)) ((5339.56 2786.58 0.0) (4024.46 3407.02 0.0)))


命令: (xdrx-entity-getproperty (xdrx-getpropertyvalue (entlast) "allsegs") "get")
((((4608.95 1180.75 0.0) (5540.47 1673.45 0.0))) (((5540.47 1673.45 0.0) (5339.56 2786.58 0.0))) (((5339.56 2786.58 0.0) (4024.46 3407.02 0.0))))

(xdrx-entity-getproperty (xdrx-getpropertyvalue (entlast) "allsegs") "startpoint" "endpoint")
(((4608.95 1180.75 0.0) (5540.47 1673.45 0.0)) ((5540.47 1673.45 0.0) (5339.56 2786.58 0.0)) ((5339.56 2786.58 0.0) (4024.46 3407.02 0.0)))

newer

函数功能是求 距离一个测试点 最近的 顶点索引，所以参数是点

不能是整数，距离顶点索引最近的顶点索引？

newer

liuyj 发表于 2020-6-20 16:42
这个确实有问题，我试了得用下面的才能得到正确的子段两端点

还一种
命令: (xd::list:snakepair (xdrx-getpropertyvalue (entlast) "vertices"))
(((4608.95 1180.75 0.0) (5540.47 1673.45 0.0)) ((5540.47 1673.45 0.0) (5339.56 2786.58 0.0)) ((5339.56 2786.58 0.0) (4024.46 3407.02 0.0)))

newer

尽可能的去用 xdrx-getpropertyvalue 吧，包括了N多功能了，替代了所有的对象的具体的函数
比如xdrx-polyline-xxxxx,  xdrx-line-xxxxx, xdrx-arc-xxxxx, xdrx-text-xxxx.......

Lispboy

liuyj 发表于 2020-6-20 16:42
这个确实有问题，我试了得用下面的才能得到正确的子段两端点

获取子段两端点

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (if (and (setq e (xdrx-entsel "\n拾取子段<退出>:" '((0 . "*polyline"))))
   
4.            (setq p (cadr e)
   
5.                  e (car e)
   
6.            )
   
7.            (setq seg (xdrx-getpropertyvalue e "segat" (trans p 1 0)))
   
8.       )
   
9.     (progn (mapcar '(lambda (x) (xdrx-grdraw 2 -1 x 3 4))
   
10.                    (xdrx-getpropertyvalue seg "get")
    
11.            )
    
12.     )
    
13.   )
    
14.   (xdrx-end)
    
15.   (princ)
    
16. )
    
17. 
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (if (and (setq e (xdrx-entsel "\n拾取子段<退出>:" '((0 . "*polyline"))))<br />            (setq p (cadr e)<br />                  e (car e)<br />            )<br />            (setq seg (xdrx-getpropertyvalue e "segat" (trans p 1 0)))<br />       )<br />     (progn (mapcar '(lambda (x) (xdrx-grdraw 2 -1 x 3 4))<br />                    (xdrx-getpropertyvalue seg "get") <br />            )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />