eros3722 发表于 2004-5-26 17:22:00

请求解答一个简单的问题

&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      Dim Pnt1 As Variant
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "选择第一点：")
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      msgbox pnt1
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      1 在cad 的vba里 msgbox 这句报错,
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      2 我想用getpoint方法得到点的坐标,请教如何实现.我无法得知pnt1里面的内容
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>      
&lt class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>         请教大虾

今晚打老虎 发表于 2004-5-26 17:26:00

晕死。。。
      
msgbox str(pnt1(0))&"               "&str(pnt1(1))

eros3722 发表于 2004-5-26 17:38:00

多谢多谢,太好了,
页: [1]
查看完整版本: 请求解答一个简单的问题