对齐标注转换成转角标注，分解成为2个方向的转角标注？
要是转角标注转换成对齐应该很容易

有时候接到建筑专业的图纸，尺寸线就用他们的，有时候想通过拖动锚点的方式编辑标注，可是一拖动锚点，尺寸线就变斜了，转角标注就不会出现这样的问题，所以如果能转换，以后改图就方便多了。

才明白你说的意思，我是说水平或垂直的尺寸标注，就在原位改为转角标注，不是指本来就是倾斜的对齐标注转为水平和垂直的两个方向上的标注。

;;;对齐标注转线性标注
(Defun C:DAG (/ AcadObject AcadDocument mSpace DimSS L M DimGet DimEle DimLay Dimcon DimStyle pt10 pt13 pt14)
(vl-load-com)
(setvar "cmdecho" 0)
(princ "\\n 选上对齐标注转换成线性标注!")
(setq DimSS (ssget '((0 . "DIMENSION")(100 . "AcDbAlignedDimension")(70 . 33))))
(if (= DimSS nil)
(progn
(princ "\\n 没有对齐标注被选上!")
(exit)))
(command "._UNDO" "BE")
(setq L (sslength DimSS))
(setq M 0)
(while (< M L)
(setq DimGet (ssname DimSS M))
(setq DimEle (entget DimGet))
;;;获取图层、颜色
(setq DimLay (cdr (assoc 8 DimEle)))
(setq pt10 (cdr (assoc 10 DimEle)))
(setq pt13 (cdr (assoc 13 DimEle)))
(setq pt14 (cdr (assoc 14 DimEle)))
(setq Dimcon (cdr (assoc 1 DimEle)))
(setq DimStyle (cdr (assoc 3 DimEle)))
(GnHdg_AddDimAlign pt13 pt14 pt10 Dimcon DimStyle)
(command "._CHANGE" (entlast) "" "P" "LA" DimLay "")
(command "._ERASE" DimGet "")
(Setq M (+ M 1)))
(command "._UNDO" "E")
(prin1))
;;;建立线性标注
(defun GnHdg_AddDimAlign (GnHdg_Pt1 GnHdg_Pt2 GnHdg_Pt3 GnHdg_DimCon GnHdg_DimStyle / Ent)
(if (setq ent (entmake (list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 GnHdg_Pt3)
'(11 0. 0. 0.)
'(70 . 32)
(cons 1 GnHdg_DimCon)
(cons 3 GnHdg_DimStyle)
'(100 . "AcDbAlignedDimension")
(cons 13 GnHdg_Pt1)
(cons 14 GnHdg_Pt2)
(cons 50 (angle GnHdg_Pt1 GnHdg_Pt2))
'(100 . "AcDbRotatedDimension"))))ent))

:D这个怎么变成太阳了？C:DAG
我还是上传上来吧，：D这个用中文不会变太阳吧

[ 本帖最后由 yitian519 于 2009-12-12 23:14 编辑 ]

今天才看到有人给了程序，下来试试再说体会。

刚才试过了，很完美的，谢谢“雨中人”，费心了:time:

“雨中人”刚才在使用中有个小问题，有个标注，用你的程序选择时选不上，也就是说你的程序判别“它”不是个“对齐标注”，当然也没转换，但用CAD的属性编辑时，却显示这是个对齐标注。这是咋回事呢？

我把那个标注的文件传上来。

刚才，自己瞎鼓捣了一下。把“雨中人”的程序中的选择判别条件改了一下，把筛选条件改为对所有标注的选取，这样一改能选择并修改我刚才提到的那个标注了，但这样一来，面对大量需要处理的标注且标注类型也较复杂的情形就有点麻烦了，都会选到并改为转角标注。不过对于我个人的应用，这样的修改已经能满足要求了，因为我通常就针对一两个局部的尺寸进行修改。

我的问题解决了。最后，再次谢谢“雨中人”提供的程序。:victory: