SS.SelectOnScreen ft, fd在CAD2011中不能选择的问题

koutx · 发表于 2011-4-17 13:57:10

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

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

x

.....................
..................
'定义选择的对象为直线对象，创建选择集并由用户在屏幕上选择 ft(0) = 0 fd(0) = "line"
................
.................
Set SS = .SelectionSets.Add("SS")
If Err.Number <> 0 Then
Err.Clear
Set SS = .SelectionSets.Item("SS")
SS.Clear
End If
.............
...........
SS.SelectOnScreen ft, fd
在CAD2011中不能在窗体上选择直线.。连光标都不是选择用的小方块，而是CAD的十字光标。
（但是， SS.Select acSelectionSetAll, , , ft, fd '选择所有直线）却能用。
如何解决？请woaishuijia老师帮助。谢谢

woaishuijia · 发表于 2011-4-18 11:39:01

代码本身没发现问题,我在2011上运行上面的代码也没有问题.

koutx · 发表于 2011-4-18 22:08:57

本帖最后由 koutx 于 2011-4-18 22:10 编辑

谢谢版主指导，我发现好象是在2010或2011，甚至是2007下，为了在ACCESS VBA中随时显示对话框而加入的acadAPP.visable=False 和acadAPP.visable=True两个语句有关系，经常造成程序到SS.SelectOnScreen ft, fd一句时，不等候你在窗体选择就往下运行了。而在CAD2004下就没关系。
不知理解对不对，可又如何解决这个问题呢？
麻烦版主再予指导。

woaishuijia · 发表于 2011-4-19 10:22:50

的确与 acadAPP.visable=False 有关.因为此时主窗口不可见,SS.SelectOnScreen ft, fd 就会出错.如果你程序中有错误处理语句,比如 On Error Resume Next,程序就会越过出错的屏幕选择语句向下进行.
解决的办法就是,在屏幕选择之前一定要保证CAD窗口是可见的

koutx · 发表于 2011-4-19 16:42:59

谢谢版主，是你在二楼的一席话，坚定了我接着试着调改下去的信心。按您在四楼的办法，精简了一些不必要的=True和=False后，通过了。多谢了。预祝版主五一节愉快，全年运运亨通。刚学不久，有不懂的还会再麻烦你的。

		自动登录	找回密码
密码			注册

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知

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

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