QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 12203|回复: 28
收起左侧

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

[复制链接]
发表于 2008-3-23 23:36:34 | 显示全部楼层 |阅读模式 来自: 中国新疆昌吉回族自治州

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

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

x
在输入X,Y坐标值的同时如何输入坐标的点号,比如:ZK2012     465432.56,15682413.44。在输入点的时后如何把点号ZK2012也附在点的边缘。又怎么能实现群输点号呢?多谢谢高手的指点。
发表于 2008-6-9 06:44:36 | 显示全部楼层 来自: 中国
楼主的意思是不是说:现在有一组类似“ZK2012     465432.56,15682413.44”的数据,想一次性输入这些数据,在CAD上按坐标画出这些点,并且在点的旁边要有点编号的文字?
3 S  @/ i+ {7 M5 z0 Q如果是这样,这需要用二次开发。下面是一段实现上面功能的VBA代码:
& C6 n. k+ `/ V
; f  r5 l  v1 \Sub A()
8 k0 W  D. ~+ a6 |6 c9 ?5 S    Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double$ J3 ~# ]3 w0 Y6 u1 K
    On Error GoTo 10
/ ]+ g- }4 e5 K8 r    With ThisDrawing' c  s+ w: i( u* b* J9 ^% `
        Do '用循环方法输入任意多组数据
. E, E7 I8 I8 ~            S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串,格式为“点编号;一个或多个半角空格;点的横坐标;半角逗号;点的纵坐标;回车”/ u. R2 O& H9 {5 I9 t
            L = Len(S) '用函数获得字符串长度
; a+ Z( x/ J. L: F9 y# O            L1 = InStr(S, " ") '半角空格的位置1 E6 u& g: T2 k% @  \! x
            L2 = InStr(S, ",") '半角逗号的位置' _2 n! s: g/ u8 y/ ~
            If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
$ E* r9 b6 v% R- B                P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标" s( b% e6 X* \. W3 n8 A( o
                P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标
( ~! \0 Q. \0 G5 G8 o2 S  b* p                .ModelSpace.AddPoint P '画点. K4 E9 ^6 H9 I9 S- k3 H6 v
                .ModelSpace.AddText Left(S, L1 - 1), P, 2.5 '在点的同一位置写单行文字(点编号)
0 |: w  \3 g5 _, m7 X0 Q            Else '字符串不符合条件则退出,比如直接回车
* l5 }# N. v: @0 s9 {; A5 B+ E! {, ]                Exit Do
$ t$ J) o$ P$ _1 A; r            End If
3 \1 O1 M$ y# R' o6 F" O7 w        Loop+ E' Q. f% @7 T2 c6 B
    End With' f% T- ~' I5 y- v4 `, o
10: End Sub
9 {6 k; V8 o  I% Y' w, J. `  C$ V0 g' S2 r# [! Z8 B% Y, M# p
用Alt+F11打开VBA编辑器,双击“工程资源管理器”中的ThisDrawing对象,在代码窗口粘贴代码。见图1
5 j/ v, `" H) C1 q' r- y7 Y1 y  C7 ?5 m$ y- \" z0 `( O+ ~

图1

图1

8 l+ L- w* i$ G/ B4 D: d& T- u
2 A1 Q, h' c1 s( k& ^# {" u1 `  J回到CAD界面,Alt+F8打开“宏”对话框,点“运行”。见图2
8 h# h! V4 |3 e" ?9 Q8 j/ t4 [2 z3 o, P7 K$ a: |& f$ U( G, X

图2

图2
3 U; _  M8 p# t! ^0 H  ]

; R/ M2 b! V' P1 G% E& u& V& L; T% Q打开按代码中注释文字说明的格式准备好的数据,复制,见图3
+ }5 |% g: y: Q! A4 z
- W3 k# h3 ^6 n0 m/ @; p6 f

图3

图3
2 ?$ i  `' |! ]. E

' `# D+ O' w2 l/ X% M' j5 e& I3 i在命令行中粘贴。图4是粘贴前的命令行,图5是粘贴后的。由于数据中含有回车符,程序已开始执行,所以在图片上半部可以看到点已经画出来了,只是由于借用楼主的数据坐标值太大,以至于字高只有2.5的单行文字需要放大才能看见。见图6! p) {# ?. f# B
$ ~# ]% b2 s, ~. y1 }

图4

图4

- O/ x0 J2 R+ R3 L% z) d
' A9 x" h: s6 x, s* I

图5

图5
# Q. E0 `0 C7 Q

# }" e- p; _! L/ g8 J; s

图6

图6

0 Y3 A, _7 D+ J: ?! G: L
4 f6 n1 ?  G0 u) F此代码仅供参考。

