rscenter 发表于 2004-4-13 11:27:00

恳请MCCAD及斑竹高手指点做答（正在毕业设计，谢谢）

插入块时遇到的问题<BR>煩請教一個問題：在插入塊的時候，先需要插入點，然後輸入角度，程序如下：



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裏面，在按第二個點的時候，看到“塊”在隨著鼠標的旋轉而旋轉！<BR></FONT>以前的贴子如下连接：<BR><A href="dispbbs.asp?boardID=4&amp;ID=18014&amp;page=2" target="_blank" ><FONT color=#000000>dispbbs.asp?boardID=4&amp;ID=18014&amp;page=2</FONT></A> <BR>不过贴子上写道：<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><B><FONT color=#ff0000>以上的vba程序需要加载mccad的 VLAX.CLS，</FONT><FONT color=#00ff00>我翻看了历史页面没有找到VLAX.CLS！</FONT></B><BR><BR>恳请MCCAD及斑竹高人给出程序，给与指点（正在毕业设计，谢谢！）<BR><BR><BR>

今晚打老虎 发表于 2004-4-13 13:54:00

用thisdrawing.sendcommand~~~~~

雪山飞狐_lzh 发表于 2004-4-13 15:13:00

<b><FONT color=#ff0000>VLAX.CLS已经置顶了</FONT></b>
页: [1]
查看完整版本: 恳请MCCAD及斑竹高手指点做答（正在毕业设计，谢谢）