如何激活选择集

bbswen · 发表于 2014-8-29 11:24:02

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

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

×

下面这段代码是将选择集加入到对象列表中，（说错了大家指正）

(if (setq ssg (ssget '((0 . "line,arc,circle,ellipse"))))
   (progn
(vlax-for obj (vla-get-activeselectionset
      (vla-get-activedocument (vlax-get-acad-object))
   )
   (setq elist (cons obj elist))  ; ssg->elist
)
)

现想修改为将选择集，已经存在的，SS选择集，直接转到elist
不知道怎么修改，

(vlax-for obj (vla-get-activeselectionset;;;这里好像是要将当前激活的选择集进行操作
；我尝试直接将这个选择集修改为SS，但程序不能通过。
      (vla-get-activedocument (vlax-get-acad-object))
   )
   (setq elist (cons obj elist))  ; ssg->elist
）

请教下，如何进行？或者有更好的方法。

Free-Lancer · 发表于 2014-8-29 11:43:21

本帖最后由 Free-Lancer 于 2014-8-29 11:51 编辑

这个 ActiveSelectionSet 有个Bug，需要先清理一下 CURRENT 集合，论坛有相关讨论

(fy:clearcset)
(if (ssget '((0 . "*line,arc")
(progn
(setq el (fy:cset->objs)) ;就是当前选集的 Object List 了
....

(defun fy:acapp nil
(eval (list 'defun
'fy:acapp
'nil
(vlax-get-acad-object)
)
)
(fy:acapp)
)
(defun fy:docs nil
(eval (list 'defun
'fy:docs
'nil
(vla-get-documents (fy:acapp))
)
)
(fy:docs)
)
(defun Fy:acDoc nil
(eval (list 'defun
'FY:acdoc
'nil
(vla-get-activedocument (vlax-get-acad-object))
)
)
(fy:acdoc)
)
(defun fy:acsets nil
(eval (list 'defun
'fy:acsets
'nil
(vla-get-Selectionsets (fy:acdoc))
)
)
(fy:acsets)
)
;; From eachy
(defun fy:Clearcset (/ cset)
(if (not (vl-catch-all-error-p
(setq cset
(vl-catch-all-apply
'vla-item
(list
(fy:acsets)
"CURRENT"
)
)
)
)
)
(vla-delete cset)
)
(princ)
)
(defun fy:cset ()
(vla-get-activeselectionset (fy:acdoc))
)
(defun fy:cset->objs (/ ol)
(vlax-for obj (fy:cset)
(setq ol (cons obj ol))
)
(reverse ol)
)

(defun fy:acapp    nil 
  (eval    (list 'defun 
          'fy:acapp 
          'nil 
          (vlax-get-acad-object) 
    ) 
  ) 
  (fy:acapp) 
) 
(defun fy:docs nil 
  (eval    (list 'defun 
          'fy:docs 
          'nil 
          (vla-get-documents (fy:acapp)) 
    ) 
  ) 
  (fy:docs) 
) 
(defun Fy:acDoc        nil 
  (eval        (list 'defun 
              'FY:acdoc 
              'nil 
              (vla-get-activedocument (vlax-get-acad-object)) 
        ) 
  ) 
  (fy:acdoc) 
) 
(defun fy:acsets nil 
  (eval        (list 'defun 
              'fy:acsets 
              'nil 
              (vla-get-Selectionsets (fy:acdoc)) 
        ) 
  ) 
  (fy:acsets) 
) 
;; From eachy 
(defun fy:Clearcset (/ cset) 
  (if (not (vl-catch-all-error-p 
             (setq cset 
                    (vl-catch-all-apply 
                      'vla-item 
                      (list 
                        (fy:acsets) 
                        "CURRENT" 
                      ) 
                    ) 
             ) 
           ) 
      ) 
    (vla-delete cset) 
  ) 
  (princ) 
) 
(defun fy:cset () 
  (vla-get-activeselectionset (fy:acdoc)) 
) 
(defun fy:cset->objs (/ ol) 
  (vlax-for obj        (fy:cset) 
    (setq ol (cons obj ol)) 
  ) 
  (reverse ol) 
)

bbswen · 发表于 2014-8-29 11:56:03

(command "_.select" ss "")
加入这句就可以了，但是感觉好笨啊，有好方法没有？

bbswen · 发表于 2014-8-29 13:04:26

Free-Lancer 发表于 2014-8-29 11:43
这个 ActiveSelectionSet 有个Bug，需要先清理一下 CURRENT 集合，论坛有相关讨论

(fy:clearcset)

lisp 调用方法 clear （接口 IAcadSelectionset）失败，是会出现这个问题吗？
链接是哪个？谢谢

csharp · 发表于 2014-8-29 13:25:01

当你遇到ActiveSelectionset item出错时, 就试试clearcset

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

[求助] 如何激活选择集

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

点评