评分

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

查看全部评分

发表于 2011-7-10 17:57:36 | 显示全部楼层 来自: 中国北京
很好,很强大!
发表于 2011-7-21 00:59:29 | 显示全部楼层 来自: 中国内蒙古呼和浩特
真的很不多谢谢哦
发表于 2013-2-16 12:19:08 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif) X. i) z3 f% K
楼主的意思是不是说:现在有一组类似“ZK2012     465432.56,15682413.44”的数据,想一次性输入这些数据, ...
9 Z3 B! V; F( _1 P& E) w* \
怎样把上面的代码弄成一个有命令的文件啊?有命令的话,就没有必要每次都要运行宏了,可以省略很多操作步骤。
发表于 2013-2-20 12:28:44 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif; H" ^5 N0 C6 m4 o6 N# M
楼主的意思是不是说:现在有一组类似“ZK2012     465432.56,15682413.44”的数据,想一次性输入这些数据, ...

* r, L  A' h' }+ Z  o/ l0 Q您好!使用您上面的代码,为什么每次启动CAD都会出现“文件已加载......”的对话框?有什么办法每次启动CAD都不要出现“文件已加载......”的对话框吗?还有就是,您上面的代码在CAD里使用是世界坐标系的,您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗?
发表于 2013-2-20 18:29:03 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2008-6-9 06:44 static/image/common/back.gif( S. q  Y- G) J9 b& D
楼主的意思是不是说:现在有一组类似“ZK2012     465432.56,15682413.44”的数据,想一次性输入这些数据, ...

