|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
如下一段代码,如将插入点设在第三象限,插入的对象才会出现在第一象限,且其位置不但与插入基点有关,而且与比例也有关系
! |1 ~1 k9 F/ z. W" N# v7 J1 s0 Q: V8 ]1 Y k8 U' n
这是不是BUG呢?貌似这样设置没有任何好处啊
0 }+ s w. }5 |/ H0 P
" { k% J; v- P! w+ w8 o) w) ?" r4 f3 U
( `9 e% t8 }/ _- Dim importFile As String
/ u7 v9 G2 M! T7 C- U# V B6 P ~ - Dim p1(0 To 2) As Double
4 Q( C7 g7 C v% [ - Dim scalefactor As Double6 a/ j8 C7 p" L! Z/ x
- importFile = "d:\import.dxf" ' Adjust path for your system8 P3 A: h% R# Y% _3 _0 d
- p1(0) = -10000: p1(1) = -10000: p1(2) = 0
+ z' \+ l/ y- C( W N! P - scalefactor = 30 t2 P2 j& i( m) f5 W
- ThisDrawing.Import "C:\Program Files\uelevator\block2.dxf", p1, 22 R" [# Q' Q, h9 Q1 b& C! Y4 g
- , Q: ^0 F x$ U. i; W$ D
- ' Import the file% V( B+ Y9 ^: P k# d2 P: ?; k
- ThisDrawing.Import importFile, p1, scalefactor9 Q, p/ A& o, Z; Q- D ]1 u
- ZoomAll
3 Z) O6 {, c a- N1 ?6 h' Y - ' Scal = 50
, J% j$ }/ [( Z) x. s& _) W$ ~
复制代码 |
|