[VBA程序]：請問：如何把vba所得的selection set 傳給 lisp

origo · 发表于 2003-9-9 15:55:08

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

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

×

我寫好的 lisp 是在command line 做 input

現在希望能在 vba 做 UI

不知如何把 vb 中的 selection set

傳給 lisp （ssget）

efan2000 · 发表于 2003-9-9 19:16:21

在VBA中，选择集的名称和句柄可以传递给VL，具体实现方法可以参考VLisp的资料。
另外的方法则是不直接传递，而通过第三者来联结，比如将值保存在XData或者XRecord，也可保存在文件或者注册表中，之后在Lisp中读出。

i_want_2 · 发表于 2003-9-9 23:39:34

"在VBA中，选择集的名称和句柄可以传递给VL"

能够详细说一下怎样做吗？

efan2000 · 发表于 2003-9-9 23:48:03

句柄的传递是：（首先要引用VLAX类）
Set sym = VLF.Item("read").funcall("handle")
ret = VLF.Item("set").funcall(sym, SSetObj.Handle)
后面的操作就是在VL中了，不过这种方法其实是在VBA中使用VL的函数。
而选择集的名称在选择集集合中是唯一的，因而可以直接在Lisp中通过搜索表来返回选择集，具体过程可以询问熟悉Lisp的人。

origo · 发表于 2003-9-10 13:59:29

vba可以直接用 sendcommand "xxxxx".............
把選集傳給 lisp 或是 CAD原本的指令嗎？

這樣做是希望 lisp & VAB & object ARX
之間可以分割個別獨立

arx lisp寫好的指令完全用 command line 做input
需要vba做對話框之 UI 時再用sendcommand

Quelea · 发表于 2003-9-10 22:15:53

最初由 origo 发布
[B]我寫好的 lisp 是在command line 做 input

現在希望能在 vba 做 UI

不知如何把 vb 中的 selection set

傳給 lisp （ssget） [/B]

下面的代码演示中使用VBA取得选择集，使用Vlisp对这个选择集进行操作（这里测试用的是删除选择集中的物体）

首先加载下面的lisp代码：

[FONT=courier new]
(defun c:erasetestselection()
(vl-load-com)
(setq acadapp (vlax-get-acad-object))
(setq acaddoc (vla-get-activedocument acadapp))
(setq selectionsets (vla-get-selectionsets acaddoc))
(setq ss (vla-item selectionsets "test"))
(vla-erase ss)
(princ)
)
[/FONT]

然后用VBA创建这个宏：

[FONT=courier new]
Sub Test()
Dim ss As AcadSelectionSet
On Error Resume Next
Set ss = ThisDrawing.SelectionSets("test")
If Err Then Set ss = ThisDrawing.SelectionSets.Add("test")
ss.Clear
ss.SelectOnScreen
ThisDrawing.SendCommand "erasetestselection" & vbCr
End Sub
[/FONT]

然后回到命令行，用VBARUN命令运行这个宏，
实际效果相当于删除命令。
VBA选择物体，Lisp删除物体。

origo · 发表于 2003-9-12 11:46:22

非常謝謝你的回文

