求助：如何根据vba的objectid转换成lisp对象？？？

zxfzxf

求助：如何根据vba的objectid转换成lisp对象？？？

无痕

objectid是arx的吧？

star_sur

回复 zxfzxf 的帖子

没人知道吗？我也想知道

Gu_xl

回复 star_sur 的帖子

(vlax-vla-object->ename (vla-ObjectIDToObject (vla-get-ActiveDocument (vlax-get-acad-object)) id))

star_sur

现在情况是appload  cc.lsp 以后 ，运行命令 cc，提示选择闭合的多义线，以这条闭合的多义线为边进行剪切，
我现在想用vba 自动指定对哪条闭合的多义线进行剪切，而不是手工选。想法就是用vba取得闭合的多义线的objectid，
存在变量Users1中，然后ThisDrawing.Application.ActiveDocument.SendCommand  “CC 自动读取Users1，
得到闭合的多义线，不再需要提示人工选择。

VBA里
有一条闭合的pl，objectid为“FFFFHGD”
SetVariable "Users1" , “FFFFHGD”
ThisDrawing.Application.ActiveDocument.SendCommand  “CC ”

Lisp里面
我想通过    (setq a (GetVar "Users1"))  ，直接让lisp直接去处理objectid 是"Users1" 的闭合pline线
请高手帮我看看lisp文件应该怎么改一下？


以下是 cc.lsp 文件完整源码，怎么修改一下，望赐教。我的求求

highflybird

给你一个小小提示：
譬如在LISP中定义了

2. (defun C:test (Handle)                                           ;handle 句柄
   
3.     (setq entName (handent handle))                         ;entName是图元名字
   
4.     (entget entName)
   
5. )
   

(defun C:test (Handle)                                           ;handle 句柄<br />     (setq entName (handent handle))                         ;entName是图元名字<br />     (entget entName)<br /> )<br />

在VB中添加如下代码：

1.   
   
2.   Set VL = CreateObject("VL.Application.16")                           '16这个数字根据CAD版本调整
   
3.   VL.ActiveDocument.Functions.Item("c:test").funcall  Obj.Handle       '获得一个obj的Handle
   

  <br />   Set VL = CreateObject("VL.Application.16")                           '16这个数字根据CAD版本调整<br />   VL.ActiveDocument.Functions.Item("c:test").funcall  Obj.Handle       '获得一个obj的Handle <br />

这样就可以直接调用lisp函数并根据物体的handle 转化为图元名字，无需用sendcommand方式
同样，也可以反过来，根据 ThisDrawing.HandleToObject(handle)调用LISP中的句柄得到VB中的object

snddd2000

为什么不直接用lisp自动指定对哪条闭合的多义线进行剪切？

star_sur

用户选择一条pl线，原话是这样
(setq e (car (entsel
        "\nSelect circle or closed polyline, ellipse or spline for trimming edge: ")))
现在情况是我知道这条线的句柄handle1，想把它改成，用句柄值取得这条pl线，怎么改？
Gu_xl  提示过，但是我对lisp一窍不通，所以请明点

highflybird

把

2. (defun c:CC2 ( / *error* *acad* doc ps osm as om emode pmode offd
   

(defun c:CC2 ( / *error* *acad* doc ps osm as om emode pmode offd <br />

改为：

2. (defun c:CC2 ( handle / *error* *acad* doc ps osm as om emode pmode offd
   
3. 
   

(defun c:CC2 ( handle / *error* *acad* doc ps osm as om emode pmode offd <br /> <br />

把

2.       (not (setq e (car (entsel
   
3.        "\nSelect circle or closed polyline, ellipse or spline for trimming edge: "))))
   

      (not (setq e (car (entsel <br />        "\nSelect circle or closed polyline, ellipse or spline for trimming edge: "))))<br />

改为：      

2. (not (setq e (handent handle)))
   

(not (setq e (handent handle)))<br />

在vb中

2. 
   
3. '前面是你的代码
   
4. 'obj是你得到的object
   
5. 
   
6. Set VL = CreateObject("VL.Application.16")                           '16这个数字根据CAD版本调整
   
7. VL.ActiveDocument.Functions.Item("c:cc2").funcall  Obj.Handle       '获得一个obj的Handle
   

<br /> '前面是你的代码<br /> 'obj是你得到的object<br /> <br /> Set VL = CreateObject("VL.Application.16")                           '16这个数字根据CAD版本调整<br /> VL.ActiveDocument.Functions.Item("c:cc2").funcall  Obj.Handle       '获得一个obj的Handle <br />

star_sur

回复 highflybird 的帖子

感谢 highflybird 的详细解答，感激，感觉希望来了，呵呵



'前面是你的代码
'obj是你得到的object
Set VL = CreateObject("VL.Application.16")                           '16这个数字根据CAD版本调整
VL.ActiveDocument.Functions.Item("c:cc2").funcall  Obj.Handle       '获得一个obj的Handle




我试了一下，执行
Set VL = CreateObject("VL.Application.16")                     
出错了


vl16.tlb 引用我也引用了，也是不行，盼复