czj 发表于 2005-1-17 14:25:00

[VBA] 如何交互取点

vba       我把帮助里的代码放到按钮里，会出现错误，求助
Dim returnPnt As Variant
                       
                       ' Return a point using a prompt
                       returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
                       MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2) & vbCrLf & _
                                                                                       "(Enter the next value without prompting.)", , "GetPoint Example"
                       
                       ' Return a point, no prompt
                       returnPnt = ThisDrawing.Utility.GetPoint
                       MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetPoint Example"
                       
                       ' Return a point using a base point and a prompt
                       Dim basePnt(0 To 2) As Double
                       basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
                       returnPnt = ThisDrawing.Utility.GetPoint(basePnt, "Enter a point: ")
                       MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2)
                       
                       ' Create a line from the base point and the last point entered
                       Dim lineObj As AcadLine
                       Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, returnPnt)
                       ZoomAll

雪山飞狐_lzh 发表于 2005-1-17 16:08:00

前面加me.hide
后面加me.show

czj 发表于 2005-1-17 16:41:00

谢谢
页: [1]
查看完整版本: [VBA] 如何交互取点