( N, `9 h( U) z7 y( T" ?您好!我已经解决了每次启动CAD都不要出现“文件已加载......”的对话框。可您上面的代码在CAD里使用是世界坐标系的,您可以把上面的代码修改为在CAD里使用是当前自定义的坐标系吗?如果上面的代码修改后能在CAD里使用当前自定义的坐标系,那么就方便很多了,可以大大提高绘图效率。
发表于 2013-2-22 11:09:03 | 显示全部楼层 来自: 中国辽宁营口
  1. Sub A()
    ! m& W  g6 f' _2 K& [! S; P1 K
  2.     Dim S As String, L As Long, L1 As Long, L2 As Long, P(2) As Double, P1 As Variant
    7 w' G* _/ u  a- u" r
  3.     On Error GoTo 10
    6 ]: v2 s1 K. \% R7 F; [) ]2 a. r( J
  4.     With ThisDrawing
    % Z. `8 F. U* n2 i4 Q
  5.         Do '用循环方法输入任意多组数据; \- H% t& l' q' Z* {7 O
  6.             S = .Utility.GetString(100, vbCrLf & "输入数据:") '从命令行输入字符串,格式为“点编号;一个或多个半角空格;点的横坐标;半角逗号;点的纵坐标;回车”1 c+ G! k2 h% G& T2 ^0 o% P
  7.             L = Len(S) '用函数获得字符串长度3 L5 I6 N* j/ G7 s3 h7 E: Q$ Z
  8.             L1 = InStr(S, " ") '半角空格的位置) U8 k$ @7 Y! I. l
  9.             L2 = InStr(S, ",") '半角逗号的位置
      ^: Z/ I7 _. Q' Q) }% d1 C
  10.             If L1 > 1 And L2 > L1 + 1 And L2 < L Then '检查输入的字符串中是否含有半角空格和半角逗号及位置是否正确
    9 h% X% {% C6 ~9 r% c7 F4 v% y
  11.                 P(0) = CDbl(Mid(S, L1 + 1, L2 - L1 - 1)) '得到点的横坐标3 |' U+ d" E) T5 H; T3 l
  12.                 P(1) = CDbl(Mid(S, L2 + 1)) '得到点的纵坐标
    9 y6 `# d( a) s- A1 l* B2 q0 a
  13.                 P1 = .Utility.TranslateCoordinates(P, acUCS, acWorld, False) '把输入的点坐标从UCS转换到WCS
    % r! l+ J& h+ \* B& |. H  x
  14.                 .ModelSpace.AddPoint P1 '画点
    - P4 w) A) g5 H, [# W/ }. H
  15.                 .ModelSpace.AddText Left(S, L1 - 1), P1, 2.5  '在点的同一位置写单行文字(点编号)0 x/ F8 @4 W- H$ n6 @2 e
  16.             Else '字符串不符合条件则退出,比如直接回车
    ( p; D6 c4 q3 i
  17.                 Exit Do0 }+ y3 z. h5 Y1 O% C/ [
  18.             End If
    5 I( f' U5 @# o
  19.         Loop
    - A! U9 F( D6 _9 J/ w
  20.     End With
    * v' ^; ?8 B% J7 P3 J
  21. 10: End Sub
复制代码
发表于 2013-2-22 14:27:24 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
5 B5 p/ L% Q+ u3 X  y/ L
版主真是太厉害了!随心所欲、小菜一碟地就搞好了代码,佩服!佩服!这个代码非常强大!非常实用!
发表于 2013-2-23 12:03:03 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif

6 Q" [, O# `% J# n$ G; k* _请问您有AutoCAD VBA插件管理器吗?
发表于 2013-2-25 06:46:48 | 显示全部楼层 来自: 中国辽宁
本帖最后由 woaishuijia 于 2013-2-25 06:50 编辑 4 f6 E9 z( G9 }# R/ d# }; S

6 u3 @) U- O. h  \6 h, C没有这个东西,也不认为这种东西有什么用处,特别是在混合使用VBA和LSP及其它工具进行二次开发时.7 i/ k( F* X3 Q' m% ?, W% o! D2 \  ]: o
自动加载和运行二次开发程序的方法有多种,个人有个人的喜好,还是按照自己的特点自行编制管理程序为好--如果需要的话.
0 f9 C  Y% M# y6 T- p) Q6 E) f
2 Q$ {& k+ C. X; Z% gPS:不要重复发帖.本论坛只讨论编程技术,不提供无偿编程服务.参见《CAD三维及二次开发》版规及发帖规范
发表于 2013-5-8 10:03:54 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
8 K+ h# X: V* i) r( N3 S) N5 k/ p
您好!版主:
( v7 ^2 ~) ]9 e% x! T0 L7 T7 a# t请问上面的代码可以添加一个命令保存为dvb文件吗?如果有命令的话,就可以很方便地在CAD命令行里直接输入命令运行上面代码的dvb文件了,可以省略很多操作步骤。
发表于 2013-5-8 19:15:29 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-2-22 11:09 static/image/common/back.gif
: x0 y* n9 U  S/ R8 [- o
您好!您编写的上面代码可以弄一个命令保存为dvb文件吗?
发表于 2013-5-9 07:00:22 | 显示全部楼层 来自: 中国辽宁
fcm 发表于 2013-5-8 19:15 static/image/common/back.gif
% }, R) S9 ?8 t+ K您好!您编写的上面代码可以弄一个命令保存为dvb文件吗?

: r9 k+ a5 o, i3 Z参考这个帖子& u- k& m* @+ C( G
极限与配合公差标注程序(31楼,46楼更新)
% p9 A  g$ M# Y3 H
发表于 2013-5-9 19:02:19 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif
' U# a' O7 t2 n. I参考这个帖子" |- q. P4 `. K/ h& q& Q
极限与配合公差标注程序(31楼,46楼更新)

& \% p$ H9 }( \1 T* g您说的参考的帖子里是要路径的,我说的意思是:在CAD的宏里加载工程后,可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了,那么这个命令怎样弄出来啊?
发表于 2013-5-9 19:58:37 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-5-9 07:00 static/image/common/back.gif
" c/ R& F9 Y/ [2 A参考这个帖子9 i2 B1 A! Y: f& }* H& r, Y
极限与配合公差标注程序(31楼,46楼更新)

; r9 V- V% q2 E& C" |' _我说的意思是:在CAD的宏里加载工程后,可以在CAD命令行里直接输入命令就可以运行上面那代码的dvb文件了,不是用lsp文件来引导的,那么这个命令怎样弄出来啊?
发表于 2013-5-10 01:29:29 | 显示全部楼层 来自: 中国天津
在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只是前一个在对话框中指定宏名称,而后一个是在命令行中输入.& b/ l# W, r5 v8 j6 a
用LISP引导,或是在CAD中"自定义"命令宏,都可以实现把上面两个步骤合二为一,从而简化操作--即只需输入一个自定义命令就能运行指定的VBA宏--的目的.
. S( r- ^6 ]) A4 R寄希望于VBA本身实现这一功能则是行不通的,因为绝大多数VBA宏都需要通过上面的两个步骤才能执行它而无论它的内容是什么.8 Q7 k) l& K3 _# S" w( d( X9 X
只有一个例外,在2012及以前版本中,如果这个宏被保存在CAD支持文件目录下的"ACAD.DVB"工程文件中,且被命名为"ACADSTARTUP",这个宏在CAD首次加载VBA模块时就会被执行.在2013SP1和2014版本中,这个功能需要用户的授权.
发表于 2013-5-10 08:41:00 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-5-10 01:29 static/image/common/back.gif8 P+ `+ A1 _$ e+ j9 ^% f+ S
在CAD中运行已加载的VBA宏,只能用"VBARUN"或"-VBARUN"命令先启动VBA,然后再指定宏名称.这两个命令的不同点只 ...
5 F+ l* i$ R( k; {0 [! j* Q
您好!请问在CAD中"自定义"命令宏是怎样弄的啊?
发表于 2013-5-11 06:58:19 | 显示全部楼层 来自: 中国辽宁
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.# U$ B5 k0 [, M. h$ F2 |
"宏"是一个或多个命令以及参数的组合.9 n. L' D7 Z' D& C8 u( L8 D" A- K
在CAD中可以用多种方法创建不同的宏.比如用VBA编写的程序就是宏的一种(为与用其它方法创建的宏相区别,我们可以称其为VBA宏),用LISP编写的函数也是宏(可以称为LISP宏).不记得从哪个版本开始,CAD还提供了"动作录制器"由用户自己录制,播放和管理宏(可以称为录制宏).当然,我们平时最多用到的是用CAD自己的语言编写的宏.之所以说它是我们平时最多用到的,是因为我们在绘图时点击菜单项或工具按钮,就是在使用CAD的宏.: d* b: }- h: N6 B
比如,我们点击"绘图"菜单 > "圆" > "相切、相切、相切".CAD的命令行提示:
! Y6 A. y$ j/ c$ S5 T
. F# B. h$ I3 W2 l* O" s命令: _circle
5 c0 E1 m' r3 I+ O9 [/ I) G指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p 指定圆上的第一个点: _tan 到

2 y9 y- h0 I2 y# Q1 J# B! x( G* A1 d  n: |$ D3 l* C( c
我们可以看到,在这个"三相切画圆"宏中,首先是调用CAD的画圆命令"circle",然后CAD替我们输入了"3p"关键字,指定了"三点"画圆方式.当命令行提示"指定圆上的第一个点:"时,又替我们输入了"tan"关键字,指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第一个切点.: I% T1 x' T# a- c( d
当我们指定了第一个切点后,CAD命令行继续提示
* Q0 }% q# Y. Q1 C7 |. j
, W% B5 O% j# `指定圆上的第二个点: _tan 到3 ?7 F4 G" O$ s' V  z
! {+ n6 q" l* }2 A
CAD再次替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第二个切点.
4 @; W. M5 Z% [. x. Q当我们指定了第二个切点后,CAD命令行继续提示
  m1 N6 G6 g* r. y" R0 n) W$ H# {. E% H3 C" N# l
指定圆上的第三个点: _tan 到# z# h, b3 n( T1 `4 t! X+ S- R5 d) i
% V) ]4 F1 {$ d; {
CAD又替我们输入了"tan"关键字指定了对象捕捉方式为"切点",然后等待我们在屏幕上指定第三个切点.
$ O+ C+ E0 o2 N6 k! G) N7 B# t: J, @3 l% E5 N' N
现在我们打开CAD的自定义界面,在命令列表中找到"圆, 相切、相切、相切",可以看到这个宏的完整内容"^C^C_circle _3p _tan \_tan \_tan \ "" I8 n( r/ ]* k8 ?) F/ g$ W
不同CAD版本的自定义界面也都不太相同,但都可以找到上面的内容.
" S& y3 q0 B+ d这个宏当中,"^C"是特殊字符,其含义是"取消活动的命令或命令选项"(相当于 ESC);
; A: C- x5 F4 W7 ?8 g/ K& h; a$ r"_circle _3p _tan "与我们在命令行输入的命令和参数一样,"circle",空格键,"3p",空格键,"tan",空格键;, C0 d, }- u! T7 R* f( U! V$ U" V
"\"也是一个特殊字符, 其含义是"暂停以等待用户输入"., A. E# Q) W6 c" z3 Q( z
这个宏只是CAD为我们编写的大量的宏中的一个.我们可以在自定义界面编辑修改它--如果我们对它不太满意的活.还可以创建一个新命令使用自己的宏." B+ z4 |' T% H
比如,我们创建一个新命令"命令一",为它制做一个图标并把它插入到某个工具栏或菜单中.再为它编写如下的宏:
0 H8 l: _" `- N/ l+ {& G
3 T4 ^# X0 S( ?+ g& t+ l6 F^C^C_-VBARUN E:/AutoCAD/二次开发/型钢/型钢.dvb!xg;  B5 o4 k1 {8 v6 G
2 i8 r' M7 J$ `- ^0 }  e6 U, u5 E7 o
这个宏的含义是"-VBARUN"命令,空格键,VBA工程文件的路径和宏名称"E:\AutoCAD\二次开发\型钢\型钢.dvb!xg",回车.
. ~4 h; q- t9 @* A4 e5 r' V0 c保存后,在图形界面绘图时,只要用鼠标点击这个工具按钮或菜单项,CAD就能直接运行"E:\AutoCAD\二次开发\型钢\型钢.dvb"VBA工程文件中的"xg"过程.
( [  a8 N) z* y- t在这个宏中,文件路径分隔符使用了"/"而不是"\"--前面已经说到了"\"代表"暂停以等待用户输入".在CAD命令宏中的路径分隔符要用"/";
+ T/ |* @) W5 H! s$ N. K# ^宏的结尾是一个";",特殊字符,代表回车.
( U, F% H& I( |; O( S9 A# ~4 \: C, w- t  e& @
关于如何在自定义界面中创建命令,以及更多的命令宏编写方法和特殊字符,在CAD帮助文件中的《自定义手册》> "自定义用户界面" > "自定义命令" 中有详细的说明,可以自行参考学习.
发表于 2013-5-11 08:22:04 | 显示全部楼层 来自: 中国广西梧州
本帖最后由 fcm 于 2013-5-11 10:07 编辑   W- T8 o9 }# K+ ?
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif# l( d+ L; O1 k) e. ^5 v* t% o* O
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.. p& w$ @2 p  _1 C. r/ U
"宏"是一个或多 ...
* k8 K  A" D7 w, {9 ~+ G2 n1 z/ a
谢谢版主精彩的回答!版主说的很详细、很耐心、很负责!不过您说的编写的宏路径不能把dvb文件放在桌面
发表于 2013-6-14 08:52:24 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif) [1 `# @5 j5 z, h  W# a% P6 N
这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.( U+ c, C" E: `! v
"宏"是一个或多 ...

/ V; Q0 t6 @7 A1 N( A* c, `版主:您好!可以请教您一个问题吗?8 [5 o0 X7 s, U
用OpenDCL制作的CAD对话框,对话框里的文字按钮怎样关联CAD外挂程序的命令?当一点击对话框里的文字按钮就可以运行CAD的外挂程序。
发表于 2013-6-19 16:19:06 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-5-11 06:58 static/image/common/back.gif
( x$ @- i2 p& j, K+ d; b, P这个问题无法用几句话说清楚,因为它包含的内容足够写一本书了.在这里只能做一点简单的介绍.' W- Z9 M1 I& S* t
"宏"是一个或多 ...
1 p' R) z4 \0 W1 i0 p& ]0 T
您好:用OpenDCL制作的CAD对话框,对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令?当一点击对话框里的文字按钮就可以运行CAD的外挂程序DVB文件。
发表于 2013-6-19 22:35:34 | 显示全部楼层 来自: 中国浙江杭州
fcm 发表于 2013-6-19 16:19 static/image/common/back.gif6 J" ]! c  q- a0 ~1 v; y
您好:用OpenDCL制作的CAD对话框,对话框里的文字按钮怎样关联CAD外挂程序DVB文件的命令?当一点击对话框 ...
0 t. O/ K4 ~) H: Q% ~3 D0 }
抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
发表于 2013-6-20 08:25:51 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif! x6 N1 S5 R8 a+ {
抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
- v) R. M2 s) _0 ?3 H, k
版主:您好!0 P% x3 ]) g# a! Q
怎样用VBA做对话框呢?用VBA做的对话框面板里有按钮吗?那按钮可以关联CAD外挂程序的命令吗?(即一点击按钮就能运行CAD外挂程序,可以实现这样吗?)
发表于 2013-6-21 17:03:06 | 显示全部楼层 来自: 中国广西梧州
woaishuijia 发表于 2013-6-19 22:35 static/image/common/back.gif
% H* O! ?! i: X& b4 n) K抱歉.我从不使用DCL做对话框,对这方面没有研究.我只用VBA做对话框,因为它的用户窗体功能更强大.
% Q( t  L0 K" J) ]
版主:您好!您看到我的问题了吗?6 ?  T  `# C& u" A, e
怎样用VBA做对话框呢?用VBA做的对话框面板里有按钮吗?那按钮可以关联CAD外挂程序的命令吗?(即一点击按钮就能运行CAD外挂程序,可以实现这样吗?)
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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