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

rscenter

通常我們利用VBA進行劃直綫時，利用：
Dim Pnt1 As Variant
Dim Pnt2 As Variant
Dim MyLine As AcadLine

Pnt1 = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置: ")
Pnt2 = ThisDrawing.Utility.GetPoint(, "程序请您输入要插入点的位置: ")
Set MyLine = ThisDrawing.ModelSpace.AddLine(Pnt1, Pnt2) 這樣通過在 AutoCAD中，用戶選擇兩個點，程序會直接劃出直綫！
請問： 如何實現類似AutoCAD中，選擇一個點後，出現隨鼠標移動的線，直到用戶選擇第二個點，直綫才確定下來？？ 懇請指教！

mikewolf2k

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

rscenter

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

houlinbo

太谢谢了

20033506

我试过那好像不能实现块随鼠标旋转!!

达人指点!