[VBA函数]：two问题请教

gogogo168

1、我用vba二次开发，我想在一个系统变量中存数据，但是不想影响Autocad的应用，请问，有哪个系统变量，Autocad没有用，可以给我们利用的？

2、如何用程序实现AutoCAd的快速选择功能，选择到选择集中，我可以实现，但是，如何现实把选中的对象加入到类似AutoCAD的拉框选择的状态，就是，直接按Del就可以删除的状态？？？？？

tsuihan

1、可使用User1/User2/User3/User4/User5这几个系统变量；
2、不明白你的意思。

雪山飞狐(lzh)

用下面的lisp代码把你的VBA宏注册为命令，运行tt命令
(defun c:tt()
(vla-RunMacro (vlax-get-acad-object) "mydvb.dvb!tt")
(sssetfirst nil (ssget "P"))
)
我的VBA测试代码:
Sub tt()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(0) As Integer, fd(0)
ft(0) = 0: fd(0) = "line"
ss.Select acSelectionSetAll, , , ft, fd
End Sub

或看看这里
http://www.xdcad.net/forum/showthread.php?s=&threadid=535699

gogogo168

autocad选中线后，线上的点会着重显示，可以拉伸点！！如何，使选择集中的所有对象变成那个状态？

雪山飞狐(lzh)

运行命令tsl(选择直线)和tss(选择数字文字)

参见这里的tsl和tss宏
http://www5.139.com/xsfhlzh/1025501/article/349617.html