兰州人 发表于 2008-8-5 16:06:00

thisdrawing.sendcommand 执行 rectang命令

<p>Sub LSLS()<br/>&nbsp; Dim pp(0 To 2) As Double<br/>&nbsp; pp(0) = 1: pp(1) = 2<br/>&nbsp; TT = "(COMMAND " &amp; Chr(34) &amp; "RECTANG" &amp; Chr(34) &amp; " )" </p><p>用"""代替chr(34)<br/>&nbsp; TT = "(COMMAND " &amp; """RECTANG"""<br/>&nbsp; TT = TT &amp; "(LIST " &amp; pp(0) &amp; " " &amp; pp(1) &amp; ") "<br/>&nbsp; TT = TT &amp; "(LIST " &amp; pp(0) + 10 &amp; " " &amp; pp(1) + 10 &amp; "))"<br/>&nbsp; ThisDrawing.SendCommand TT &amp; vbCr</p><p>End Sub<br/></p>

mccad 发表于 2008-8-6 19:48:00

不到不得已，不要用SendCommend方法，会造成程序执行顺序错乱。

wuyunpeng888 发表于 2008-8-9 12:07:00

干什么？
页: [1]
查看完整版本: thisdrawing.sendcommand 执行 rectang命令