代码问题

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

嘿，伙计们，
我有这个..
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： ”）

任何帮助表示赞赏

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

请尝试此操作。…
选项显式
公共子插件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）
末端接头

krampaul82 · 发表于 2013-8-23 13:42:36

马特
一如既往
，工作出色，这也解决了其他一些项目！感谢您对我的小困惑的及时回复。
马克

Matt__W · 发表于 2013-8-23 13:49:28

:酷:
欢迎你!

代码问题

发表回复

精选推荐