|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
如下一段代码,如将插入点设在第三象限,插入的对象才会出现在第一象限,且其位置不但与插入基点有关,而且与比例也有关系
# V! k, ]8 E O) T6 }+ | ?/ T! r. s% J0 H2 `+ x4 J: h# f" I
这是不是BUG呢?貌似这样设置没有任何好处啊
9 Q3 v5 s. i/ _. x/ h: w) x; V& p8 r* ], D, M! f: J
0 u/ V* L1 P" G0 ^- * `' p% N% h* v5 B& c( ?) i! ?
- Dim importFile As String. I+ s+ h- w# O
- Dim p1(0 To 2) As Double
3 e+ z% ^2 m2 ? - Dim scalefactor As Double
5 L6 m& P6 o9 W9 b - importFile = "d:\import.dxf" ' Adjust path for your system! h; p6 A, T: R( p1 C( u5 |1 ` E
- p1(0) = -10000: p1(1) = -10000: p1(2) = 01 A% X3 t* r5 b) q4 ]: c0 m% C
- scalefactor = 3
: I, v* q1 ]. T' f9 o# G - ThisDrawing.Import "C:\Program Files\uelevator\block2.dxf", p1, 2' ^3 A* h5 q) o( I& u7 q, e4 r0 T
-
: r( e: T- {3 _$ n& d - ' Import the file
{' s! ?& ]; O7 j$ k- p; ~8 e - ThisDrawing.Import importFile, p1, scalefactor
3 ~ ~" r2 c/ K t+ k: v: R, Y3 ? - ZoomAll, l U! J# l/ M! s3 a! `
- ' Scal = 50* x8 B8 Q* n% s/ m$ W
复制代码 |
|