QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3295|回复: 4
收起左侧

[已答复] SS.SelectOnScreen ft, fd在CAD2011中不能选择的问题

[复制链接]
发表于 2011-4-17 13:57:10 | 显示全部楼层 |阅读模式 来自: 中国北京

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

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

x
.....................
; m9 n' ~' W" i% _..................
4 ?: [1 I5 p% u1 X3 M9 D1 w'定义选择的对象为直线对象,创建选择集并由用户在屏幕上选择 ft(0) = 0 fd(0) = "line" 7 Z) ?7 k7 P* |
................
* J6 G1 T. T8 o* s/ @: d6 L.................
7 c% o) t4 s2 D. PSet SS = .SelectionSets.Add("SS") & B  W+ g+ C$ q$ v9 E; r' s( E8 v
If Err.Number <> 0 Then
1 ?8 ]$ Y# J7 {' i0 ZErr.Clear
4 f' f' m' k: {1 K7 QSet SS = .SelectionSets.Item("SS") 3 n: g) T9 @  @
SS.Clear ( g1 A9 S' I+ ]2 \" ^
End If
8 [5 \1 T2 Q# o) D$ w* r; s4 u.............
9 w/ h5 \* W# B4 d...........
' h2 s+ ^% t4 {& {: sSS.SelectOnScreen ft, fd* d8 F# d+ P" x$ b5 H
在CAD2011中不能在窗体上选择直线.。连光标都不是选择用的小方块,而是CAD的十字光标。# E: ~2 B) ~, \! {
(但是, SS.Select acSelectionSetAll, , , ft, fd '选择所有直线)却能用。. l3 @5 h2 G4 ], a1 E
如何解决?请woaishuijia老师帮助。谢谢
发表于 2011-4-18 11:39:01 | 显示全部楼层 来自: LAN
代码本身没发现问题,我在2011上运行上面的代码也没有问题.
 楼主| 发表于 2011-4-18 22:08:57 | 显示全部楼层 来自: 中国北京
本帖最后由 koutx 于 2011-4-18 22:10 编辑 + m1 U4 c/ \8 T" n) Q
0 S1 _" O9 v' Y5 I' \( Q
谢谢版主指导,我发现好象是在2010或2011,甚至是2007下,为了在ACCESS  VBA中随时显示对话框而加入的acadAPP.visable=False  和acadAPP.visable=True两个语句有关系,经常造成程序到SS.SelectOnScreen ft, fd一句时,不等候你在窗体选择就往下运行了。而在CAD2004下就没关系。) k. M) @+ }9 A) F. p
不知理解对不对,可又如何解决这个问题呢?$ z7 g( `* B+ z* F6 Z+ g
麻烦版主再予指导。
发表于 2011-4-19 10:22:50 | 显示全部楼层 来自: 中国云南保山
的确与 acadAPP.visable=False  有关.因为此时主窗口不可见,SS.SelectOnScreen ft, fd 就会出错.如果你程序中有错误处理语句,比如 On Error Resume Next,程序就会越过出错的屏幕选择语句向下进行.
& w4 E( S7 }) G' o; B解决的办法就是,在屏幕选择之前一定要保证CAD窗口是可见的
 楼主| 发表于 2011-4-19 16:42:59 | 显示全部楼层 来自: 中国北京
谢谢版主,是你在二楼的一席话,坚定了我接着试着调改下去的信心。按您在四楼的办法,精简了一些不必要的=True和=False后,通过了。多谢了。预祝版主五一节愉快,全年运运亨通。刚学不久,有不懂的还会再麻烦你的。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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