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

highflybir

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

2. 
   
3. (defun c:ccc (/ fil sel rad R i ent dxf val new)
   
4.   (setq fil '( (-4 . "<OR")
   
5.                  (100 . "AcDb2LineAngularDimension")
   
6.                  (100 . "AcDb3LineAngularDimension")
   
7.                  (-4 . "OR>")
   
8.                  (0 . "DIMENSION")
   
9.                )
   
10.   )
    
11.   (if (and (setq sel (ssget fil))
    
12.               (setq rad (car (entsel "\n请选择相应的圆弧: ")))
    
13.               (setq rad (entget rad))
    
14.               (or (= (cdr (assoc 0 rad)) "CIRCLE")
    
15.                    (= (cdr (assoc 0 rad)) "ARC")
    
16.               )
    
17.       )
    
18.     (progn
    
19.       (setq R (cdr (assoc 40 rad)))
    
20.       (setq i 0)
    
21.       (repeat (sslength sel)
    
22.         (setq ent (ssname sel i))
    
23.         (setq dxf (entget ent))
    
24.         (setq val (assoc 42 dxf))
    
25.         (setq new (* (cdr val) R))
    
26.         (setq new (rtos new 2 0))
    
27.         (setq new (strcat "{\\fSimSun|b0|i0|c134|p2;⌒}" new))
    
28.         (setq dxf (subst (cons 1 new) val dxf))
    
29.         (entmod dxf)
    
30.         (setq i (1+ i))
    
31.       )
    
32.     )
    
33.   )
    
34. )
    

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

guankuiwu

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

金鹅起飞

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

cyfdean

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

highflybir

下面是演示

glowz

 好东西 谢

cxs259

xiexie

yshf

那叫转为弧长标注,弧度与弧长是两个不同的概念。

highflybir

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

不好意思，全都打成了弧度了。

谢谢指出！

totoro

⌒变?该如何解决

可以把⌒放在数字上吗??

mccad

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

hzj526

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