用Sendcommand命令获得在command执行的pt1,pt2

兰州人 · 发表于 2008-7-28 00:12:00

执行LISP的(setq p1 (list 0 0)),可在command命令执行!p1可得(0 0),用VBA等价解决方法如下. ThisDrawing.SendCommand "(Setq p1 (List " & pp(0) & " " & pp(1) & " ))" & vbCr

ThisDrawing.SendCommand "(Setq p2 (List " & ppp(0) & " " & ppp(1) & " ))" & vbCr

革天明 · 发表于 2012-3-9 13:51:16

本帖最后由革天明于 2012-3-9 13:51 编辑

如果想得到这P10呢，ThisDrawing.SendCommand "(Setq p2 (List " & ppppppppppppppppp(0) & " " & ppppppppppppppppp(1) & " ))" & vbCr
总不能一直输入P吧

账号		自动登录	找回密码
密码			注册