设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区»社区 › 开发篇 › VBA/VB/ActiveX/API 编程技术 › 请求解答一个简单的问题

发新帖

查看: 1076|回复: 2

请求解答一个简单的问题

发表于 2004-5-26 17:22:00 | 显示全部楼层 |阅读模式

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left> Dim Pnt1 As Variant<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left> Pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "选择第一点：")

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left> msgbox pnt1

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left> 1 在cad 的vba里 msgbox 这句报错,

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left> 2 我想用getpoint方法得到点的坐标,请教如何实现.我无法得知pnt1里面的内容

<

class=MsoNormal style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-layout-grid-align: none" align=left>

<

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))

回复支持反对

使用道具举报

楼主| 发表于 2004-5-26 17:38:00 | 显示全部楼层

多谢多谢,太好了,

回复支持反对

使用道具举报

发新帖

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )
©2000-2023 明经通道版权所有本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-12-1 04:48 , Processed in 0.174966 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表