pxt2015 发表于 2020-9-19 09:31:10

Xdrx-Entity-Getstretchpoint 函数用法疑问

Xdrx-Entity-Getstretchpoint 函数用法疑问
(Defun C:T ()
(Setq      Pts (Xdrx-Entity-Getstretchpoint (Car (Entsel "\nCurve")))
      Pt(Getpoint)
)
(Setq En-Pt (Apply 'Xdrx_Getnearpt (Cons Pt Pts)))
(Command "Line" Pt (Cadr En-Pt) "")
)
运行c:t，出现如下截图

XDSoft 发表于 2020-9-19 21:46:43

命令: (Setq      Pts (Xdrx-Entity-Getstretchpoint (Car (Entsel "\nCurve"))))
Curve((2577.19 1299.37 0.0) (3481.27 2786.58 0.0) (4047.45 1344.99 0.0) (5362.48 2923.44 0.0) (4449.27 1135.13 0.0))

测试没问题，请把你遇到有问题的实体，传DWG上来，测试下。

所有对象的查询，可以用
(xdrx-getpropertyvalue ent)来查看支持的方法
命令: (xdrx-getpropertyvalue ent "stretchpoint")
((2577.19 1299.37 0.0) (3481.27 2786.58 0.0) (4047.45 1344.99 0.0) (5362.48 2923.44 0.0) (4449.27 1135.13 0.0))

所有对象的编辑方法
(xdrx-setpropertyvalue ent)来查看支持的方法


xdrx-getpropertyvalue和xdrx-setpropertyvalue 这两个函数，是最常用

yangjian001 发表于 2020-9-20 14:23:25

热心并受欢迎的人！

pxt2015 发表于 2020-9-21 22:49:06

XDSoft 发表于 2020-9-19 21:46
命令: (Setq      Pts (Xdrx-Entity-Getstretchpoint (Car (Entsel "\nCurve"))))
Curve((2577.19 1299. ...

奇怪的是，重新启动CAD就没问题了。

dyjwyqz5221 发表于 2023-11-16 13:41:07

因为，没有选择到对象，所以会出现上述问题{:1_12:}

LoveArx 发表于 2023-11-16 23:32:30

dyjwyqz5221 发表于 2023-11-16 13:41
因为，没有选择到对象，所以会出现上述问题

代码要多判断
(if (setq e (entsel))
   (progn
         ......
    )
)
遇到错误也知道在哪里
页: [1]
查看完整版本: Xdrx-Entity-Getstretchpoint 函数用法疑问