highflybir 发表于 2009-6-12 10:23:00

【飞鸟集】角度标注全部转弧长标注

在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))
      )
    )
)
)

guankuiwu 发表于 2022-12-25 10:31:41

能不能改为可以多段线内的弧长标注修改呢？

金鹅起飞 发表于 2023-9-20 10:51:59

谢谢楼主分享这个插件，谢了

cyfdean 发表于 2020-10-12 16:49:42

楼主的程序很实用，支持一下

highflybir 发表于 2009-6-12 10:37:00

<p>下面是演示</p><p></p>

liminnet 发表于 2009-6-12 11:10:00

glowz 发表于 2009-6-12 12:49:00

<p>&nbsp;好东西 谢</p>

cxs259 发表于 2009-6-12 16:23:00

xiexie

yshf 发表于 2009-6-12 19:12:00

<p>那叫转为<font color="#ff3300"><strong>弧长</strong></font>标注,<font color="#ff0000"><strong>弧度</strong></font>与<font color="#f70909"><strong>弧长</strong></font>是两个不同的概念。</p>

highflybir 发表于 2009-6-13 08:46:00

yshf发表于2009-6-12 19:12:00static/image/common/back.gif那叫转为弧长标注,弧度与弧长是两个不同的概念。

<p>不好意思，全都打成了弧度了。</p><p>谢谢指出！</p>

totoro 发表于 2009-6-14 01:20:00

<p><font color="#ff00ff">⌒变?该如何解决</font></p><p><font color="#0000ff">可以把⌒放在数字上吗??</font></p>

mccad 发表于 2009-6-14 07:15:00

放在上面，可以这样：{\\Fgdt.shx;^}\\P

hzj526 发表于 2009-6-16 19:27:00

楼主的程序很实用，支持一下
页: [1] 2 3
查看完整版本: 【飞鸟集】角度标注全部转弧长标注