Xdrx-Entity-Getstretchpoint 函数用法疑问

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

因为，没有选择到对象，所以会出现上述问题

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

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

代码要多判断
(if (setq e (entsel))
(progn
......
)
)
遇到错误也知道在哪里

账号		自动登录	找回密码
密码			立即注册

[研讨] Xdrx-Entity-Getstretchpoint 函数用法疑问

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评