如何根据vba的objectid转换成lisp对象？vba与lisp协同工作问题

star_sur · 发表于 2011-3-24 22:37:00

如何根据vba的objectid转换成lisp对象？？？
现在情况是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 文件完整源码，怎么修改一下，望赐教。我的求求

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复