PickfirstSelectionSet的疑问

雪山飞狐_lzh

Sub Example_PickfirstSelectionSet()
' This example lists all the objects in the pickfirst selection set.
' Before running this example, create some objects in the active
' drawing and select those objects. The objects currently selected
' in the active drawing will be returned in the pickfirst selection set.

Dim pfSS As AcadSelectionSet
Dim ssobject As AcadEntity
Dim msg As String
msg = vbCrLf

Set pfSS = ThisDrawing.PickfirstSelectionSet
For Each ssobject In pfSS
msg = msg & vbCrLf & ssobject.ObjectName
Next ssobject
MsgBox "The Pickfirst selection set contains: " & msg

End Sub
这段代码是ACad自带的，在VBA编辑器里运行没有问题，在命令行运行时PickfirstSelectionSet选择集就被清空，是PickfirstSelectionSet的Bug么？ 如果想实现Lisp的(ssget)函数的功能应该怎么办？

雪山飞狐_lzh

试试 (defun tls-sub2cmd(filename subname cmdname)
(eval
(list 'defun
(read (strcat "c:" cmdname))
nil
'(if (cadr(ssgetfirst)) (sssetfirst nil (ssget)))
(list 'vla-RunMacro
'(vlax-get-acad-object)
(strcat filename "!" subname)
)
'(sssetfirst nil nil)
'(princ)
)
)
(vlax-add-cmd cmdname (strcat "C:" cmdname))
(princ)
)

莫名

在命令行运行要先调用VBARUN命令而取消了实体选择，所以选择集就被清空。应是VBA运行机制的问题。

雪山飞狐_lzh

刚想到一个办法，借助Lisp(ssget)来实现
(defun c:aabbcc()
(ssget)
(command "-vbarun" "aabbcc")
) Sub aabbcc()
' This example lists all the objects in the pickfirst selection set.
' Before running this example, create some objects in the active
' drawing and select those objects. The objects currently selected
' in the active drawing will be returned in the pickfirst selection set.

Dim pfSS As AcadSelectionSet
Dim ssobject As AcadEntity
Dim msg As String
msg = vbCrLf

Set pfSS = ThisDrawing.ActiveSelectionSet
For Each ssobject In pfSS
msg = msg & vbCrLf & ssobject.ObjectName
Next ssobject
MsgBox "The Pickfirst selection set contains: " & msg

End Sub

mccad

以前讨论过这个问题，只有使用事件触发的方法才能确保PickfirstSelectionSet不会丢失。
http://www.mjtd.com/a2/list.asp?id=434

莫名

飞弧斑竹的新办法还是不行。


明总方法是对的！

雪山飞狐_lzh

下列代码在Cad2005及2002中测试通过 Lisp代码

2. (defun c:aabbcc()
3. (setvar "cmdecho" 0)
4. (if (ssget) (command "-vbarun" "aabbcc"))
5. (setvar "cmdecho" 1)
6. (princ)
7. )

(defun c:aabbcc() (setvar "cmdecho" 0) (if (ssget) (command "-vbarun" "aabbcc")) (setvar "cmdecho" 1) (princ) )

VBA代码

2. Sub aabbcc()
3.        ' This example lists all the objects in the pickfirst selection set.
4.        ' Before running this example, create some objects in the active
5.        ' drawing and select thos     e objects. The objects currently selected
6.        ' in the active drawing will be returned in the pickfirst selection set.
7.                        
8.        Dim pfSS As AcadSelectionSet
9.        Dim ssobject As AcadEntity
10.        Dim msg As String
11.        msg = vbCrLfa
12.       
13.        Set pfSS = ThisDrawing.ActiveSelectionSet
14.       
15.        For Each ssobject In pfSS
16.                msg = msg & vbCrLf & ssobject.ObjectName
17.        Next ssobject
18.        MsgBox "The Pickfirst selection set contains: " & msg
19.       
20. End Sub

Sub aabbcc()        ' This example lists all the objects in the pickfirst selection set.        ' Before running this example, create some objects in the active        ' drawing and select thos     e objects. The objects currently selected        ' in the active drawing will be returned in the pickfirst selection set.                                Dim pfSS As AcadSelectionSet        Dim ssobject As AcadEntity        Dim msg As String        msg = vbCrLfa               Set pfSS = ThisDrawing.ActiveSelectionSet               For Each ssobject In pfSS                msg = msg & vbCrLf & ssobject.ObjectName        Next ssobject        MsgBox "The Pickfirst selection set contains: " & msg        End Sub

zzh_my

学习中。。。。。。。。。。