krampaul82 发表于 2013-8-22 14:53:02

代码问题

嘿,伙计们
我有这个..ThisDrawing.Application.ActiveDocument。激活 returnPnt=ThisDrawing.Utility。GetPoint(,“选择插入点:”)
 插入点(0)=返回点(0) 插入点(1)=返回点(1) 插入点(2)=返回点(2)&nbsp
&nbsp' 插入块&nbsp
 Dim blockRefObj作为AcadBlockReference 设置blockRefObj=ThisDrawing.ModelSpace。插入块(returnPnt,v:\Common\U Assy\AHU\gtc\U AHU 12-001.dwg,1,1,0)
;这很好,但是否有以下可能
&nbsp returnPnt=ThisDrawing.Utility。GetPoint(,“选择插入点:”)&lt---我想在这里输入一个0,0,0的值,用于插入,而不需要用户输入&nbsp

 感谢您的帮助

Matt__W 发表于 2013-8-22 15:41:28

试试这个….选项显式
页: [1]
查看完整版本: 代码问题