（XD::PICKSET:SS->VlaSS）普通选择集转VLA选择集对象

newer · 发表于 2017-5-7 18:15:43

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

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

×

(defun XD::PICKSET:SS->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
)
)
)

(defun XD::PICKSET:SS->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 
    ) 
  )                                      
)

命令: (XD::PICKSET:SS->VLASS (ssget "p") "ss1")
#<VLA-OBJECT IAcadSelectionSet 1b81ba74>

sh_h · 发表于 2017-5-7 20:07:49

占个沙发，感谢楼主分享！

winerfjy · 发表于 2017-6-18 10:22:45

谢谢分享！

dyjwyqz5221 · 发表于 2018-3-2 13:39:37

如何使用？？？？

scnjlwb · 发表于 2018-3-19 14:06:36

谢谢分享！

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

[选择集] （XD::PICKSET:SS->VlaSS）普通选择集转VLA选择集对象

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