xdrx_GetPolyVtx 和xdrx_polyline_getCurVertex

hzwwrrbb

以前版本我用到过返回LWPOLYLINE定点，现在CAD12 13都用不了，也不知道是第几版开始的。自画多义线，分别用三个命令返回的结果命令: (setq a (entsel))
选择对象: (<图元名: 7ffffb79820> (91067.8 -44541.5 0.0))

命令: (entget (car a))

((-1 . <图元名: 7ffffb7fca0>) (0 . "LWPOLYLINE") (330 . <图元名: 7ffffb06980>) (5 .
"4F22A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GXZH") (62 . 3) (6
. "Continuous") (100 . "AcDbPolyline") (90 . 4) (70 . 128) (43 . 0.0) (38 .
0.0) (39 . 0.0) (10 97321.5 26110.2) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0)
(10 97636.2 26384.3) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 97870.9
26588.8) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 97924.5 26635.5) (40 .
0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))

命令: (xdrx_GetPolyVtx (car a))
; 错误: no function definition: XDRX_GETPOLYVTX

命令: (xdrx_polyline_getCurVertex (car a))
nil
求助大侠，还有返回多一线（或实体）定点的方法吗？

st788796

1 (xdrx_getpropertyvalue e "PointAt" 1) 二维点 ，索引 INT

2 (xdrx_curve_getpointatparam e 1.0) 三维点, param real or int

3 (xdrx_polyline_getpointat e 1) 索引 INT，二维点

以上是对 LWPOLYLINE

功  能：	获得当前顶点
调用格式：	(xdrx_polyline_getCurVertex <LWPOLYLINE实体名>) (xdrx_polyline_getCurVertex) ;;对象栈顶
返 回 值：	若存在下一个顶点，返回点，否则N个L
说    明：	这是个遍历函数，执行一次取一个顶点，直到结束 1. 没有参数 2. 考虑了旧版本的AcDb2DPOLYLINE和新的AcDbPolyLine (LwPolyLine)

XDSoft

获得所有顶点

命令: (xdrx_getpropertyvalue ent "vertices")
((1273.65 787.549 0.0) (2271.4 1644.52 0.0) (2490.54 666.456 0.0) (3147.94
1202.06 0.0) (1893.75 885.356 0.0) (1842.46 410.296 0.0))

hzwwrrbb

st788796 发表于 2014-10-14 16:30
1 (xdrx_getpropertyvalue e "PointAt" 1) 二维点 ，索引 INT

2 (xdrx_curve_getpointatparam e 1.0) 三 ...

多谢，试了一下，都没原来好使。如4个定点的多一线线命令:(xdrx_polyline_getPointAt (car a) 0.0)好像不对，
命令: (xdrx_curve_getPointAtParam (car a) 3.0)当最后参数0.0-3.0（4个顶点）好用，3.0以后时返回都是最后一个顶点而不是nil，使用还得判断终点，
命令: (xdrx_getpropertyvalue (car a) "PointAt" 3)当最后参数0.0-3.0（4个顶点）好用
命令: (xdrx_getpropertyvalue (car a) "PointAt" 4)参数3以后返回以下内容，也要判断终点。
Class AcDbPolyline:

    ├─BulgeAt
    ├─Elevation
    ├─ConstantWidth
    ├─HasBulges
    ├─HasPlinegen

不过总算能用，多谢了

hzwwrrbb

XDSoft 发表于 2014-10-14 17:03
获得所有顶点

命令: (xdrx_getpropertyvalue ent "vertices")

好的，谢谢！

st788796

hzwwrrbb 发表于 2014-10-14 17:30
好的，谢谢！

函数 Bug 是一方面，你的使用方法也有问题

xdrx_polyline_numVerts 顶点数， PointAt 要整数索引，不要超过 (1- numVerts) ,同样 param 也不能超过

终点一般用 xdrx_curve_getendpoint ，起点 xdrx_curve_getstartpoint

获取所有点 (xdrx_getpropertyvalue pline "vertices") 或者 (xdrx_entity_getstretchpoint pline)

newer

是你对函数的用法还没清楚

命令: (setq e (xdrx_setenttodb (entlast)))
T

命令: (while (setq p (xdrx_polyline_getCurVertex)) (setq pl(cons p pl)))
((967.254 683.951 0.0) (1268.03 749.637 0.0) (1595.11 591.991 0.0) (1478.41
329.249 0.0) (1169.42 248.784 0.0))

xdrx_polyline_getCurVertex 是个顶点迭代器，因为你没给多段线实体，所以这个函数用前，必须使用 xdrx_setenttodb

newer

hzwwrrbb 发表于 2014-10-14 17:28
多谢，试了一下，都没原来好使。如4个定点的多一线线命令xdrx_polyline_getPointAt (car a) 0.0)好像不 ...

你应该在给函数 param 参数前，就判断你给函数的参数是否超过了 endParam.

xdrx_curve_getEndParam

命令: (xdrx_curve_getEndParam (entlast))
4.0

hzwwrrbb

多谢大侠们，虽然很早就在用晓东的东西，但是有比较浅，后来更新后发觉有些函数的名称变了，然后替换一下，但现在的用户手册比较简单，不容易找，也确实不容易准确掌握。

Free-Lancer

hzwwrrbb 发表于 2014-10-15 08:41
多谢大侠们，虽然很早就在用晓东的东西，但是有比较浅，后来更新后发觉有些函数的名称变了，然后替换一下， ...

XDAPI 可能看 ARX  手册更好理解

XDSoft

hzwwrrbb 发表于 2014-10-15 08:41
多谢大侠们，虽然很早就在用晓东的东西，但是有比较浅，后来更新后发觉有些函数的名称变了，然后替换一下， ...

手册只能写些函数的用法，参数，返回值，更多的还需要自己多写程序掌握，如果遇到什么问题，多到论坛上发帖大家探讨。