|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
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老师帮助。谢谢 |
|