插入块时遇到的问题

rscenter · 发表于 2004-4-12 21:20:00

煩請教一個問題：在插入塊的時候，先需要插入點，然後輸入角度，程序如下：
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)
請問，如何實現類似裏面，在按第二個點的時候，看到“塊”在隨著鼠標的旋轉而旋轉！

雪山飞狐_lzh · 发表于 2004-4-12 21:23:00

看看以前的帖子

rscenter · 发表于 2004-4-13 08:43:00

貼上寫：
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
能不能給出mccad的VLAX.CLS上述相關的代碼？
謝謝

插入块时遇到的问题

发表回复

精选推荐