PickFirstSelectionSet 失效，count为0

Flyingdancing

2. Sub CAL()
   
3. Dim sel As AcadSelectionSet
   
4. Dim sum As Double
   
5. Dim ent As AcadEntity
   
6. Dim dimaln As AcadDimAligned
   
7. Dim a As New DataObject
   
8. 
   
9. 
   
10. On Error Resume Next
    
11. Set sel = ThisDrawing.PickfirstSelectionSet
    
12. If sel.Count = 0 Then sel.SelectOnScreen
    
13. 
    
14. For Each ent In sel
    
15. Set dimaln = ent
    
16. sum = sum + dimaln.TextOverride
    
17. Next
    
18. a.SetText sum
    
19. a.PutInClipboard
    
20. End Sub

Sub CAL()<br /> Dim sel As AcadSelectionSet<br /> Dim sum As Double<br /> Dim ent As AcadEntity<br /> Dim dimaln As AcadDimAligned<br /> Dim a As New DataObject<br /> <br /> <br /> On Error Resume Next<br /> Set sel = ThisDrawing.PickfirstSelectionSet<br /> If sel.Count = 0 Then sel.SelectOnScreen<br /> <br /> For Each ent In sel<br /> Set dimaln = ent<br /> sum = sum + dimaln.TextOverride<br /> Next<br /> a.SetText sum<br /> a.PutInClipboard<br /> End Sub

重点：
我把这个宏做成工具栏按钮后，启动就失效，直接跳到屏幕选择

而先选，然后手动到VBE中F5或者F8，都能够正确运行

请问这是什么情况？

chmenf087

你工具栏按钮加了^c^c了吧，这会取消所有的命令。要不就是你的pickfirst环境变量是0，应该为1才行

Flyingdancing

chmenf087 发表于 2012-7-25 19:32
你工具栏按钮加了^c^c了吧，这会取消所有的命令。要不就是你的pickfirst环境变量是0，应该为1才行

直接VBA设置的菜单：
application.MenuGroups.Item(0).Toolbars("个人工具").AddToolbarButton(0,"xx","","路径")
这条命令会加^C^C么？
PICKFIRST确实为1

woaishuijia

"VBARUN"命令不支持先选择后操作.
想实现先选择后操作,就得回避"VBARUN".要么像你现在这样在VBAIDE中用"F5"或"F8"运行VBA宏,要么就用LSP引导
可以参见这个帖子
命令行执行VBA程序，先选择后操作，透明命令

Flyingdancing

woaishuijia 发表于 2012-7-25 21:15
"VBARUN"命令不支持先选择后操作.
想实现先选择后操作,就得回避"VBARUN".要么像你现在这样在VBAIDE中用"F5 ...

谢了
这样就要做成公用接口了，要不每次做新程序都得lisp添加，烦死……
CAD也够狠，明明能做到的功能不给VBA

woaishuijia

没办法,VBA是微软的产品,LSP是AutoDesk自己的,自己的孩子自己当然重视了,呵呵.
所以,只用VBA,有的时候真会受限制,还是两个都会用才好,既能发挥VBA功能强大的优势,也可以用LSP做一下必要的补充.
其实我自用的VBA宏都是用LSP引导的,无论是否需要透明操作.而且我把这些用于引导的LSP统一做到"acaddoc.lsp"文件中,放在支持目录下,每打开或新建一个文档就自动加载这些自定义命令,使用时只要在命令行键入特定的自定义命令,就能自动加载并运行相应的VBA宏.
另外,MCCAD管理员的帖子貌似也有问题,尽管可以在选择对象之后执行LSP自定义命令,再用VLA函数运行VBA宏,但宏过程结束时,并不能自动清除 PickfirstSelectionSet 中的项目,且 PickfirstSelectionSet 对象是只读的, 所以也没有办法在VBA宏中清除它(至少我没找到这样的方法).这样在重复多次选择时很麻烦.
所以我的办法比管理员的还要复杂,我是在VLSP中检查 PickfirstSelectionSet 对象的 Count 属性,只要该选择集不为空,就新建一个命名选择集,再把 PickfirstSelectionSet 中的对象添加到命名选择集中,最后还是使用"VL-VBARUN"函数运行VBA宏,这样可以利用这个命令清除 PickfirstSelectionSet 中的对象.而在VBA宏中直接检索和使用命名选择集.
下面是我的透明命令的LSP引导程序

