QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
.....................
7 e9 H4 k% C' W6 a6 O& u' }..................
- S0 d8 j! N5 U3 B. j4 a'定义选择的对象为直线对象,创建选择集并由用户在屏幕上选择 ft(0) = 0 fd(0) = "line" 5 |1 a# G8 R. v0 \6 w
................0 D: l2 B& C6 {$ g" t) ?$ x
.................7 C4 C$ D) x: F  s" j3 I
Set SS = .SelectionSets.Add("SS")
5 ]# Y' m  B. [6 D( d. @If Err.Number <> 0 Then # S3 v4 C' [; C' y& {+ E
Err.Clear * D! j( l. \5 f+ E+ C2 x0 Q
Set SS = .SelectionSets.Item("SS") 1 V3 b& n1 M! U0 d; J1 X
SS.Clear
! S% K, F- e8 zEnd If
. h8 g& Q; i4 S3 ~0 X0 g3 q# J" b.............7 D5 X7 r! x+ s% k: _' I* |
...........
  S8 {" ^2 h% e, }5 KSS.SelectOnScreen ft, fd1 n4 u4 P3 ?. R' ^; G- h
在CAD2011中不能在窗体上选择直线.。连光标都不是选择用的小方块,而是CAD的十字光标。
1 t* B! ^* B! h8 Q! c(但是, SS.Select acSelectionSetAll, , , ft, fd '选择所有直线)却能用。
/ q- Y6 n7 l3 O) F, a如何解决?请woaishuijia老师帮助。谢谢
发表于 2011-4-18 11:39:01 | 显示全部楼层 来自: LAN
代码本身没发现问题,我在2011上运行上面的代码也没有问题.
 楼主| 发表于 2011-4-18 22:08:57 | 显示全部楼层 来自: 中国北京
本帖最后由 koutx 于 2011-4-18 22:10 编辑
% k# h9 N- Y! F- A: V$ B# S6 _5 a; K) N" @; F! F- C
谢谢版主指导,我发现好象是在2010或2011,甚至是2007下,为了在ACCESS  VBA中随时显示对话框而加入的acadAPP.visable=False  和acadAPP.visable=True两个语句有关系,经常造成程序到SS.SelectOnScreen ft, fd一句时,不等候你在窗体选择就往下运行了。而在CAD2004下就没关系。9 S1 h% M+ [2 P3 b
不知理解对不对,可又如何解决这个问题呢?
( u' h' {4 F+ M麻烦版主再予指导。
发表于 2011-4-19 10:22:50 | 显示全部楼层 来自: 中国云南保山
的确与 acadAPP.visable=False  有关.因为此时主窗口不可见,SS.SelectOnScreen ft, fd 就会出错.如果你程序中有错误处理语句,比如 On Error Resume Next,程序就会越过出错的屏幕选择语句向下进行.1 ?' H2 f# S. p( Q" e
解决的办法就是,在屏幕选择之前一定要保证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 )

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