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

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

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

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

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

如果想得到这P10呢，ThisDrawing.SendCommand "(Setq p2 (List " & ppppppppppppppppp(0) & " " & ppppppppppppppppp(1) & " ))" & vbCr
总不能一直输入P吧
页: [1]
查看完整版本: 用Sendcommand命令获得在command执行的pt1,pt2