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

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

12下一页
返回
发新贴
展开

通知     

全站
2天前
查看: 12190|回复: 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上按坐标画出这些点，并且在点的旁边要有点编号的文字？. l% s" @, U- B8 a- W
如果是这样，这需要用二次开发。下面是一段实现上面功能的VBA代码：/ \& y2 u# `8 _$ V
) Q/ |3 t. r& Y& W4 z1 n- ^/ o' P
Sub A()
5 \7 y; U/ r+ ^    Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double7 b; h& w7 N2 k, t1 R$ d8 h
    On Error GoTo 10
7 [) d  p# N% T- a1 _8 @% r# p8 M    With ThisDrawing
. O' o6 r5 L; w, B; X$ {5 r% j9 m        Do '用循环方法输入任意多组数据0 o4 u0 A: c: M7 ?
            S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”0 J! R9 n) H3 O( R5 L6 @# R9 J  Q
            L = Len(S) '用函数获得字符串长度
' q* P: A8 A0 I; S- p0 A$ b. g# [, i            L1 = InStr(S, " ") '半角空格的位置  _: `# E. v( U! @
            L2 = InStr(S, ",") '半角逗号的位置
# {' l2 H1 x  q% m            If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确) f7 U) }$ m$ y3 K- y3 Y
                P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标- [" Z4 b. V7 R1 m" `
                P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标1 ]; c* \- d* P9 e& V! m
                .ModelSpace.AddPoint P '画点
/ Z7 {" N: I0 v1 d                .ModelSpace.AddText Left(S, L1 - 1), P, 2.5 '在点的同一位置写单行文字（点编号）
- m1 E  ^: M& q7 d, }- X            Else '字符串不符合条件则退出，比如直接回车
) I- p2 Z4 U+ C2 N                Exit Do
) u1 {9 z+ T2 p2 m$ e) I/ y            End If
) @' N0 x* q3 y2 m4 ]6 P        Loop
; l* R; Z+ V7 X$ x. k    End With8 r- I7 U0 z3 s( k& W8 J0 I% c$ @
10: End Sub3 M1 L& o" A+ N: ]

/ g9 l/ b0 ?- s- t7 K7 t% l% x用Alt+F11打开VBA编辑器，双击“工程资源管理器”中的ThisDrawing对象，在代码窗口粘贴代码。见图1. `$ i$ G% N; C1 B+ o

# Z3 A7 s* W9 E# k) R/ H  F, H

图1

图1 - ~  d! m6 {* l# N/ q! j) L5 G3 W
  L& x( W, q6 B( b8 ~
回到CAD界面，Alt+F8打开“宏”对话框，点“运行”。见图2; U: x7 P6 S7 S% r+ _" _7 |
2 v4 c6 p4 w& i6 S0 }! N  O# ?' _: `

图2

图2
# W" @# [" @4 J, P- v$ u9 j2 j7 K) W
打开按代码中注释文字说明的格式准备好的数据，复制，见图3
; C* y+ [& m. F4 g) b& ]3 ]
- y4 x4 X$ i3 f+ a

图3

图3 2 |# \4 g( o* V0 ^, g3 L. J

! c2 o- E. v$ l5 e在命令行中粘贴。图4是粘贴前的命令行，图5是粘贴后的。由于数据中含有回车符，程序已开始执行，所以在图片上半部可以看到点已经画出来了，只是由于借用楼主的数据坐标值太大，以至于字高只有2.5的单行文字需要放大才能看见。见图6
+ p: \3 i7 X; T5 C' k8 V
  b; ~) Y, ?2 F) D9 v' {

图4

图4
" M- L) r9 }3 A  {$ s3 L9 f
8 }8 {3 f) Q6 A* N" y6 g/ o

图5

图5
4 Q+ {$ R  @: a/ r; S
$ ]3 G/ w! B8 s8 \

图6

图6 ) r7 u; _+ w; d3 C. z& x

- C8 v" y; L: [& p: N2 i' V1 s% }此代码仅供参考。

评分

参与人数 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" J+ @9 j$ k+ Q/ n
楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...
% R) ?4 E& w, B" N' [# I- w+ v
怎样把上面的代码弄成一个有命令的文件啊？有命令的话，就没有必要每次都要运行宏了，可以省略很多操作步骤。
回复 支持 反对

举报

