[分享]：05及以下版本，弧长标注(纯LISP源码)

qjcpj

在晓东及其他论坛上看到很多人需要05及以下版本的弧长标注，这两天放长假，现编了一个，有需要的就下，记得要多提意见哟。
最后祝各位“两节”快乐！

2. 
   
3. ;;;弧长标注
   
4. (defun c:arc_dimension (/ multi sel ent arc rad ang len)
   
5.         (setvar "CMDECHO" 0)
   
6.         (setq multi (getvar 'dimlfac))
   
7.         (setq sel "T")
   
8.         (while sel
   
9.                 (setq sel (entsel "\n请选择一个圆弧: "))
   
10.                 (if        sel
    
11.                         (progn
    
12.                                 (setq ent (entget (car sel)))
    
13.                                 (if        (= "ARC" (cdr (assoc 0 ent)))
    
14.                                         (progn
    
15.                                                 (setq rad (cdr (assoc 40 ent)))
    
16.                                                 (setq ang (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent))))
    
17.                                                 (if        (minusp ang)
    
18.                                                         (setq ang (+ ang (* 2 pi)))
    
19.                                                 )
    
20.                                                 (setq
    
21.                                                         len        (strcat        (rtos (* multi ang rad) 2 (getvar "dimdec"))
    
22.                                                                                                         "(弧长)"
    
23.                                                                         )
    
24.                                                 )
    
25.                                                 (command "_.dimangular" sel "T" len pause)
    
26.                                         )
    
27.                                         (progn
    
28.                                                 (setq sel "T")
    
29.                                                 (princ "\n所选实体不是圆弧，请重选择！")
    
30.                                         )
    
31.                                 )
    
32.                         )
    
33.                 )
    
34.         )
    
35.         (princ)
    
36. )

<br /> ;;;弧长标注<br /> (defun c:arc_dimension (/ multi sel ent arc rad ang len)<br />         (setvar "CMDECHO" 0)<br />         (setq multi (getvar 'dimlfac))<br />         (setq sel "T")<br />         (while sel<br />                 (setq sel (entsel "\n请选择一个圆弧: "))<br />                 (if        sel<br />                         (progn<br />                                 (setq ent (entget (car sel)))<br />                                 (if        (= "ARC" (cdr (assoc 0 ent)))<br />                                         (progn<br />                                                 (setq rad (cdr (assoc 40 ent)))<br />                                                 (setq ang (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent))))<br />                                                 (if        (minusp ang)<br />                                                         (setq ang (+ ang (* 2 pi)))<br />                                                 )<br />                                                 (setq<br />                                                         len        (strcat        (rtos (* multi ang rad) 2 (getvar "dimdec"))<br />                                                                                                         "(弧长)"<br />                                                                         )<br />                                                 )<br />                                                 (command "_.dimangular" sel "T" len pause)<br />                                         )<br />                                         (progn<br />                                                 (setq sel "T")<br />                                                 (princ "\n所选实体不是圆弧，请重选择！")<br />                                         )<br />                                 )<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )