我用VB写的选择及程序如下:
3 A% z/ X R( I# @# b Set AcadDocs = AcadApp.Documents
% w$ M, D+ |4 c: c: {9 o8 h Set AcadDocs = AcadDocs.Open(Standardpath)5 n3 d% j* M' e( _. k6 C
AcadDocs.Utility.Prompt vbCr & "选择要录入的标准件明细:"
- d( V6 z* U8 t" q3 U0 ?4 g& j
4 v; Y3 P5 Y3 f, ]2 j5 w! ^$ J; [ Set Selset = AcadDocs.SelectionSets.Add("Standard"), i# u8 r" s5 K; M
FType(0) = 02 ~* r8 ?# u2 B# b: b$ S
FData(0) = "*TEXT"2 A& p" ^; N8 t2 I( r
Selset.SelectOnScreen FType, FData/ L% {9 b' M5 F9 [# F
执行时在已打开的CAD图中进行选择,请问能否得到选择集第一点的坐标或者说能否得到所选区域左上角点的坐标?
- H0 O+ B1 V( _# f \" w( ]请不吝赐教,谢谢! |