fcm
发表于 2013-2-20 12:28:44 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
! L. |6 K- `) u3 B% S' Y楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...

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

举报

fcm
发表于 2013-2-20 18:29:03 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif
- v2 I* \; S& L1 w) m楼主的意思是不是说：现在有一组类似“ZK2012     465432.56,15682413.44”的数据，想一次性输入这些数据， ...

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

举报

woaishuijia
发表于 2013-2-22 11:09:03 | 显示全部楼层 来自： 中国辽宁营口
  1. Sub A()
    + |' r/ s1 q6 R
  2.     Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double, P1 As Variant. D" A  G4 D: j9 f$ X5 R
  3.     On Error GoTo 10
    ! |  n: ^, n6 P6 h! n: \' N
  4.     With ThisDrawing
    & |" X' }, T6 O: P
  5.         Do '用循环方法输入任意多组数据
    # P- a3 U- C$ F, x
  6.             S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串，格式为“点编号；一个或多个半角空格；点的横坐标；半角逗号；点的纵坐标；回车”
    1 p: b" H2 O3 f. s# n
  7.             L = Len(S) '用函数获得字符串长度6 |( ^) i9 B# m5 @, m8 O) {
  8.             L1 = InStr(S, " ") '半角空格的位置# s, f6 x" u( Q2 H0 i* u$ }6 \
  9.             L2 = InStr(S, ",") '半角逗号的位置
    " l9 y) N) _( ?0 n5 b; u3 p* q
  10.             If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
    2 B# m/ m4 L) }9 t+ b& e
  11.                 P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标
    * c% r4 X* D3 A0 j8 K6 `% p
  12.                 P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标) X; }  }% i/ |4 d( p
  13.                 P1 = .Utility.TranslateCoordinates(P, acUCS, acWorld, False) '把输入的点坐标从UCS转换到WCS  g0 D3 R, d: b! L" E& j0 R$ `
  14.                 .ModelSpace.AddPoint P1 '画点
    8 G; R/ b/ M, b% }9 }; g& j
  15.                 .ModelSpace.AddText Left(S, L1 - 1), P1, 2.5  '在点的同一位置写单行文字（点编号）, o4 f- g. v7 `* W" t% T1 _& j. b
  16.             Else '字符串不符合条件则退出，比如直接回车8 G0 J% b7 _5 `0 ~. S0 x1 n# }) y
  17.                 Exit Do
      i! B2 `' w/ Z; x" a4 l% d
  18.             End If
    ! c; `6 n1 k* C" }
  19.         Loop
    5 f! ?3 H  r" j+ v# s  ^
  20.     End With
    9 ~) {  V8 S( A( B! d
  21. 10: End Sub
复制代码
回复 支持 反对

举报

fcm
发表于 2013-2-22 14:27:24 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

, _8 c; v. P4 @) H版主真是太厉害了！随心所欲、小菜一碟地就搞好了代码，佩服！佩服！这个代码非常强大！非常实用！
回复 支持 反对

举报

fcm
发表于 2013-2-23 12:03:03 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
# `+ F- v: t7 a  f$ U) q
请问您有AutoCAD VBA插件管理器吗？
回复 支持 反对

举报

woaishuijia
发表于 2013-2-25 06:46:48 | 显示全部楼层 来自： 中国辽宁
本帖最后由 woaishuijia 于 2013-2-25 06:50 编辑
$ y" P9 U8 ~, m# @; P
$ F& W( L) }5 C0 r没有这个东西,也不认为这种东西有什么用处,特别是在混合使用VBA和LSP及其它工具进行二次开发时.* z8 N: F  ]  V5 |: B2 \" A, E
自动加载和运行二次开发程序的方法有多种,个人有个人的喜好,还是按照自己的特点自行编制管理程序为好--如果需要的话.
) S; L% Z) y5 b1 N" f; u1 w. g& M' e( R# {
PS:不要重复发帖.本论坛只讨论编程技术,不提供无偿编程服务.参见《CAD三维及二次开发》版规及发帖规范
回复 支持 反对

举报

fcm
发表于 2013-5-8 10:03:54 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
1 Q) e0 g; n! A, {$ `& |* {7 ~: k
您好！版主：
( X# C7 T6 A# C( D) ?& v, F+ W请问上面的代码可以添加一个命令保存为dvb文件吗？如果有命令的话，就可以很方便地在CAD命令行里直接输入命令运行上面代码的dvb文件了，可以省略很多操作步骤。
回复 支持 反对

举报

fcm
发表于 2013-5-8 19:15:29 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

4 R/ P, F. r2 v5 y! o您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？
回复 支持 反对

举报

woaishuijia
发表于 2013-5-9 07:00:22 | 显示全部楼层 来自： 中国辽宁
fcm 发表于 2013-5-8 19:15 static/image/common/back.gif1 @+ `# G9 I; P' V$ x1 f
您好！您编写的上面代码可以弄一个命令保存为dvb文件吗？

$ U! E# V! N& D; a+ D参考这个帖子, T. v4 d3 ~4 k- i
极限与配合公差标注程序(31楼,46楼更新)4 a1 L5 ^! C3 S! O% I
回复 支持 反对

举报

fcm
发表于 2013-5-9 19:02:19 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif+ H) w% [3 A# L: b6 t0 N
参考这个帖子) E, T! r6 S# T! F% a8 A8 \' K
极限与配合公差标注程序(31楼,46楼更新)
/ b; l5 w" p+ ]
您说的参考的帖子里是要路径的，我说的意思是：在CAD的宏里加载工程后，可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了，那么这个命令怎样弄出来啊？
回复 支持 反对

