选择集转换成VLA选择集

Lisphk · 发表于 2017-8-3 12:59:40

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

×

(defun VanillaSS->VlaSS ( SS SSnm / i L SScoll SfArrayObjs vSS )
(cond
( (not (eq 'PICKSET (type SS))) nil)
( (not (and (eq 'STR (type SSnm)) (snvalid SSnm))) nil)
(T
(repeat (setq i (sslength SS))
(setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
)
(setq SScoll (vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object))))
(if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-Item (list SScoll SSnm))))
(vla-Delete (vla-Item SScoll SSnm))
)
(setq vSS (vla-Add SScoll SSnm))
(setq SfArrayObjs (vlax-make-safearray vlax-vbObject (cons 0 (1- (length L)))))
(setq i -1)
(foreach o L (vlax-safearray-put-element SfArrayObjs (setq i (1+ i)) o) )
(vla-AddItems vSS SfArrayObjs)
vSS
)
)
)

marting · 发表于 2017-8-3 13:32:10

发个选择集转到VLA对象表

(defun ss2vlalst (ss)
(if (= (type ss) 'pickset)
(mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
)
)

sicky111 · 发表于 2017-8-4 00:09:20

二楼的代码简单哦

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

[每日一码] 选择集转换成VLA选择集