QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
.....................$ D# b" ^0 M3 E; I6 Q) s, L! g
.................." n8 x5 w9 A* Y2 {- K3 |
'定义选择的对象为直线对象,创建选择集并由用户在屏幕上选择 ft(0) = 0 fd(0) = "line" - ~" ^- I! ]8 r0 n+ R) Y
................
" |  ~; k# P% A  A.................
! K" b3 D/ C$ E' x9 W& U/ oSet SS = .SelectionSets.Add("SS")
2 d# n+ G  Q% v; E  m4 S- ]! vIf Err.Number <> 0 Then
& ]" d+ `: T- c$ V2 n# u1 X2 Q9 ?Err.Clear 2 l' R  {0 o# v
Set SS = .SelectionSets.Item("SS")
/ @/ v, X+ d" rSS.Clear
' D1 o# |8 a& Q8 X) v2 I. V( l# DEnd If 5 n7 U- \! \* u" r" A3 i' `* z
............./ t. }# k9 x5 A
...........* A* Y& e4 |7 U
SS.SelectOnScreen ft, fd) X) ^' r# X& r+ z. z. R
在CAD2011中不能在窗体上选择直线.。连光标都不是选择用的小方块,而是CAD的十字光标。, Y- C( X: M& W% _7 s+ d
(但是, SS.Select acSelectionSetAll, , , ft, fd '选择所有直线)却能用。0 _  v6 S1 E% z2 v
如何解决?请woaishuijia老师帮助。谢谢
发表于 2011-4-18 11:39:01 | 显示全部楼层 来自: LAN
代码本身没发现问题,我在2011上运行上面的代码也没有问题.
 楼主| 发表于 2011-4-18 22:08:57 | 显示全部楼层 来自: 中国北京
本帖最后由 koutx 于 2011-4-18 22:10 编辑 ! I1 v6 V+ P+ D- E/ n. P3 V
6 Z, ^% V" \# w- B9 K5 X
谢谢版主指导,我发现好象是在2010或2011,甚至是2007下,为了在ACCESS  VBA中随时显示对话框而加入的acadAPP.visable=False  和acadAPP.visable=True两个语句有关系,经常造成程序到SS.SelectOnScreen ft, fd一句时,不等候你在窗体选择就往下运行了。而在CAD2004下就没关系。
7 R* D/ D6 R+ l- `! }不知理解对不对,可又如何解决这个问题呢?
$ ?: A* s0 V6 ^$ i% c9 }  q9 X4 k3 I麻烦版主再予指导。
发表于 2011-4-19 10:22:50 | 显示全部楼层 来自: 中国云南保山
的确与 acadAPP.visable=False  有关.因为此时主窗口不可见,SS.SelectOnScreen ft, fd 就会出错.如果你程序中有错误处理语句,比如 On Error Resume Next,程序就会越过出错的屏幕选择语句向下进行.6 F- i9 g6 R2 N* b# c2 f
解决的办法就是,在屏幕选择之前一定要保证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 )

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