在输入X，Y坐标值的同时如何输入坐标的点号

tkh125 · 发表于 2008-3-23 23:36:34

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

在输入X，Y坐标值的同时如何输入坐标的点号，比如：ZK2012 465432.56,15682413.44。在输入点的时后如何把点号ZK2012也附在点的边缘。又怎么能实现群输点号呢？多谢谢高手的指点。

woaishuijia · 发表于 2008-6-9 06:44:36

楼主的意思是不是说：现在有一组类似“ZK2012    465432.56,15682413.44”的数据，想一次性输入这些数据，在CAD上按坐标画出这些点，并且在点的旁边要有点编号的文字？
如果是这样，这需要用二次开发。下面是一段实现上面功能的VBA代码：

Sub A()
Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double
On Error GoTo 10
With ThisDrawing
      Do '用循环方法输入任意多组数据
         S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”
         L = Len(S) '用函数获得字符串长度
         L1 = InStr(S, " ") '半角空格的位置
         L2 = InStr(S, ",") '半角逗号的位置
         If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
            P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标
            P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标
            .ModelSpace.AddPoint P '画点
            .ModelSpace.AddText Left(S, L1 - 1), P, 2.5 '在点的同一位置写单行文字（点编号）
         Else '字符串不符合条件则退出，比如直接回车
            Exit Do
         End If
      Loop
End With
10: End Sub

用Alt+F11打开VBA编辑器，双击“工程资源管理器”中的ThisDrawing对象，在代码窗口粘贴代码。见图1

图1

回到CAD界面，Alt+F8打开“宏”对话框，点“运行”。见图2

图2

打开按代码中注释文字说明的格式准备好的数据，复制，见图3

图3

在命令行中粘贴。图4是粘贴前的命令行，图5是粘贴后的。由于数据中含有回车符，程序已开始执行，所以在图片上半部可以看到点已经画出来了，只是由于借用楼主的数据坐标值太大，以至于字高只有2.5的单行文字需要放大才能看见。见图6

图4

图5

图6

此代码仅供参考。

sjry001 · 发表于 2011-7-10 17:57:36

很好，很强大！

lgddk · 发表于 2011-7-21 00:59:29

真的很不多谢谢哦

fcm · 发表于 2013-2-16 12:19:08

woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif8 ^; P4 z1 D! {, B" l. m
楼主的意思是不是说：现在有一组类似“ZK2012 465432.56,15682413.44”的数据，想一次性输入这些数据， ...

怎样把上面的代码弄成一个有命令的文件啊？有命令的话，就没有必要每次都要运行宏了，可以省略很多操作步骤。

fcm · 发表于 2013-2-20 12:28:44

woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
, x( @( Z: I0 }8 p$ G T- ~9 g# ^楼主的意思是不是说：现在有一组类似“ZK2012 465432.56,15682413.44”的数据，想一次性输入这些数据， ...

您好！使用您上面的代码，为什么每次启动CAD都会出现“文件已加载......”的对话框？有什么办法每次启动CAD都不要出现“文件已加载......”的对话框吗？还有就是，您上面的代码在CAD里使用是世界坐标系的，您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗？

fcm · 发表于 2013-2-20 18:29:03

woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
4 J7 ]2 f( V. {( v8 B0 _0 b楼主的意思是不是说：现在有一组类似“ZK2012 465432.56,15682413.44”的数据，想一次性输入这些数据， ...

您好！我已经解决了每次启动CAD都不要出现“文件已加载......”的对话框。可您上面的代码在CAD里使用是世界坐标系的，您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗？如果上面的代码修改后能在CAD里使用当前自定义的坐标系，那么就方便很多了，可以大大提高绘图效率。

woaishuijia · 发表于 2013-2-22 11:09:03

Sub A()
& }' @8 f, A6 G0 @) T. L' w
Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double, P1 As Variant0 F4 d; ^, \3 `2 D+ u% i; R7 W
On Error GoTo 107 b8 _6 ^1 t8 o9 i4 C
With ThisDrawing& p6 Y9 D0 @# x! i* o# @( a
Do '用循环方法输入任意多组数据
3 Y$ a c4 K; {" m0 b6 p
S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”
7 |( D8 b* i8 T8 u9 K1 d% d1 `
L = Len(S) '用函数获得字符串长度& ]3 Y7 v/ l# e" r6 W
L1 = InStr(S, " ") '半角空格的位置% ^5 @7 x& l; }9 L$ r0 E
L2 = InStr(S, ",") '半角逗号的位置
6 N9 I- V- Q0 X
If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
& |% W8 V" U2 Y1 |2 e
P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标
" c! A/ ?. ^6 J2 \
P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标/ n6 C; f, F2 O2 j' `/ ?& x; T8 O
P1 = .Utility.TranslateCoordinates(P, acUCS, acWorld, False) '把输入的点坐标从UCS转换到WCS
, a! M8 j/ ^2 G: a& Y
.ModelSpace.AddPoint P1 '画点1 ^$ ?3 G. D# Z2 R4 j
.ModelSpace.AddText Left(S, L1 - 1), P1, 2.5 '在点的同一位置写单行文字（点编号）
- t; P5 b% p( E, o2 D% R: A0 I
Else '字符串不符合条件则退出，比如直接回车) Q& k4 c1 Z- }( [9 W
Exit Do
' q4 \8 Q2 i0 `7 ~/ \. p' l
End If- D4 n) ^; \4 U' s5 I* O
Loop
3 g; n$ A, {1 X6 j
End With; V* R& ~6 Q p0 s: Z* W
10: End Sub

复制代码

fcm · 发表于 2013-2-22 14:27:24

woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

版主真是太厉害了！随心所欲、小菜一碟地就搞好了代码，佩服！佩服！这个代码非常强大！非常实用！

fcm · 发表于 2013-2-23 12:03:03

woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

请问您有AutoCAD VBA插件管理器吗？

woaishuijia · 发表于 2013-2-25 06:46:48

本帖最后由 woaishuijia 于 2013-2-25 06:50 编辑

没有这个东西,也不认为这种东西有什么用处,特别是在混合使用VBA和LSP及其它工具进行二次开发时.
自动加载和运行二次开发程序的方法有多种,个人有个人的喜好,还是按照自己的特点自行编制管理程序为好--如果需要的话.

PS:不要重复发帖.本论坛只讨论编程技术,不提供无偿编程服务.参见《CAD三维及二次开发》版规及发帖规范

fcm · 发表于 2013-5-8 10:03:54

woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

您好！版主：
请问上面的代码可以添加一个命令保存为dvb文件吗？如果有命令的话，就可以很方便地在CAD命令行里直接输入命令运行上面代码的dvb文件了，可以省略很多操作步骤。

fcm · 发表于 2013-5-8 19:15:29

woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？

woaishuijia · 发表于 2013-5-9 07:00:22

fcm 发表于 2013-5-8 19:15 static/image/common/back.gif
' x1 P4 M6 h5 d. a$ p您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？

参考这个帖子
极限与配合公差标注程序(31楼,46楼更新)

fcm · 发表于 2013-5-9 19:02:19

woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif$ z, [/ h- ]( v: ~; s* k
参考这个帖子
8 |' P8 R5 F! J. u极限与配合公差标注程序(31楼,46楼更新)

您说的参考的帖子里是要路径的，我说的意思是：在CAD的宏里加载工程后，可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了，那么这个命令怎样弄出来啊？

fcm · 发表于 2013-5-9 19:58:37

woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif
* C7 X5 Z( R D+ U参考这个帖子- K, h8 o" a/ L7 ~5 w9 q
极限与配合公差标注程序(31楼,46楼更新)

我说的意思是：在CAD的宏里加载工程后，可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了，不是用lsp文件来引导的，那么这个命令怎样弄出来啊？

woaishuijia · 发表于 2013-5-10 01:29:29

在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只是前一个在对话框中指定宏名称,而后一个是在命令行中输入.
用LISP引导,或是在CAD中"自定义"命令宏,都可以实现把上面两个步骤合二为一,从而简化操作--即只需输入一个自定义命令就能运行指定的VBA宏--的目的.
寄希望于VBA本身实现这一功能则是行不通的,因为绝大多数VBA宏都需要通过上面的两个步骤才能执行它而无论它的内容是什么.
只有一个例外,在2012及以前版本中,如果这个宏被保存在CAD支持文件目录下的"ACAD.DVB"工程文件中,且被命名为"ACADSTARTUP",这个宏在CAD首次加载VBA模块时就会被执行.在2013SP1和2014版本中,这个功能需要用户的授权.

fcm · 发表于 2013-5-10 08:41:00

woaishuijia 发表于 2013-5-10 01:29 static/image/common/back.gif& _% A9 _# I- K$ O
在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只 ...

您好！请问在CAD中"自定义"命令宏是怎样弄的啊？

woaishuijia · 发表于 2013-5-11 06:58:19

这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
"宏"是一个或多个命令以及参数的组合.
在CAD中可以用多种方法创建不同的宏.比如用VBA编写的程序就是宏的一种(为与用其它方法创建的宏相区别,我们可以称其为VBA宏),用LISP编写的函数也是宏(可以称为LISP宏).不记得从哪个版本开始,CAD还提供了"动作录制器"由用户自己录制,播放和管理宏(可以称为录制宏).当然,我们平时最多用到的是用CAD自己的语言编写的宏.之所以说它是我们平时最多用到的,是因为我们在绘图时点击菜单项或工具按钮,就是在使用CAD的宏.
比如,我们点击"绘图"菜单 > "圆" > "相切、相切、相切".CAD的命令行提示:

命令: _circle
指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p 指定圆上的第一个点: _tan 到

我们可以看到,在这个"三相切画圆"宏中,首先是调用CAD的画圆命令"circle",然后CAD替我们输入了"3p"关键字,指定了"三点"画圆方式.当命令行提示"指定圆上的第一个点:"时,又替我们输入了"tan"关键字,指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第一个切点.
当我们指定了第一个切点后,CAD命令行继续提示

指定圆上的第二个点: _tan 到

CAD再次替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第二个切点.
当我们指定了第二个切点后,CAD命令行继续提示

指定圆上的第三个点: _tan 到

CAD又替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第三个切点.

现在我们打开CAD的自定义界面,在命令列表中找到"圆, 相切、相切、相切",可以看到这个宏的完整内容"^C^C_circle _3p _tan \_tan \_tan \ "
不同CAD版本的自定义界面也都不太相同，但都可以找到上面的内容.
这个宏当中,"^C"是特殊字符,其含义是"取消活动的命令或命令选项"(相当于 ESC);
"_circle _3p _tan "与我们在命令行输入的命令和参数一样,"circle",空格键,"3p",空格键,"tan",空格键;
"\"也是一个特殊字符, 其含义是"暂停以等待用户输入".
这个宏只是CAD为我们编写的大量的宏中的一个.我们可以在自定义界面编辑修改它--如果我们对它不太满意的活.还可以创建一个新命令使用自己的宏.
比如,我们创建一个新命令"命令一",为它制做一个图标并把它插入到某个工具栏或菜单中.再为它编写如下的宏:

^C^C_-VBARUN E:/AutoCAD/二次开发/型钢/型钢.dvb!xg;

这个宏的含义是"-VBARUN"命令,空格键,VBA工程文件的路径和宏名称"E:\AutoCAD\二次开发\型钢\型钢.dvb!xg",回车.
保存后,在图形界面绘图时,只要用鼠标点击这个工具按钮或菜单项,CAD就能直接运行"E:\AutoCAD\二次开发\型钢\型钢.dvb"VBA工程文件中的"xg"过程.
在这个宏中,文件路径分隔符使用了"/"而不是"\"--前面已经说到了"\"代表"暂停以等待用户输入".在CAD命令宏中的路径分隔符要用"/";
宏的结尾是一个";",特殊字符,代表回车.

关于如何在自定义界面中创建命令,以及更多的命令宏编写方法和特殊字符,在CAD帮助文件中的《自定义手册》> "自定义用户界面" > "自定义命令" 中有详细的说明,可以自行参考学习.

fcm · 发表于 2013-5-11 08:22:04

本帖最后由 fcm 于 2013-5-11 10:07 编辑

woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
3 i; m& Z2 S8 ]3 V7 g5 U3 i这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.( u$ ?9 G: ]& I) I; x& T. S( ] p
"宏"是一个或多 ...

谢谢版主精彩的回答！版主说的很详细、很耐心、很负责！不过您说的编写的宏路径不能把dvb文件放在桌面

fcm · 发表于 2013-6-14 08:52:24

woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
$ q. B% `& V+ C+ ~" Z5 d这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
# \& @% t0 y- s# I# ]) r; D"宏"是一个或多 ...

版主：您好！可以请教您一个问题吗？
用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序。

fcm · 发表于 2013-6-19 16:19:06

woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif0 u8 X# P4 s) D3 [0 t6 A
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
# y B2 j* Y' z. o& ~"宏"是一个或多 ...

您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序DVB文件。

woaishuijia · 发表于 2013-6-19 22:35:34

fcm 发表于 2013-6-19 16:19 static/image/common/back.gif9 I. a! `* g f* i+ i5 `
您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框 ...

抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.

fcm · 发表于 2013-6-20 08:25:51

woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif
7 ]7 g7 @' Z2 ]抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.

版主：您好！
怎样用VBA做对话框呢？用VBA做的对话框面板里有按钮吗？那按钮可以关联CAD外挂程序的命令吗？（即一点击按钮就能运行CAD外挂程序，可以实现这样吗？）

fcm · 发表于 2013-6-21 17:03:06

woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif8 S7 g3 S W8 ~3 N# e N
抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.

版主：您好！您看到我的问题了吗？
怎样用VBA做对话框呢？用VBA做的对话框面板里有按钮吗？那按钮可以关联CAD外挂程序的命令吗？（即一点击按钮就能运行CAD外挂程序，可以实现这样吗？）

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

[已解决] 在输入X，Y坐标值的同时如何输入坐标的点号

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分