Highflybird 发表于 2013-5-7 22:30:10

角度标注全部转弧长标注

在2006以下弧长标注有时候比较困难，但角度的连续标注比较容易，（天正用轴网标注可以很快生成角度标注）
所以我这里编写了一个小工具，用来把角度标注转化为弧长标注的。命令: CCC

(defun c:ccc (/ fil sel rad R i ent dxf val new)
(setq fil '( (-4 . "<OR")
               (100 . "AcDb2LineAngularDimension")
               (100 . "AcDb3LineAngularDimension")
               (-4 . "OR>")
               (0 . "DIMENSION")
               )
)
(if (and (setq sel (ssget fil))
            (setq rad (car (entsel "\n请选择相应的圆弧: ")))
            (setq rad (entget rad))
            (or (= (cdr (assoc 0 rad)) "CIRCLE")
                   (= (cdr (assoc 0 rad)) "ARC")
            )
      )
    (progn
      (setq R (cdr (assoc 40 rad)))
      (setq i 0)
      (repeat (sslength sel)
      (setq ent (ssname sel i))
      (setq dxf (entget ent))
      (setq val (assoc 42 dxf))
      (setq new (* (cdr val) R))
      (setq new (rtos new 2 0))
      (setq new (strcat "{\\fSimSun|b0|i0|c134|p2;⌒}" new))
      (setq dxf (subst (cons 1 new) val dxf))
      (entmod dxf)
      (setq i (1+ i))
      )
    )
)
)






/db_自贡黄明儒_ 发表于 2013-5-8 10:58:59

你写的程序有高深的,有也很实用的.
你转移阵地了?

sachindkini 发表于 2013-5-8 13:48:25

dear sir,
nice thx
{:soso_e179:}{:soso_e179:}

scnjlwb 发表于 2018-3-26 11:30:27

谢谢分享！

栋梁 发表于 2018-8-2 23:22:24

收藏了以备不时之需

MUYIY 发表于 2022-6-11 20:38:11

{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}谢谢

蟹岛蟹岛 发表于 2026-2-8 10:40:39

收藏了以备不时之需
页: [1]
查看完整版本: 角度标注全部转弧长标注