下载此文档

CAD提取坐标的VBA源码.doc

文档分类：IT计算机 | 页数：约2页举报非法文档有奖

1/2

下载提示

1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
2.下载该文档所得收入归上传者、原创者。
3.下载的文档，不会出现我们的网址水印。

同意并开始全文预览

(约 1-6 秒)

1/2 下载此文档

文档列表 文档介绍

CAD提取坐标的VBA源码
??Ð??ÌÐò?ÉÔÚCADÖÐµãÈ?×ø?ê???ÉÒÔÑ?ÔñÊÇ?ñÊÖ??ÊäÈëµãºÅºÍ?ß?Ì??Èç??Ñ?ÔñÊÖ??ÊäÈëµãºÅ?
?ÔòµãºÅ×Ô??Ôö?Ó??
Èç??Ñ?ÔñÊÖ??ÊäÈë?ß?Ì??Ôò?ß?ÌÄ?ÈÏÎªÁã??
ÒªÏë?áÊø?ÌÐò??ÊäÈëµãµÄ×ø?êÎª??0,0?????ÌÐòÔò?ò?ª???æ?Ô???ò??
Private Sub CommandButton1_Click()

Dim a()
Dim txt As String
Dim point1 As Variant
Dim point2 As Variant
Dim gc As String
Do
point1 = (, vbCrLf & "µãµÄ×ø?ê?º")
point2 = (point1, acWorld, acUCS, False)
If point2(0) = "0" And point2(1) = "0" Then Exit Do
End If
n = n + 1
ReDim Preserve a(1 To 4 * n)
If Then
txt = (0, vbCrLf & "µãºÅ?º") a(4 * n - 3) = txt
Else
a(4 * n - 3) = n
End If
If Then
gc = (0, vbCrLf & "µãµÄ?ß?Ì?º") a(4 * n) = gc
Else

CAD提取坐标的VBA源码来自淘豆网www.taodocs.com转载请标明出处.

CAD提取坐标的VBA源码.doc

多段线提取点坐标-CAD-vba

CAD提取坐标的VBA源码

批量提取cad坐标到txt的lisp源码

CAD点取坐标

CAD-VBA代码

CAD-VBA代码

CAD-VBA代码

批量提取cad坐标到txt的lisp源码

CAD-VBA代码

CAD-VBA代码