代码问题
嘿，伙计们，我有这个..
ThisDrawing.Application.ActiveDocument.Activate
returnPnt = ThisDrawing.Utility.GetPoint（， “Select Insert Point： ”）
insertpoint（0） = returnPnt（0）
insertpoint（1） = returnPnt（1）
insertpoint（2） = returnPnt（2）
' Insert the block
Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock（returnPnt， “v：\Common_Assy\AHU\gtc_ahu_12-001.dwg”， 1#， 1#， 1#， 0）
这工作正常，但以下情况可能吗？
returnPnt = ThisDrawing.Utility.GetPoint（， “Select Insert Point： ”）
任何帮助表示赞赏
**** Hidden Message ***** 请尝试此操作。…
选项显式
公共子插件myblock（）
MyInsertBlock（“e:\temp\revblk-1.dwg”）
末端接头
子MyInsertBlock（strBlockName为字符串）
将dblInsertPt（0到2）设置为双精度
将dblScale变为双精度
将DBL旋转调暗为双倍
＜div＞将objAcadDoc变暗为一份文档＜/div＞
将objBlockRef作为AcadBlockReference进行调整
dblInsertPt（0）=0
dblInsertPt（1）=0
dblInsertPt（2）=0
dblScale=1
dblRotation=0
设置objacadoc=ThisDrawing
设置objBlockRef=objacadoc.ModelSpace。插入块（dblInsertPt，strBlockName，dblScale，dblscal，dblsScale，dblRotation）
末端接头
马特
一如既往
，工作出色，这也解决了其他一些项目！感谢您对我的小困惑的及时回复。
马克 :酷:
欢迎你!
页:
[1]