容器（选择集）转表（LIST）

marting · 发表于 2017-10-10 11:39:36

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

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

×

(defun XD::VLA:Collection->List (coll mode / ret i e)
(cond
((= (type coll) 'VLA-OBJECT)
(reverse (vlax-for a coll (setq ret (cons (if mode
a
(vlax-vla-object->ename a)
) ret
)
)
)
)
)
((= (type coll) 'PICKSET)
(setq i -1)
(reverse (while (setq e (ssname coll (setq i (1+ i))))
(setq ret (cons (if (not mode)
e
(vlax-ename->vla-object e)
) ret
)
)
)
)
)
)
)

(XD::VLA:COLLECTION->LIST c t)
(#<VLA-OBJECT IAcadArc 104d0adc> #<VLA-OBJECT IAcadText 19137244> #<VLA-OBJECT
IAcadText 191372dc> #<VLA-OBJECT IAcadText 1913695c> #<VLA-OBJECT IAcadMText
19137834>)

命令: (XD::VLA:COLLECTION->LIST c nil)
(<图元名: -23ebc0> <图元名: -23ebb8> <图元名: -23ebb0> <图元名: -23eba8> <图元名: -23eba0>)

sh_h · 发表于 2017-10-10 14:34:50

大师辛苦了，谢谢分享！！！

yoyoho · 发表于 2017-10-10 15:40:40

谢谢分享！！！！！

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

[VL对象] 容器（选择集）转表（LIST）

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

评分