vba怎样调用vlax类，用lisp的command函数来替代sendcommand，比如在模型空间绘制直线

wxd20130610 · 发表于 2013-8-20 11:23:00

Dim Obj As Object
Set Obj = New VLAX
Obj.EvalLispExpression "(setq pt1 (list 0 0))"
Obj.EvalLispExpression "(setq pt2 (list 100 100))"
Obj.EvalLispExpression "(command " & """.line """ & "pt1 pt2" & "“”" & ")"
‘Obj.EvalLispExpression "(command " & """zoom""" & " ""e"" " & """""" & ")"
Set Obj = Nothing
运行后cad界面没有反应，也没有直线绘制出来，不知怎么回事？

wxd20130610 · 发表于 2013-9-12 11:48:00

基本上带有command命令都不能发送

vba怎样调用vlax类，用lisp的command函数来替代sendcommand，比如在模型空间绘制直线

发表回复

精选推荐