举报

fcm
发表于 2013-5-9 19:58:37 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif
5 a! C& R8 N9 ]5 T1 [, q0 v参考这个帖子
1 i; q1 V0 V, p& G0 G" G" a极限与配合公差标注程序(31楼,46楼更新)

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

举报

woaishuijia
发表于 2013-5-10 01:29:29 | 显示全部楼层 来自： 中国天津
在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只是前一个在对话框中指定宏名称,而后一个是在命令行中输入.0 j0 L% H+ R& q# K/ F
用LISP引导,或是在CAD中"自定义"命令宏,都可以实现把上面两个步骤合二为一,从而简化操作--即只需输入一个自定义命令就能运行指定的VBA宏--的目的.) G& l6 U% k# H$ J. a( J+ R
寄希望于VBA本身实现这一功能则是行不通的,因为绝大多数VBA宏都需要通过上面的两个步骤才能执行它而无论它的内容是什么.
' d' q  ~! m# a# L0 f3 L只有一个例外,在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
* V9 l; N) F: ], L* B在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只 ...

# o. T  v' U0 ]0 T$ N您好！请问在CAD中"自定义"命令宏是怎样弄的啊？
回复 支持 反对

举报

woaishuijia
发表于 2013-5-11 06:58:19 | 显示全部楼层 来自： 中国辽宁
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.% N  w: A% j5 D8 S# z) G1 Q1 z, A
"宏"是一个或多个命令以及参数的组合.( k1 U7 L9 r: Q% Z' k! C& R3 b0 J: O
在CAD中可以用多种方法创建不同的宏.比如用VBA编写的程序就是宏的一种(为与用其它方法创建的宏相区别,我们可以称其为VBA宏),用LISP编写的函数也是宏(可以称为LISP宏).不记得从哪个版本开始,CAD还提供了"动作录制器"由用户自己录制,播放和管理宏(可以称为录制宏).当然,我们平时最多用到的是用CAD自己的语言编写的宏.之所以说它是我们平时最多用到的,是因为我们在绘图时点击菜单项或工具按钮,就是在使用CAD的宏.
' u" s+ y; I8 `比如,我们点击"绘图"菜单 > "圆" > "相切、相切、相切".CAD的命令行提示:5 h% L3 O, m- S: f5 J
3 W9 D6 q2 u; E3 t7 H/ M
命令: _circle
" h( c7 f' j6 ]指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p 指定圆上的第一个点: _tan 到/ J! t  c2 n0 s  S' {% d8 Y& S

- H- i, p: @$ Q! I; l% T# }% W我们可以看到,在这个"三相切画圆"宏中,首先是调用CAD的画圆命令"circle",然后CAD替我们输入了"3p"关键字,指定了"三点"画圆方式.当命令行提示"指定圆上的第一个点:"时,又替我们输入了"tan"关键字,指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第一个切点.% A" I( ^5 A; \  c. I8 ?* B/ i
当我们指定了第一个切点后,CAD命令行继续提示
' F" ^+ D7 m4 ~" Z9 ^9 m7 t8 ?8 j% C: L" M/ q
指定圆上的第二个点: _tan 到
$ b& j' F# O9 M9 G8 M* |7 c0 Y6 f  r  u% O- o
CAD再次替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第二个切点.
; q5 D: l" v. K8 m  x2 I. w当我们指定了第二个切点后,CAD命令行继续提示% S: h- U% y8 L% e# j, E6 J

; i" ]# D. |  e/ e6 j- \指定圆上的第三个点: _tan 到
$ G, @; L, ?9 P% I6 x9 T0 \4 l! ?. S8 n! [/ ?! C6 Q' v$ K
CAD又替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第三个切点.
, E1 y/ [$ d+ [3 w8 _& O3 A. g7 X
现在我们打开CAD的自定义界面,在命令列表中找到"圆, 相切、相切、相切",可以看到这个宏的完整内容"^C^C_circle _3p _tan \_tan \_tan \ "- Z3 C. Y2 R1 \; Z+ G- i" @
不同CAD版本的自定义界面也都不太相同，但都可以找到上面的内容.$ ], ^" h  X) ^% y
这个宏当中,"^C"是特殊字符,其含义是"取消活动的命令或命令选项"(相当于 ESC);/ @- m) b9 T2 S& z2 p, Q7 c* f3 P
"_circle _3p _tan "与我们在命令行输入的命令和参数一样,"circle",空格键,"3p",空格键,"tan",空格键;0 b' p. \. m6 ]& ]
"\"也是一个特殊字符, 其含义是"暂停以等待用户输入".4 P! {8 p% k9 m- e
这个宏只是CAD为我们编写的大量的宏中的一个.我们可以在自定义界面编辑修改它--如果我们对它不太满意的活.还可以创建一个新命令使用自己的宏.
  p" @& h5 l6 \1 D# T3 }6 H4 l比如,我们创建一个新命令"命令一",为它制做一个图标并把它插入到某个工具栏或菜单中.再为它编写如下的宏:* Z3 |! a* v/ z2 n
' ~0 Y7 i; C, J! z) F' E3 Q
^C^C_-VBARUN E:/AutoCAD/二次开发/型钢/型钢.dvb!xg;6 a7 W# n4 E1 H2 v8 q  j* R
% p" a' @  G7 B! V  y3 V8 I
这个宏的含义是"-VBARUN"命令,空格键,VBA工程文件的路径和宏名称"E:\AutoCAD\二次开发\型钢\型钢.dvb!xg",回车.
. G! G( O' V0 R2 s& s7 z" O5 H保存后,在图形界面绘图时,只要用鼠标点击这个工具按钮或菜单项,CAD就能直接运行"E:\AutoCAD\二次开发\型钢\型钢.dvb"VBA工程文件中的"xg"过程.
; H0 _! O" b0 A* U0 ^5 O在这个宏中,文件路径分隔符使用了"/"而不是"\"--前面已经说到了"\"代表"暂停以等待用户输入".在CAD命令宏中的路径分隔符要用"/";: U+ ]+ e2 Q( x& B' m, O( a! T- G' b+ k
宏的结尾是一个";",特殊字符,代表回车.6 `! }6 H% Q$ ~' c

  }8 [3 M) t* Q+ H1 v关于如何在自定义界面中创建命令,以及更多的命令宏编写方法和特殊字符,在CAD帮助文件中的《自定义手册》> "自定义用户界面" > "自定义命令" 中有详细的说明,可以自行参考学习.
回复 支持 反对

举报

fcm
发表于 2013-5-11 08:22:04 | 显示全部楼层 来自： 中国广西梧州
本帖最后由 fcm 于 2013-5-11 10:07 编辑
6 M' D9 t4 V& K8 a. N+ k1 [! M
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
3 X. M( S9 V9 T9 D8 P+ _, {这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.
4 g- m( W0 Z3 ~) F+ L! }8 M$ U"宏"是一个或多 ...
# P5 Q4 b! a8 Q, q% M' i0 P
谢谢版主精彩的回答！版主说的很详细、很耐心、很负责！不过您说的编写的宏路径不能把dvb文件放在桌面
回复 支持 反对

举报

fcm
发表于 2013-6-14 08:52:24 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
4 t# r; T+ V3 p# `# D5 T4 `4 k) A' T9 R这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍." ^0 t. |2 Y( M0 t) t& o) s7 a
"宏"是一个或多 ...

2 x' Q9 w- w; L; \4 V版主：您好！可以请教您一个问题吗？) T% d- M  f+ a$ d! M
用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序。
回复 支持 反对

举报

fcm
发表于 2013-6-19 16:19:06 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
' G& _' b/ W% E. Q- `9 t) i0 R) S& @, W这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.9 A& v& M+ B' c% ?( r, p* _
"宏"是一个或多 ...

1 J7 I0 f4 k' o9 x( ~: Y. }$ i' |您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框里的文字按钮就可以运行CAD的外挂程序DVB文件。
回复 支持 反对

举报

woaishuijia
发表于 2013-6-19 22:35:34 | 显示全部楼层 来自： 中国浙江杭州
fcm 发表于 2013-6-19 16:19 static/image/common/back.gif6 B+ r5 c9 C( q) h8 q; v
您好：用OpenDCL制作的CAD对话框，对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令？当一点击对话框 ...

* M5 Q& _& @7 W0 c! b# Q抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
回复 支持 反对

举报

fcm
发表于 2013-6-20 08:25:51 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif
  |4 K% D3 }& u4 f9 `抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
* F+ l% x8 p& D7 `2 p# d. I
版主：您好！: c2 H7 V4 [; `+ @
怎样用VBA做对话框呢？用VBA做的对话框面板里有按钮吗？那按钮可以关联CAD外挂程序的命令吗？（即一点击按钮就能运行CAD外挂程序，可以实现这样吗？）
回复 支持 反对

举报

fcm
发表于 2013-6-21 17:03:06 | 显示全部楼层 来自： 中国广西梧州
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif
, u# O9 y; Y1 \/ ?4 d, N抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.

; ~" H1 ?9 m- y2 x# y版主：您好！您看到我的问题了吗？
4 W. G- }8 x4 P0 K3 S( p怎样用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 )

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