Question

用VBA怎么表示CAD里调用固定位置的块指定块插入点及旋转而不是点击一个点就直接插入了代码求修改啊

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏5（财富值+成长值）

Answer 1

请把你的代码发上来，也许能帮你改好哦

追问

blockName = "123.dwg" (怎么指定块的位置) ptBase = ThisDrawing.Utility.GetPoint(, "选择插入点:") ThisDrawing.ModelSpace.insertBlock ptBase, blockName, 1, 1, 1, 0

追答

blockName = "123.dwg" (怎么指定块的位置)
ptBase = ThisDrawing.Utility.GetPoint(, "选择插入点:")
pAng= ThisDrawing.Utility.GetAngle(, "旋转角:")
pDwg=ThisDrawing.ModelSpace.insertBlock ptBase, blockName, 1, 1, 1, 0
pDwg.Rotate ptBase, pAng
试试看吧