设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

12下一页
返回
发新贴
展开

通知     

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

[已解决] 在输入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上按坐标画出这些点，并且在点的旁边要有点编号的文字？
' N1 [$ ~* z, o4 q/ F如果是这样，这需要用二次开发。下面是一段实现上面功能的VBA代码：
3 X; c. {: s, K! L0 N: o4 V; x8 e6 _" s' T. Q
Sub A()  P2 i# m$ f3 V& M3 A
    Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double: Q. e- M% G, }: G$ z6 {8 Q/ r
    On Error GoTo 10: O+ ~2 ~8 n6 o4 \7 `: t5 T
    With ThisDrawing3 Q' b* F: F+ V* l( A( {
        Do '用循环方法输入任意多组数据
- W  C7 v! b: {# {            S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”, ?# P1 k' r+ ~) k6 M5 D
            L = Len(S) '用函数获得字符串长度
- }$ u" R1 s5 o6 [            L1 = InStr(S, " ") '半角空格的位置
2 N- G2 D& ^: a: W            L2 = InStr(S, ",") '半角逗号的位置9 A# e( B! i- c* W/ c
            If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确1 a& M9 U% z1 B% z
                P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标0 V  }6 a. [5 s( G: j' b+ n
                P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标
" |$ u1 |( J: ]* K2 u                .ModelSpace.AddPoint P '画点
  W! K. f! H- g! J* E; m                .ModelSpace.AddText Left(S, L1 - 1), P, 2.5 '在点的同一位置写单行文字（点编号）
; p  Q# c; g/ p            Else '字符串不符合条件则退出，比如直接回车5 W- q' ]0 J" h; D4 ^5 o1 \8 d! S
                Exit Do2 F( `! ^- f0 G  N
            End If
, D2 Y; t+ V4 f9 N0 K        Loop
( F: X7 f' u: I6 z    End With$ P9 b! l4 @/ N5 M3 G
10: End Sub
2 I+ q+ r9 u2 e& O2 ^
3 {" D, Z, p* W* q用Alt+F11打开VBA编辑器，双击“工程资源管理器”中的ThisDrawing对象，在代码窗口粘贴代码。见图1
. ^0 m" H) S0 M9 T) B2 M. E$ I' V0 I  U) _4 R6 {: n# \

图1

图1 4 ?5 c7 P3 `1 [4 ^

7 m* d) C* p7 L" t. f% S; d- [/ Y% ~回到CAD界面，Alt+F8打开“宏”对话框，点“运行”。见图26 N. r3 \2 z; g- K; [! q, ]4 c; F
3 n( O" n3 p$ L  h

图2

图2
5 M4 Q1 z' ]+ w8 l' f6 O
' Y6 p8 Q0 b; ]9 p2 A打开按代码中注释文字说明的格式准备好的数据，复制，见图3
. a; P/ U& c+ M& z8 H
  L5 k* {5 E& j9 W8 Z

图3

图3
8 i2 o2 `( V4 b2 v2 l3 c
; {9 i, D3 W/ P# n在命令行中粘贴。图4是粘贴前的命令行，图5是粘贴后的。由于数据中含有回车符，程序已开始执行，所以在图片上半部可以看到点已经画出来了，只是由于借用楼主的数据坐标值太大，以至于字高只有2.5的单行文字需要放大才能看见。见图6  O9 s9 a( u6 u2 I
0 ^9 v- q/ Z- K4 S3 a  v

图4

图4
3 m3 M( r7 M& I/ y3 v- y$ _" f4 ?7 O, L$ t, t

图5

图5 4 K" j4 P7 p6 U! n: t5 Y4 J+ }4 a
# }* P( `9 t( T, `

图6

图6 $ \& c! o' r- H& d; J
0 ^, E+ V6 V" S# Q& Z
此代码仅供参考。

评分

参与人数 1三维币 +5 收起 理由
番禺理工 + 5 应助

查看全部评分

回复 支持 反对

举报

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.gif
6 y4 S7 M, k" L8 V, ?0 S楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...

7 p* U! b$ t$ O  g0 P% b怎样把上面的代码弄成一个有命令的文件啊？有命令的话，就没有必要每次都要运行宏了，可以省略很多操作步骤。
回复 支持 反对

举报

fcm
发表于 2013-2-20 12:28:44 | 显示全部楼层
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
( B5 D( F# t1 s/ a楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...
! b+ V+ M+ R6 a% E) p* {
您好！使用您上面的代码，为什么每次启动CAD都会出现“文件已加载......”的对话框？有什么办法每次启动CAD都不要出现“文件已加载......”的对话框吗？还有就是，您上面的代码在CAD里使用是世界坐标系的，您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗？
回复 支持 反对

举报

fcm
发表于 2013-2-20 18:29:03 | 显示全部楼层
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
6 I7 g  V) c0 g. ~& N" K楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...
; g# R7 H1 C, I8 Y) m
您好！我已经解决了每次启动CAD都不要出现“文件已加载......”的对话框。可您上面的代码在CAD里使用是世界坐标系的，您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗？如果上面的代码修改后能在CAD里使用当前自定义的坐标系，那么就方便很多了，可以大大提高绘图效率。
回复 支持 反对

举报

woaishuijia
发表于 2013-2-22 11:09:03 | 显示全部楼层
  1. Sub A()
    $ i. Q6 n& ^; L- L2 x1 R2 {
  2.     Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double, P1 As Variant
    $ @! w3 _3 k/ |7 M/ J& ^% ?: \3 |
  3.     On Error GoTo 108 a8 |2 }! T3 B5 z; M
  4.     With ThisDrawing
    0 H# @  T5 C. @! F8 t, e+ B
  5.         Do '用循环方法输入任意多组数据
    ( T, [5 g& ~, w5 R
  6.             S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”7 j. V9 |7 U4 {5 }0 R% v: W# b8 X
  7.             L = Len(S) '用函数获得字符串长度
      n7 l* I& G' \
  8.             L1 = InStr(S, " ") '半角空格的位置7 Z0 g% d  Z  p' @: s; [
  9.             L2 = InStr(S, ",") '半角逗号的位置
    & o3 u9 l# X2 d# U; \& w! K
  10.             If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
    * [# ?1 Q8 Y# G+ d4 o  I/ X' N
  11.                 P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标2 W# g6 X2 |% Y6 s
  12.                 P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标$ h. o% m6 i1 k% f5 H: A( B6 h/ k
  13.                 P1 = .Utility.TranslateCoordinates(P, acUCS, acWorld, False) '把输入的点坐标从UCS转换到WCS
    4 M6 F5 T/ ^3 y: _. H
  14.                 .ModelSpace.AddPoint P1 '画点/ v/ ^5 a& N$ N; l" ]
  15.                 .ModelSpace.AddText Left(S, L1 - 1), P1, 2.5  '在点的同一位置写单行文字（点编号）
    ! j+ y8 i0 p9 L! D
  16.             Else '字符串不符合条件则退出，比如直接回车: l" F4 A* G5 R8 I5 P
  17.                 Exit Do
    - ?; h( K; P& _5 b: E: z5 R+ z
  18.             End If: ]' ?, e/ r5 V8 A  B& K4 ~3 A
  19.         Loop7 m1 _: b" g# P: s
  20.     End With
    5 N* D3 \: a% a' ^
  21. 10: End Sub
复制代码
回复 支持 反对

举报

fcm
发表于 2013-2-22 14:27:24 | 显示全部楼层
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

8 O0 u( N8 G3 f$ I% i  q' N( W版主真是太厉害了！随心所欲、小菜一碟地就搞好了代码，佩服！佩服！这个代码非常强大！非常实用！
回复 支持 反对

举报

fcm
发表于 2013-2-23 12:03:03 | 显示全部楼层
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
% h6 T* W3 h3 `3 n: m4 Z6 p2 o8 b
请问您有AutoCAD VBA插件管理器吗？
回复 支持 反对

举报

woaishuijia
发表于 2013-2-25 06:46:48 | 显示全部楼层
本帖最后由 woaishuijia 于 2013-2-25 06:50 编辑 : f3 k/ {8 K1 B& ?3 B& K
& M0 z4 M9 E( ?' w) s
没有这个东西,也不认为这种东西有什么用处,特别是在混合使用VBA和LSP及其它工具进行二次开发时.6 U* p4 T; E# \/ I0 Z4 ^8 S
自动加载和运行二次开发程序的方法有多种,个人有个人的喜好,还是按照自己的特点自行编制管理程序为好--如果需要的话.- j# I5 m, W$ j& p5 [

! Z3 z% t$ T8 n( W2 C# o' j4 pPS:不要重复发帖.本论坛只讨论编程技术,不提供无偿编程服务.参见《CAD三维及二次开发》版规及发帖规范
回复 支持 反对

举报

fcm
发表于 2013-5-8 10:03:54 | 显示全部楼层
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
* k: {( I6 x7 ~/ [+ s) r! x
您好！版主：
6 t; J) h6 Y2 u, O请问上面的代码可以添加一个命令保存为dvb文件吗？如果有命令的话，就可以很方便地在CAD命令行里直接输入命令运行上面代码的dvb文件了，可以省略很多操作步骤。
回复 支持 反对

举报

fcm
发表于 2013-5-8 19:15:29 | 显示全部楼层
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

6 b8 [; t! S' A您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？
回复 支持 反对

举报

woaishuijia
发表于 2013-5-9 07:00:22 | 显示全部楼层
fcm 发表于 2013-5-8 19:15 static/image/common/back.gif
" W* p1 A/ q% }您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？

* G" o# W# z1 L1 Y0 s, S/ o参考这个帖子3 |& K# X5 }& u6 a
极限与配合公差标注程序(31楼,46楼更新)) u3 N* d8 B* m2 A$ x! Z
回复 支持 反对

举报

fcm
发表于 2013-5-9 19:02:19 | 显示全部楼层
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif
$ |( g! E3 V# y. P- c) }  ?参考这个帖子! i# a! Q' D4 g* c7 x- ?- s  C. k
极限与配合公差标注程序(31楼,46楼更新)

' P; b0 P3 w$ |您说的参考的帖子里是要路径的，我说的意思是：在CAD的宏里加载工程后，可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了，那么这个命令怎样弄出来啊？
回复 支持 反对

举报

fcm
发表于 2013-5-9 19:58:37 | 显示全部楼层
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif$ q) k3 t5 F% x: L4 I. b* A7 w% l
参考这个帖子
. e3 l: x7 @: e2 T( w9 f极限与配合公差标注程序(31楼,46楼更新)

' H; B( X  Z8 x7 g8 a% y3 Q我说的意思是：在CAD的宏里加载工程后，可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了，不是用lsp文件来引导的，那么这个命令怎样弄出来啊？
回复 支持 反对

举报

woaishuijia
发表于 2013-5-10 01:29:29 | 显示全部楼层
在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只是前一个在对话框中指定宏名称,而后一个是在命令行中输入.
! \$ Z3 q2 n: a# q  t6 _用LISP引导,或是在CAD中"自定义"命令宏,都可以实现把上面两个步骤合二为一,从而简化操作--即只需输入一个自定义命令就能运行指定的VBA宏--的目的.
+ R; h0 k  }9 T/ A, o5 c寄希望于VBA本身实现这一功能则是行不通的,因为绝大多数VBA宏都需要通过上面的两个步骤才能执行它而无论它的内容是什么.
5 h9 |8 C# u3 |7 N' D- I0 r只有一个例外,在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
3 r  v* _/ r/ h: z8 u/ \在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只 ...

7 n2 l  o' d/ f$ |7 ]4 {3 O您好！请问在CAD中"自定义"命令宏是怎样弄的啊？
回复 支持 反对

举报

woaishuijia
发表于 2013-5-11 06:58:19 | 显示全部楼层
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
8 P7 r3 l& Z6 R8 b* _5 ^8 x"宏"是一个或多个命令以及参数的组合.1 ?6 h9 u* p8 L) F) G2 R
在CAD中可以用多种方法创建不同的宏.比如用VBA编写的程序就是宏的一种(为与用其它方法创建的宏相区别,我们可以称其为VBA宏),用LISP编写的函数也是宏(可以称为LISP宏).不记得从哪个版本开始,CAD还提供了"动作录制器"由用户自己录制,播放和管理宏(可以称为录制宏).当然,我们平时最多用到的是用CAD自己的语言编写的宏.之所以说它是我们平时最多用到的,是因为我们在绘图时点击菜单项或工具按钮,就是在使用CAD的宏., h* h$ n5 p2 C6 u1 \) F. p' ]
比如,我们点击"绘图"菜单 > "圆" > "相切、相切、相切".CAD的命令行提示:; Y) ]0 D( Z. n1 ~

& B+ _+ ?( p" N$ L, Z4 [: u1 V命令: _circle) g) s9 D2 u0 m0 c" K; Q
指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p 指定圆上的第一个点: _tan 到
! [& y  ?- Z3 e2 D
( i' W$ o: J5 z! V我们可以看到,在这个"三相切画圆"宏中,首先是调用CAD的画圆命令"circle",然后CAD替我们输入了"3p"关键字,指定了"三点"画圆方式.当命令行提示"指定圆上的第一个点:"时,又替我们输入了"tan"关键字,指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第一个切点.
1 e" o5 J, i- a7 @2 ~4 O* z, u当我们指定了第一个切点后,CAD命令行继续提示" R1 Z- x9 X' n  c! Y! A6 ]
4 Y& B) H, j0 E7 y; R) D# e; U2 {
指定圆上的第二个点: _tan 到- E+ f  k6 o' C+ G3 [; i7 |: l! ~# }
' z0 J  J* @' S# \( S) F1 L1 A
CAD再次替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第二个切点.7 f) E1 U) _' V$ @) ~$ |
当我们指定了第二个切点后,CAD命令行继续提示
* v( n3 ~# }; a4 z, H6 _' z: t5 m6 D8 x# s$ n& \
指定圆上的第三个点: _tan 到
. {- c4 ?7 |  g, P6 q
  b1 Q4 W% `$ J6 {; TCAD又替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第三个切点.
' J/ ^$ x+ e  |0 T! Q: g9 {! S5 A' u. h5 P
现在我们打开CAD的自定义界面,在命令列表中找到"圆, 相切、相切、相切",可以看到这个宏的完整内容"^C^C_circle _3p _tan \_tan \_tan \ "
+ ^$ Y6 j# _5 W! r: O6 L9 `% ^, x不同CAD版本的自定义界面也都不太相同，但都可以找到上面的内容./ u) u) J4 B  e2 e  j% r& V
这个宏当中,"^C"是特殊字符,其含义是"取消活动的命令或命令选项"(相当于 ESC);( z. c' c) q- m1 V
"_circle _3p _tan "与我们在命令行输入的命令和参数一样,"circle",空格键,"3p",空格键,"tan",空格键;& t: ^6 }0 w4 _& Q6 t
"\"也是一个特殊字符, 其含义是"暂停以等待用户输入".
; O* n+ a- d  e这个宏只是CAD为我们编写的大量的宏中的一个.我们可以在自定义界面编辑修改它--如果我们对它不太满意的活.还可以创建一个新命令使用自己的宏.! T! q4 p! i6 W* E, J; i
比如,我们创建一个新命令"命令一",为它制做一个图标并把它插入到某个工具栏或菜单中.再为它编写如下的宏:8 y$ |% r! P2 b" U3 j9 u
: ^) i4 q+ ^% v; Q
^C^C_-VBARUN E:/AutoCAD/二次开发/型钢/型钢.dvb!xg;# O. S/ e+ l* J$ `! z
8 z. i$ }* K: S3 i0 P! q6 `8 }! _
这个宏的含义是"-VBARUN"命令,空格键,VBA工程文件的路径和宏名称"E:\AutoCAD\二次开发\型钢\型钢.dvb!xg",回车.
! k# M& K$ S9 Q( R9 J保存后,在图形界面绘图时,只要用鼠标点击这个工具按钮或菜单项,CAD就能直接运行"E:\AutoCAD\二次开发\型钢\型钢.dvb"VBA工程文件中的"xg"过程.3 v; ~2 [1 w6 w7 g' E
在这个宏中,文件路径分隔符使用了"/"而不是"\"--前面已经说到了"\"代表"暂停以等待用户输入".在CAD命令宏中的路径分隔符要用"/";
1 i5 V0 n9 ~/ [% [宏的结尾是一个";",特殊字符,代表回车.
7 k) W. P, f/ F1 y! J* ?
. }( Y1 H' `+ d关于如何在自定义界面中创建命令,以及更多的命令宏编写方法和特殊字符,在CAD帮助文件中的《自定义手册》> "自定义用户界面" > "自定义命令" 中有详细的说明,可以自行参考学习.
回复 支持 反对

举报

fcm
发表于 2013-5-11 08:22:04 | 显示全部楼层
本帖最后由 fcm 于 2013-5-11 10:07 编辑
) T3 k6 q/ I; l! f" C
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif- T& y: C+ o1 t' Q# J5 ~7 _
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
2 |% g/ {  s5 N"宏"是一个或多 ...
  r0 ^  t' Z2 Y" H2 |
谢谢版主精彩的回答！版主说的很详细、很耐心、很负责！不过您说的编写的宏路径不能把dvb文件放在桌面
回复 支持 反对

举报

fcm
发表于 2013-6-14 08:52:24 | 显示全部楼层
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
* d$ G+ l- q  Y! x8 R  |6 E! V2 N这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
5 x% d. E. |) s5 u, H) ]% \7 V* j5 R"宏"是一个或多 ...

! T; W$ ^# U! q% v) R3 l$ _, ]版主：您好！可以请教您一个问题吗？( i& a2 l/ g  u( k8 _3 {
用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序。
回复 支持 反对

举报

fcm
发表于 2013-6-19 16:19:06 | 显示全部楼层
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
' Z% ~, u+ L6 h% P; \这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
$ n' {1 N( ?) U* j5 o! c"宏"是一个或多 ...
! ]2 r) C* R% ]% Z
您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序DVB文件。
回复 支持 反对

举报

woaishuijia
发表于 2013-6-19 22:35:34 | 显示全部楼层
fcm 发表于 2013-6-19 16:19 static/image/common/back.gif" p* W4 }8 a" M2 A$ g* r
您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框 ...

" Y' ]( `$ m+ X! ^抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
回复 支持 反对

举报

fcm
发表于 2013-6-20 08:25:51 | 显示全部楼层
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif# X5 Y2 v% Y: T. h
抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.

' c- K1 @! y: }# b版主：您好！
: m  f4 X% G! G怎样用VBA做对话框呢？用VBA做的对话框面板里有按钮吗？那按钮可以关联CAD外挂程序的命令吗？（即一点击按钮就能运行CAD外挂程序，可以实现这样吗？）
回复 支持 反对

举报

fcm
发表于 2013-6-21 17:03:06 | 显示全部楼层
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif, x1 \2 y* t* o
抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
9 k4 n# `% c; F! c( L  h
版主：您好！您看到我的问题了吗？% G; T8 ~2 l! m0 H# Z
怎样用VBA做对话框呢？用VBA做的对话框面板里有按钮吗？那按钮可以关联CAD外挂程序的命令吗？（即一点击按钮就能运行CAD外挂程序，可以实现这样吗？）
回复 支持 反对

举报

下一页 »
发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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