[求助]VBA的相切圆写法

xyz518mm

请问LISP写法的相切圆
(command "_.CIRCLE" "T" Pause Pause "500")
在VBA中该怎样写呢

小弟只会写前面,后面的 Pause "500" 不知道该怎样写
ThisDrawing.SendCommand "_Circle" & vbCr & "T"
烦请各位高手解答一下
谢谢

zml84

这就是vba的短处所在了，它对CAD系统命令的调用仅限于向命令行发送字符串。
你这样写也可以。

2. 
   
3. a = Chr(34)
   
4. ThisDrawing.SendCommand "(command " & a & "_.CIRCLE" & a & " " & a & "T" & a & " Pause Pause 500) "
   

<br /> a = Chr(34)<br /> ThisDrawing.SendCommand "(command " & a & "_.CIRCLE" & a & " " & a & "T" & a & " Pause Pause 500) "<br />

<br>
另外：在LISP中这样写 ：(command "_.CIRCLE" "T" Pause Pause "500")
是很危险的，因为你不知道在Pause时用户到底输入了什么响应。

xyz518mm

谢谢您的解答
另外请教一个问题
就是在VBA编辑器中编辑时
程式很长该怎样分行分段

网路上说要在字尾加上 _ 符号
但好像不行用耶
是否不是加 _ 符号呢

煩請各位解答一下
謝謝

zml84

程式行写的太长，对阅读是十分不利的。
一般每行60~70个字符是可以接受的，也是可行的。
若真的太长，应采用化整为零的方法，还如上例：

2. 
   
3. a = Chr(34)
   
4. ThisDrawing.SendCommand "(command " & a & "_.CIRCLE" & a & " "
   
5. ThisDrawing.SendCommand a & "T" & a & " Pause Pause 500) "
   

<br /> a = Chr(34)<br /> ThisDrawing.SendCommand "(command " & a & "_.CIRCLE" & a & " "<br /> ThisDrawing.SendCommand a & "T" & a & " Pause Pause 500) "<br />

xyz518mm

谢谢您的详细的解答
学到不少东西

yzx18

哦，这样啊
好复杂的