[求助]：大家是如何把VBA程序转化成CAD的内部命令的

Ejnkejnk

同上

雪山飞狐(lzh)

在AcadDoc200?.lsp文件中加入
(defun c:tlcadchange()
    (setvar "cmdecho" 0)
    (command "-vbarun" "tlcad.dvb!mTLCAD.tlcadchange")
    (setvar "cmdecho" 1)
(princ)
)

Ejnkejnk

这个是模仿ahlzl斑竹拿来实验的，我在想是否有办法将这个VBA存为一种名为cc的命令，使之可以在CAD的命令栏中输入cc就可以执行这个

Sub cc()
  Dim cen(2) As Double
    cen(0) = ThisDrawing.Utility.GetReal("请输入Ｘ点坐标：")
    cen(1) = ThisDrawing.Utility.GetReal("请输入Ｙ点坐标：")
    cen(2) = ThisDrawing.Utility.GetReal("请输入Ｚ点坐标：")
  Dim r As Double
    r = ThisDrawing.Utility.GetReal("请输入半径：")
  Dim c As AcadCircle
  Set c = ThisDrawing.ModelSpace.AddCircle(cen, r)
  
End Sub

雪山飞狐(lzh)

改一改麽，把下列lisp程序导入ACAD
(defun c:cc()
(setvar "cmdecho" 0)
(command "-vbarun" "cc")
(setvar "cmdecho" 1)
(princ)
)

另外，可以直接用
Dim cen As Variant
cen = ThisDrawing.Utility.GetPoint(, "请输入圆心:")
输入坐标

Ejnkejnk

但是这里怎么没有写路径呢，这个lisp怎么知道我这个VBA放在何处呢，好，谢谢

雪山飞狐(lzh)

你可以自己改成这种格式麽！
tlcad.dvb!mTLCAD.tlcadchange
表示tlcad.dvb文件里的mTLCAD模块的tlcadchange过程
和你在运行宏窗口的一样，你把它Copy过来替换一下就可以了

ahlzl

最初由 Ejnkejnk 发布
[B]这个是模仿ahlzl斑竹拿来实验的，我在想是否有办法将这个VBA存为一种名为cc的命令，使之可以在CAD的命令栏中输入cc就可以执行这个

Sub cc()
Dim cen(2) As Double
cen(0) = ThisDrawing.Utility.GetReal("请输入Ｘ点坐标：")
cen(1) = ThisDrawing.Utility.GetReal("请输入Ｙ点坐标：")
cen(2) = ThisDrawing.Utility.GetReal("请输入Ｚ点坐标：")
Dim r As Double
r = ThisDrawing.Utility.GetReal("请输入半径：")
Dim c As AcadCircle
Set c = ThisDrawing.ModelSpace.AddCircle(cen, r)

End Sub[/B]

还有一种方法:
1)先用VBALOAD命令加载DVB文件;
2)再输入VBASTMT命令;
输入宏名称CC,回车.

麻雀

能不能将VBA程序加入到菜单中？

雪山飞狐(lzh)

[Test]^C^C(command "-vbarun" "Test")
多用搜索功能，以前的帖子里有

麻雀

最初由 lzh741206 发布
[B][Test]^C^C(command "-vbarun" "Test")
[/B]

但是这样要事先把vba程序用vbaload装入。能不能将vbaload和运行一并执行？

雪山飞狐(lzh)

把路径给全就不用vbaload装入了