wxd20130610 发表于 2013-8-20 11:23:55

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

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:35

基本上带有command命令都不能发送
页: [1]
查看完整版本: vba怎样调用vlax类，用lisp的command函数来替代sendcommand，比如在模型空间绘制直线