vlisp SelectByPolygon 问题

ndgxy · 发表于 2018-7-23 16:19:16

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

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

×

(setq doc1(vlax-get (vlax-get-acad-object) 'activedocument))
(setq sels(vlax-get doc1 'SelectionSets))
(setq sel(vlax-invoke sels 'add "SSET"))
;;;(setq sel(vlax-invoke sels 'item "SSET"))

(setq sa (vlax-make-safearray vlax-vbdouble '(0 . 7)))
(vlax-safearray-fill sa '(0.0 0.0 5.0 0.0 5.0 5.0 0.0 5.0))
(setq sa1 (vlax-make-safearray vlax-vbInteger '(0 . 0)))
(vlax-safearray-fill sa1 '(0))

(setq varstr (vlax-make-variant "TEXT"))
(setq sa2 (vlax-make-variant varstr))

(vlax-invoke sel 'SelectByPolygon acSelectionSetCrossingPolygon sa sa1 sa2)
; 错误: AutoCAD: 参数 PointsList (位于 SelectByPolygon 中) 无效

求指点，谢谢

Lisphk · 发表于 2018-7-23 17:01:30

看提示，应该是你构造点的数组时候有问题。

ndgxy · 发表于 2018-7-23 17:16:11

是的，要怎么改，求指点，谢谢。

王子 · 发表于 2018-7-23 20:01:15

学了另一种思路。。。。。。

newer · 发表于 2018-7-23 20:11:23

点表没封闭

改成

(setq sa (vlax-make-safearray vlax-vbdouble '(0 . 9)))
(vlax-safearray-fill sa '(0.0 0.0 5.0 0.0 5.0 5.0 0.0 5.0 0.0 0.0))

试试

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

[求助] vlisp SelectByPolygon 问题

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