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

插入块时遇到的问题

煩請教一個問題：在插入塊的時候，先需要插入點，然後輸入角度，程序如下：


Pnt1= ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置:       ")<BR>Set CucdBlock = ThisDrawing.Blocks.Add(Pnt1, "MyBlock" )<BR>RAngle = ThisDrawing.Utility.GetAngle(Pnt1, "请输入第二个点或角度:       ")<BR>Set BlkRefObj = ThisDrawing.ModelSpace.InsertBlock(Pnt1, "MyBlock" , 1#, 1#, 1#, RAngle)<BR><FONT color=#ff0000>請問，如何實現類似AutoCAD裏面，在按第二個點的時候，看到“塊”在隨著鼠標的旋轉而旋轉！</FONT>

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

看看以前的帖子

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

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18014" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=18014</A>

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

貼上寫：<BR>Sub dfs()<BR>Dim Vl As New Class<BR>Dim g<BR>g = Vl.EvalLispExpression("(dd)")<BR>Do While Mid(g, 2, 1) &lt;&gt; "3"<BR>                       g = Vl.EvalLispExpression("(dd)")<BR>                       ThisDrawing.Utility.Prompt g &amp; Chr(10)<BR>Loop<BR>End Sub<BR>以上的vba程序需要加载mccad的 VLAX.CLS<BR><BR>能不能給出mccad的VLAX.CLS上述相關的代碼？<BR>謝謝
页: [1]
查看完整版本: 插入块时遇到的问题