[求助]标注问题

鬼魔

最近接了套扇形建筑，标注大部分都是对齐标注，修改起来极不方便，哪位朋友能帮编个，对齐标注转线性标注 和线性标注转对齐标注。

在下先谢了。

英雄无敌

我试着编了一个，但发现在2004下用不了，在R14下却可以用，也不知道为什么，可能2004与R14的结构不一样了。

如果能找到2004以上的方法更好，但我帮不了你了，如果不行，你可以将你的图形转为R14，再用R14打开，修改好尺寸后再用2004或以上的打开。但不要用转换器，用2007另存为R14。你也可以把图放上来，我可以给你转。

英雄无敌

修改了一下，这个可在2004下使用了，在其它未做调试。

英雄无敌

又修改了一下，原来这样也行！

当然，这样改尺寸是会变的，不变是不可能的，不然就不是实际尺寸了。

 

鬼魔

我试了下06的不行，找了个04的，转换了标注会乱跳

 我现在只能用线性标注去旋转角度，工作量挺大

英雄无敌

那试试这个吧，这个将你原来的尺寸删除，而新建一个，我用entmod不能成功，改用了entmake

(defun c:g-l (/ ss n lst)
  (setq ss (ssget '((0 . "dimension"))))
  (if ss
    (progn
      (setq n 0)
      (repeat (sslength ss)
 (setq lst (entget (ssname ss n)))

 (setq ang (angle (cdr (assoc 13 lst)) (cdr (assoc 14 lst))))
 (setq lst
        (list

   (assoc 0 lst)
   '(100 . "AcDbEntity")

   '(100 . "AcDbDimension")
   (assoc 2  lst)
   (assoc 10 lst)
   (assoc 11 lst)

   '(70 . 32)
   (assoc 1 lst)
   (assoc 3 lst)
   '(100 . "AcDbAlignedDimension")
   (assoc 13 lst)
   (assoc 14 lst)
   (cons 50 ang)
   '(100
     .
     "AcDbRotatedDimension"
    )
        );list

 );setq

 (entdel (ssname ss n))
        (entmake lst)
 (setq n (1+ n))
      );repeat
    );progn
  );end if
(princ"\n转换完成！")
  (princ)
)

英雄无敌

上面那个我在2007下试了，可以用，如果要将线性改为对齐，可用下面的代码，但尺寸位置可能就变了。

(defun c:l-g (/ ss n lst)
  (setq ss (ssget '((0 . "dimension"))))
  (if ss
    (progn
      (setq n 0)
      (repeat (sslength ss)
 (setq lst (entget (ssname ss n)))

;;; (setq ang (angle (cdr (assoc 13 lst)) (cdr (assoc 14 lst))))
 (setq lst
        (list

   (assoc 0 lst)
   '(100 . "AcDbEntity")

   '(100 . "AcDbDimension")
   (assoc 2  lst)
   (assoc 10 lst)
   (assoc 11 lst)

   '(70 . 33)
   (assoc 1 lst)
   (assoc 3 lst)
   '(100 . "AcDbAlignedDimension")
   (assoc 13 lst)
   (assoc 14 lst)
   (cons 50 0)
;;;   '(100
;;;     .
;;;     "AcDbRotatedDimension"
;;;    )
        );list

 );setq

 (entdel (ssname ss n))
        (entmake lst)
 (setq n (1+ n))
      );repeat
    );progn
  );end if
(princ"\n转换完成！")
  (princ)
)

鬼魔

感谢英雄无敌帮了我大忙

线性转对齐时，长短脚不一样确实会乱跳，幸好我有剪标注线的

非常好，再次QQQ英雄无敌

英雄无敌

能给你带来方便我也很高兴，在这个过程中我也学到了不少，有些东西当你无法ENTMOD的时候，你可以ENTMAKE它。

英雄无敌

修改了一下，修正了线性转对齐时，标注会改变的问题，但程序是以保留第14脚，修改第13脚的位置来实现的，没有采用保留短脚或长脚的方法，但可以实现。