VBA:import方法导入文件，位置总不对

157787698

如下一段代码，如将插入点设在第三象限，插入的对象才会出现在第一象限，且其位置不但与插入基点有关，而且与比例也有关系

7 X+ U/ b; |% i) u$ d0 {* X这是不是BUG呢？貌似这样设置没有任何好处啊
# A& l& ?  t) _# h: O% x

% i, Y+ W; w: O+ D

1. 
   
2. Dim importFile As String
   6 a$ c0 U. S( B  n8 \8 Q- T# s
3.     Dim p1(0 To 2) As Double
   $ d: Q3 W1 C  t) n3 m
4.     Dim scalefactor As Double
   5 _9 R' h$ r8 [2 [9 Z, Z8 |
5.     importFile = "d:\import.dxf"  ' Adjust path for your system
   4 S" \* A: P, `" @# S
6.     p1(0) = -10000: p1(1) = -10000: p1(2) = 0
   & I+ [% I9 j9 ~. `) v$ R+ J3 w
7.     scalefactor = 3
   / G" \6 ^) N5 U* G8 V9 T* q7 K
8.     ThisDrawing.Import "C:\Program Files\uelevator\block2.dxf", p1, 2
   
9.    
   5 K* n  g, Z1 w9 @3 V0 ]
10.     ' Import the file
    ' m2 e2 z5 d# |/ k( s  O
11.     ThisDrawing.Import importFile, p1, scalefactor
    2 Y# l: _3 K3 Y# d8 }4 E3 l9 F
12.     ZoomAll
    
13. '    Scal = 50
    4 n9 r- O& f( D

复制代码

woaishuijia

你是对的.插入点只能选择原点,否则会出现意想不到的问题

157787698

通过测试发现，插入点坐标值要考虑插入比例，即待插入点坐标值除以插入比例得到的值就是插入点；
而如果要将对象插入到第一象限，在其插入坐标要取其关于原点的对称坐标点
+ J) ^' D- A5 p2 u* r; z
比如目标插入点为（100，-200,0），插入比例为5
则带入import方法的点应该是（-20,40,0）

woaishuijia

不对吧?不知你是用哪个版本尝试的.
( F& I+ P# B/ H3 v我尝试的结果是:
1.当比例不等于零时
# \+ {4 U; U5 G) b3 p( Z. v  M% l实际插入结果点="插入点"*(1-比例)...... 含负比例
# j# h( z1 L3 U- o+ A5 p6 v5 K即:当比例为1时,无论"插入点在哪里,输入的图形都将出现在原点;当比例不为1也不为0时,可以按 "插入点"=预期插入点/(1-比例) 计算.
  B, {. u7 z/ p' f. \; y" H2.当比例等于零时
7 l' E4 j$ k* b- [二维多段线将出现在原点;其它对象(仅仅指我尝试过的对象)仍符合上式.此时,如果对象是块参照,而块定义中含有标注对象(比如转角标注),炸开该块参照后,转角标注会变得不可思议:尺寸界线的原点在插入点,而尺寸线和文字会跑到原点......乱套了,呵呵.

157787698

06/08/10都有，而且已经在使用中，不止我一个人，几个出图的同事都在用，没有发现问题，当然我的比例总是正比例，不会出现零比例或者负比例

cbmpeter

woaishuijia 发表于 2011-8-18 16:54
) V- @* D) z( o9 T/ Y不对吧?不知你是用哪个版本尝试的.
" [6 q1 ^# n6 o0 b% N我尝试的结果是:
( K1 p* c' b: R  T* H- g1.当比例不等于零时

测试结果与你相同。困扰了我好一阵。