2. (defun c:gc (/ doc PickfirstSel selcount mysel i ent)
   
3.   (setvar "CMDECHO" 0)
   
4.   (vl-load-com)        ;将 Visual LISP 扩展功能加载到 AutoLISP
   
5.   (setq  doc       (vla-get-ActiveDocument (vlax-get-acad-object))
   
6.           ;当前文档
   
7.   PickfirstSel (vla-get-PickfirstSelectionSet doc)
   
8.           ;PickfirstSelectionSet 对象
   
9.   selcount     (vla-get-count PickfirstSel)
   
10.           ;PickfirstSelectionSet 对象的 count 属性
    
11.   )
    
12.   (if (not (zerop selcount))    ;检查 PickfirstSelectionSet 对象的 count 属性是否为 0
    
13.     (progn        ;PickfirstSelectionSet 对象的 count 属性是不为 0 时
    
14.       (setq mysel (vla-add (vla-get-selectionsets doc) "SS" )
    
15.           ;用 selectionsets 集合的 add 方法新建一个名为"SS"的选择集
    
16.       ent    (vlax-make-safearray vlax-vbobject '(0 . 0))
    
17.           ;创建一个上,下标均为 0 的对象型数组
    
18.       i    -1      ;初始化循环变量
    
19.       )
    
20.       (repeat selcount      ;循环.循环次数为 PickfirstSelectionSet 对象的 count 属性值
    
21.   (setq i (1+ i))      ;循环变量递加
    
22.   (vlax-safearray-put-element  ;把 PickfirstSelectionSet 对象中的第 i 个对象添加到数组
    
23.     ent
    
24.     0
    
25.     (vla-item PickfirstSel i)
    
26.   )
    
27.   (vla-additems mysel ent)  ;用选择集对象的 additems 方法把数组中的对象添加到"SS"选择集
    
28.       )
    
29.     )
    
30.   )
    
31.   (vl-vbarun "公差与配合.dvb!gc" )  ;加载并运行 VBA 宏,同时借此命令清除 PickfirstSelectionSet 中的所有项目
    
32.   (setvar "CMDECHO" 1)
    
33.   (princ)
    
34. )

(defun c:gc (/ doc PickfirstSel selcount mysel i ent)<br />   (setvar "CMDECHO" 0)<br />   (vl-load-com)        ;将 Visual LISP 扩展功能加载到 AutoLISP<br />   (setq  doc       (vla-get-ActiveDocument (vlax-get-acad-object))<br />           ;当前文档<br />   PickfirstSel (vla-get-PickfirstSelectionSet doc)<br />           ;PickfirstSelectionSet 对象<br />   selcount     (vla-get-count PickfirstSel)<br />           ;PickfirstSelectionSet 对象的 count 属性<br />   )<br />   (if (not (zerop selcount))    ;检查 PickfirstSelectionSet 对象的 count 属性是否为 0<br />     (progn        ;PickfirstSelectionSet 对象的 count 属性是不为 0 时<br />       (setq mysel (vla-add (vla-get-selectionsets doc) "SS" )<br />           ;用 selectionsets 集合的 add 方法新建一个名为"SS"的选择集<br />       ent    (vlax-make-safearray vlax-vbobject '(0 . 0))<br />           ;创建一个上,下标均为 0 的对象型数组<br />       i    -1      ;初始化循环变量<br />       )<br />       (repeat selcount      ;循环.循环次数为 PickfirstSelectionSet 对象的 count 属性值<br />   (setq i (1+ i))      ;循环变量递加<br />   (vlax-safearray-put-element  ;把 PickfirstSelectionSet 对象中的第 i 个对象添加到数组<br />     ent<br />     0<br />     (vla-item PickfirstSel i)<br />   )<br />   (vla-additems mysel ent)  ;用选择集对象的 additems 方法把数组中的对象添加到"SS"选择集<br />       )<br />     )<br />   )<br />   (vl-vbarun "公差与配合.dvb!gc" )  ;加载并运行 VBA 宏,同时借此命令清除 PickfirstSelectionSet 中的所有项目<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

kuangben8

woaishuijia 发表于 2012-7-25 23:39
没办法,VBA是微软的产品,LSP是AutoDesk自己的,自己的孩子自己当然重视了,呵呵.
所以,只用VBA,有的时候真会 ...

老师厉害！感谢分享。

zzyong00

我一般是把vba改成vb6，这样可以用PickFirstSelectionSet ，但也有不好之处，如一般不能用命令，大量数据交互会很慢等