rscenter 发表于 2004-4-12 18:43:00

如何实现AutoCAD画线的操作？？？

通常我們利用VBA進行劃直綫時，利用：<BR>Dim Pnt1 As Variant<BR>Dim        Pnt2 As Variant<BR>Dim MyLine As AcadLine<BR><BR>Pnt1        = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置:       ")<BR>Pnt2 = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置:       ")<BR>Set MyLine = ThisDrawing.ModelSpace.AddLine(Pnt1, Pnt2)


這樣通過在        AutoCAD中，用戶選擇兩個點，程序會直接劃出直綫！<BR>請問：<FONT color=#ff0066> 如何實現類似AutoCAD中，選擇一個點後，出現隨鼠標移動的線，直到用戶選擇第二個點，直綫才確定下來？？</FONT>


<FONT face=黑体 color=#000000>懇請指教！</FONT>

mikewolf2k 发表于 2004-4-12 19:08:00

Pnt2 = ThisDrawing.Utility.GetPoint(pnt1, "程序请您输入要插入点的位置:       ")<BR>

rscenter 发表于 2004-4-12 20:50: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>

houlinbo 发表于 2006-12-1 12:47:00

太谢谢了

20033506 发表于 2006-12-4 22:42:00

<P>我试过那好像不能实现块随鼠标旋转!!</P>
<P>达人指点!</P>
页: [1]
查看完整版本: 如何实现AutoCAD画线的操作？？？