Dim AcadApp As Object
Dim AcadDoc As Object
AcadApp = GetObject(, "AutoCAD.Application")
AcadDoc = AcadApp.ActiveDocument
AcadDoc.SendCommand("(load " &Chr(34) &"e:\\abcd.lsp" &Chr(34) &") ")
AcadDoc.SendCommand("(gczd4-1 " &Chr(34) &X1 &Chr(34) &Chr(34) &X2 &Chr(34) &Chr(34) &X3 &Chr(34) &") ")
AcadDoc.SendCommand("(c:cc) ")
AcadDoc = Nothing
AcadApp = Nothing
因为在lisp中做一些工程计算比较麻烦,拟把这些工程计算用C语言来完成,程序名为a.exe。执行a.exe生成txt文件保存计算结果。
在执行lisp命令时调用a.exe,并取得a.exe生成的文本数据。
这样根据a.exe生成数据再在lisp中画图就可以了。
不知能否做到,如何实现,
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)