如何监视CAD当前选择的实体。

zhaowchang

用LISP 能否监视CAD当前选择的实体。像CAD的属性对话框一样。

Free-Lancer

监视用来干什么呢？
(if (not (setq ss (ssget "P")))
  (setq ss (ssget))
)

zhaowchang

编了一个可停靠对话框，像属性对话框。没有实体选中时，显示“无选择”，如果选中后，则显示选中实体的某些属性（主要是扩展属性）。选择的实体换了，对话框内容随时更新。所以要监视CAD选中的实体。
我认为CAD应该有一个选择集存放当时选中的实体，当调用（ssget "p")时，它便把这个选择集中的内容调出来。只是不知如何监视这个选择集。

Free-Lancer

zhaowchang 发表于 2014-9-27 12:49
编了一个可停靠对话框，像属性对话框。没有实体选中时，显示“无选择”，如果选中后，则显示选中实体的某些 ...

VBA   中有这个事件方法，vlr- 没有
Private Sub AcadDocument_SelectionChanged()
    ' This example intercepts a drawing SelectionChanged event.
    '
    ' This event is triggered when the current selection set in a drawing is modified.
    '
    ' To trigger this example event: Select or deselect objects in any open drawing

    MsgBox "The selection set in a drawing was just changed!"
End Sub

Free-Lancer

测试 PickFirst 事件

Private Sub AcadDocument_SelectionChanged()

    Dim pfSS As AcadSelectionSet
    Set pfSS = ThisDrawing.PickfirstSelectionSet
    If pfSS.Count > 0 Then
    MsgBox "夹选了 " & pfSS.Count & " 个实体"
    End If
   
End Sub

zhaowchang

非常感谢free_lancer的帮助。我的问题已经解决，既然监视就要建立反应器，通过建立反应器解决。

XDSoft

zhaowchang 发表于 2014-9-27 12:49
编了一个可停靠对话框，像属性对话框。没有实体选中时，显示“无选择”，如果选中后，则显示选中实体的某些 ...

用 OPENDCL 做的可停靠对话框吗？ 如何可能，希望把你这个功能的主要代码贴上了和大家分享，谢谢！

zhaowchang

opendcl 本身就有做可停靠对话框的功能。添加对话框直接添加可停靠对话框即可。现在仅有雏形，等整好后再发布。

Free-Lancer

zhaowchang 发表于 2014-9-27 17:15
opendcl 本身就有做可停靠对话框的功能。添加对话框直接添加可停靠对话框即可。现在仅有雏形，等整好后再发 ...

看的不仔细， vlr 有这个反应器

1. (vlr-miscellaneous-reactor
   
2.   nil
   
3.   '((:vlr-pickfirstModified . pkcallback))
   
4. )
   
5. (defun pkcallback (var1 var2 /)
   
6.   (princ "\nNumber of PickfirstSelections = ")
   
7.   (princ (vla-get-count
   
8.            (vla-get-pickfirstselectionset
   
9.              (vla-get-activedocument (vlax-get-acad-object))
   
10.            )
    
11.          )
    
12.   )
    
13.   (princ)
    
14. )

(vlr-miscellaneous-reactor<br />   nil<br />   '((:vlr-pickfirstModified . pkcallback))<br /> )<br /> (defun pkcallback (var1 var2 /)<br />   (princ "\nNumber of PickfirstSelections = ")<br />   (princ (vla-get-count<br />            (vla-get-pickfirstselectionset<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />          )<br />   )<br />   (princ)<br /> )

zhaowchang

我用的ssget "i"

1. (vl-load-com)
   
2. (princ "\n*= ADD_MON: 添加监视；   MOVE_MON:去除监视      =*")
   
3. (DEFUN sel_change(calling-reactor commandInfo / );sel i stgs dwdxf bmdxf )
   
4.         (setq SEL (ssget "i"))
   
5.         (if sel
   
6.                 (PRINC (strcat "\n您选择了：" (itoa (SSLENGTH SEL)) "个实体。"))
   
7.                 (PRINC (strcat "\n您选择了：0个实体。"))
   
8.         )
   
9. )
   
10. 
    
11. (defun c:move_mon()
    
12.         (vlr-remove sel_reactor)
    
13. )
    
14. (defun c:add_mon()
    
15.         (sel_change nil nil)
    
16.         (setq sel_reactor (vlr-miscellaneous-reactor (ssget "i") '((:vlr-pickfirstModified . sel_change))))
    
17. )
    

(vl-load-com)<br /> (princ "\n*= ADD_MON: 添加监视；   MOVE_MON:去除监视      =*")<br /> (DEFUN sel_change(calling-reactor commandInfo / );sel i stgs dwdxf bmdxf )<br />         (setq SEL (ssget "i"))<br />         (if sel<br />                 (PRINC (strcat "\n您选择了：" (itoa (SSLENGTH SEL)) "个实体。"))<br />                 (PRINC (strcat "\n您选择了：0个实体。"))<br />         )<br /> )<br /> <br /> (defun c:move_mon()<br />         (vlr-remove sel_reactor)<br /> )<br /> (defun c:add_mon()<br />         (sel_change nil nil)<br />         (setq sel_reactor (vlr-miscellaneous-reactor (ssget "i") '((:vlr-pickfirstModified . sel_change))))<br /> )<br />

newer

zhaowchang 发表于 2014-9-27 22:05
我用的ssget "i"

你可以不用 (ssget "i")啊， 只要用户鼠标点中实体，夹点显示出来就激活反应器。

Free-Lancer

zhaowchang 发表于 2014-9-27 22:05
我用的ssget "i"

pickfirsetselection 是根据夹选自动更新的，不需要再选择

ActiveX  自动维护两个选择集，还有一个是 CURRENT

zhaowchang

Free-Lancer 发表于 2014-9-27 22:20
pickfirsetselection 是根据夹选自动更新的，不需要再选择

ActiveX  自动维护两个选择集，还有一个是  ...

不知这个CURRENT 如何使用？请大师赐教。