[已解决]哪位编个转换AcDbAlignedDimension为AcDbRotatedDimension对象的程序?

e2002

一直搞不懂为何 Tangent /Thsware 的图上那些线性尺寸标注对象要用 AcDbAlignedDimension ? 一拖动标注的那个点,就凌乱了....

哪位能写个程序, 转换AcDbAlignedDimension为AcDbRotatedDimension对象?要求生成一个和之前对象各种特性相同.

Gu_xl

问题的关键在组码70:
70
标注类型：
值 0-6 是整数值，表示标注类型。值 32、64 和 128 是添加到整数值的位值（在 R13 及以后的版本中始终设置为 32）
0 = 旋转、水平或垂直；1 = 对齐
2 = 角度；3 = 直径；4 = 半径
5 = 三点角度；6 = 坐标
32 = 表示块参照（组码 2）仅由该标注参照。
64 = 坐标类型。这是一个位值（位 7），仅与整数值 6 一起使用。如果设置该值，则坐标为 X 类型；如果不设置，则坐标为 Y 类型。
128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）
代码示例

1. (defun c:tt()
   
2.   (setq dim (car(entsel)))
   
3.   (if dim
   
4.     (progn
   
5.       (setq enl (entget dim '("*")))
   
6.       (if (member '(100 . "AcDbAlignedDimension") enl)
   
7.         (progn
   
8.           (if (not (member '(100 . "AcDbRotatedDimension") enl))
   
9.             (progn
   
10.               (setq enl (vl-remove-if '(lambda (x) (or (= -1 (car x)) (= 330 (car x)) (= 5 (car x)) (= 2 (car x)))) enl))
    
11.               (setq enl (append enl '((100 . "AcDbRotatedDimension"))))
    
12.               (setq enl (subst (cons 70 (1- (cdr (assoc 70 enl)))) (assoc 70 enl) enl))
    
13.               (entmake enl)
    
14.               (entdel dim)
    
15.               )
    
16.             )
    
17.           )
    
18.         )
    
19.                   
    
20.       )
    
21.     )
    
22.   (princ)
    
23.   )
    

(defun c:tt()<br />   (setq dim (car(entsel)))<br />   (if dim<br />     (progn<br />       (setq enl (entget dim '("*")))<br />       (if (member '(100 . "AcDbAlignedDimension") enl)<br />         (progn<br />           (if (not (member '(100 . "AcDbRotatedDimension") enl))<br />             (progn<br />               (setq enl (vl-remove-if '(lambda (x) (or (= -1 (car x)) (= 330 (car x)) (= 5 (car x)) (= 2 (car x)))) enl))<br />               (setq enl (append enl '((100 . "AcDbRotatedDimension"))))<br />               (setq enl (subst (cons 70 (1- (cdr (assoc 70 enl)))) (assoc 70 enl) enl))<br />               (entmake enl)<br />               (entdel dim)<br />               )<br />             )<br />           )<br />         )<br />                   <br />       )<br />     )<br />   (princ)<br />   )<br />

zdqwy19

学习           

e2002

发现个问题:当AlignDim对象角度 /= 0 时结果不符合要求,正在修改中

xiaxiang

不知道如何转换，非常高深，特来学习

e2002

2. ;;;本程序大家可随意使用,修改.
   
3. ;;;原作者 : Gu_lx @ mjtd
   
4. ;;;本修改版作者 : e2002 @ mjtd
   
5. 
   
6. (defun C:lkpt_Dimension_Align2Rotated ( / ss ss-list en el p13 p14 ang gcode)
   
7.   (princ "\nConvert "Aligned Dimension" objects to "Rotated Dimension" objects.")
   
8.   (while (progn
   
9.            (princ "\nSelect "Aligned Dimension" objects:")
   
10.            (setq ss (ssget ":L" '((0 . "DIMENSION") (-4 . "＜OR") (70 . 33) (70 . 161) (-4 . "OR＞")(100 . "AcDbAlignedDimension")))) ;;!!!另存文件后,此处过滤条件中 "OR" 字符前后的的大于，小于符号要改为英文的!!!
    
11.          )
    
12.     (setq ss-list (lkvl:ss2list ss)) ;; lkvl:ss2list 是转换选择集ss为图元名列表
    
13.     (foreach en ss-list
    
14.       (setq el (entget en '("*"))
    
15.             el (vl-remove-if
    
16.                  '(lambda (x)
    
17.                     (or        (= -1 (car x))
    
18.                         (= 330 (car x))
    
19.                         (= 5 (car x))
    
20.                         (= 2 (car x))
    
21.                     )
    
22.                   )
    
23.                  el
    
24.                )
    
25.             p13 (cdr (assoc 13 el))
    
26.             p14 (cdr (assoc 14 el))
    
27.             ang (angle p13 p14)
    
28.             el (append el '((100 . "AcDbRotatedDimension")))
    
29.             gcode (assoc 70 el)
    
30.             el (subst (cons 70 (1- (cdr gcode))) gcode el)
    
31.             gcode (assoc 50 el)
    
32.             el (subst (cons 50 ang) gcode el)
    
33.             
    
34.       )
    
35.       (entmake el)
    
36.       (entdel en)
    
37.     );end foreach
    
38.   );end while
    
39.   (princ)
    
40. );end defun C:lkpt_Dimension_Align2Rotated
    
41. 
    

;;;本程序大家可随意使用,修改.<br /> ;;;原作者 : Gu_lx @ mjtd<br /> ;;;本修改版作者 : e2002 @ mjtd<br /> <br /> (defun C:lkpt_Dimension_Align2Rotated ( / ss ss-list en el p13 p14 ang gcode)<br />   (princ "\nConvert "Aligned Dimension" objects to "Rotated Dimension" objects.")<br />   (while (progn<br />            (princ "\nSelect "Aligned Dimension" objects:")<br />            (setq ss (ssget ":L" '((0 . "DIMENSION") (-4 . "＜OR") (70 . 33) (70 . 161) (-4 . "OR＞")(100 . "AcDbAlignedDimension")))) ;;!!!另存文件后,此处过滤条件中 "OR" 字符前后的的大于，小于符号要改为英文的!!!<br />          )<br />     (setq ss-list (lkvl:ss2list ss)) ;; lkvl:ss2list 是转换选择集ss为图元名列表<br />     (foreach en ss-list<br />       (setq el (entget en '("*"))<br />             el (vl-remove-if<br />                  '(lambda (x)<br />                     (or        (= -1 (car x))<br />                         (= 330 (car x))<br />                         (= 5 (car x))<br />                         (= 2 (car x))<br />                     )<br />                   )<br />                  el<br />                )<br />             p13 (cdr (assoc 13 el))<br />             p14 (cdr (assoc 14 el))<br />             ang (angle p13 p14)<br />             el (append el '((100 . "AcDbRotatedDimension")))<br />             gcode (assoc 70 el)<br />             el (subst (cons 70 (1- (cdr gcode))) gcode el)<br />             gcode (assoc 50 el)<br />             el (subst (cons 50 ang) gcode el)<br />             <br />       )<br />       (entmake el)<br />       (entdel en)<br />     );end foreach<br />   );end while<br />   (princ)<br /> );end defun C:lkpt_Dimension_Align2Rotated<br /> <br />

e2002

这个代码高亮显示的无法显示完整的含 " < O  R " 等关键字的过滤条件啊!

还是下载lsp文件吧 :  

e2002

发现一个 bug : 当 AlignDim 对象含有 DimensionOverrides 等xdata时, entmake 不能成功.
原因是 xdata 要在 el的最后一项
现已修正.

smartstar

继续学习！

e2002

又一个 bug ： 当AlignDim对象为 Annotative 时，entmake 不能成功。
正在寻求解决方法。