|
插入块时遇到的问题
煩請教一個問題:在插入塊的時候,先需要插入點,然後輸入角度,程序如下: Pnt1= ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置: ")
Set CucdBlock = ThisDrawing.Blocks.Add(Pnt1, "MyBlock" )
RAngle = ThisDrawing.Utility.GetAngle(Pnt1, "请输入第二个点或角度: ")
Set BlkRefObj = ThisDrawing.ModelSpace.InsertBlock(Pnt1, "MyBlock" , 1#, 1#, 1#, RAngle)
請問,如何實現類似裏面,在按第二個點的時候,看到“塊”在隨著鼠標的旋轉而旋轉!
以前的贴子如下连接:
不过贴子上写道:
Sub dfs()
Dim Vl As New Class
Dim g
g = Vl.EvalLispExpression("(dd)")
Do While Mid(g, 2, 1) "3"
g = Vl.EvalLispExpression("(dd)")
ThisDrawing.Utility.Prompt g & Chr(10)
Loop
End Sub
以上的vba程序需要加载mccad的 VLAX.CLS,我翻看了历史页面没有找到VLAX.CLS!
恳请MCCAD及斑竹高人给出程序,给与指点(正在毕业设计,谢谢!)
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |
|