(defun getVBASelection( / ss acadapp acaddoc selectionsets)
  (vl-load-com)
  (setq acadapp (vlax-get-acad-object))
  (setq acaddoc (vla-get-activedocument acadapp))
  (setq selectionsets (vla-get-selectionsets acaddoc))
  (setq ss (vla-item selectionsets "SS10"))

;如果要把 ss 變成 selection set 如同用ssget得到的東西再去編輯
((command "move" ss "" PT1 PT2 "")
...................................

如果是這樣時 ss要如何轉換ㄋ

有沒有其他方法

Selection Set 是不是應該會有個 table
在VBA中做的selection set是不是應該會記錄在 CAD 中
如果有的話  我在Lisp中就應該可以直接去table中搜尋
取出來用

謝謝

還有個小問題
你用的 function 有些在help中找不到
像vla-get-activedocument
   vla-get-selectionsets
   vla-item
請問你能提供這方面的資訊嗎？

秋枫 · 发表于 2003-9-12 21:37:18

代Quelea答一下：

1.　把SelectionSet变成SSGET得到的那种，可以用Vlisp代码转化一下，如下ss→ss2, ss2为传统的Lisp形式的选择集：

[font=courier new]
...
(setq ss2 (ssadd))
(vlax-for obj ss
(ssadd (vlax-vla-object->ename obj) ss2)
)
...
[/font]

2.

Selection Set 是不是應該會有個 table
在VBA中做的selection set是不是應該會記錄在 CAD 中
如果有的話我在Lisp中就應該可以直接去table中搜尋
取出來用

不是这样的。

3.vla-get-activedocument，vla-get-selectionsets，vla-item这些函数，是根据命名规则得到的。它的具体的帮助在VBA帮助中，其实就是使用的VBA的ActiveX模型。
你可以参阅Vlisp的帮助文件中的这一节：

[font=courier new]
Visual LISP Developer's Guide
→Using the Visual LISP Environment
→Working with ActiveX
[/font]

复制代码

origo · 发表于 2003-9-15 09:33:51

非常謝謝  樓上回覆
詳細又清楚

不過我資質魯頓
請問

  (setq ss2 (ssadd))
  (vlax-for obj ss
(ssadd (vlax-vla-object->ename obj) ss2)
  )

程式中的 obj 是如何取得

秋枫 · 发表于 2003-9-15 13:59:24

obj不需要手动取得。

道理和foreach一样，vlax-for相当于foreach的activex 版。

象
(foreach ename elist
...
)
也不需要手动给ename一样。

origo · 发表于 2003-9-15 15:34:28

感謝
你的熱心回答

aeo · 发表于 2003-12-6 23:39:33

;;;这是lisp的选集加入到selectionSets,vla和vb就可以调用它
;;;sset为lisp的选集,NEW_SSET为vb里选集名字
(defun ssfillset (ssets NEW_SSET / ssets newsset sset tmparray a)
(setq ssets (vla-get-selectionSets doc))
(if (vla-item ssets NEW_SSET)
(setq newsset (vla-item ssets NEW_SSET))
(setq newsset (vla-add ssets NEW_SSET))
)
(setq tmparray (vlax-make-safearray
vlax-vbObject
(cons 0 (- (sslength sset) 1))
)
)
(setq a 0)
(repeat (sslength sset)
(vlax-safearray-put-element tmparray a
(vlax-ename->vla-object (ssname sset a))
)
(setq a (1+ a))
)
(vlax-make-variant tmparray)
(vla-addItems newsset tmparray)
)
;;;反过来，vla和vb的选集用到lisp.
(defun getSel (SSET_name / ss)
(setq ss (ssadd))
(vlax-for obj(vla-item (vla-get-selectionsets
(vla-get-activedocument (vlax-get-acad-object)))
SSET_name)
(ssadd (vlax-vla-object->ename obj) ss)
)
ss
)

;;;这是lisp的选集加入到selectionSets,vla和vb就可以调用它 
;;;sset为lisp的选集,NEW_SSET为vb里选集名字 
(defun ssfillset (ssets NEW_SSET / ssets newsset sset tmparray a) 
  (setq ssets (vla-get-selectionSets doc)) 
  (if (vla-item ssets NEW_SSET) 
    (setq newsset (vla-item ssets NEW_SSET)) 
    (setq newsset (vla-add ssets NEW_SSET)) 
  ) 
  (setq tmparray (vlax-make-safearray 
                    vlax-vbObject 
                    (cons 0 (- (sslength sset) 1)) 
                 ) 
  ) 
  (setq a 0) 
  (repeat (sslength sset) 
    (vlax-safearray-put-element tmparray a 
      (vlax-ename->vla-object (ssname sset a)) 
    ) 
    (setq a (1+ a)) 
  ) 
  (vlax-make-variant tmparray) 
  (vla-addItems newsset tmparray) 
) 
 
;;;反过来，vla和vb的选集用到lisp. 
(defun getSel (SSET_name / ss) 
  (setq ss (ssadd)) 
  (vlax-for obj(vla-item (vla-get-selectionsets 
       (vla-get-activedocument (vlax-get-acad-object))) 
        SSET_name) 
    (ssadd (vlax-vla-object->ename obj) ss) 
  ) 
  ss 
)

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

[VBA程序]：請問：如何把vba所得的selection set 傳給 lisp

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

相关帖子

Re: [VBA程序]：請問：如何把vba所得的selection set 傳給 lisp