[求助]：CAD中标注弧线长度

lichunyan

求助：
   哪位前辈赐教一下，如何在CAD中标注弧线长度。

xcajcj

“晓东工具箱”里有弧长标注命令。

SLMin

在AutoCAD中用角度标注，然后用编辑标注命令将角度修改为弧长啊。

txwgf5817

选用LIST命令量出弧长,再用3楼的方法就可以完成了

齐小社88

可以直接标注弧长吗？

tailake

LIST命令中的长度是不是就是弧长了

xufeng3515

LIST命令中的长度是不是就是弧长了

<font color=blue><b>[斑竹提示]：</b></font><font color=red><b>你有权到站务版投诉，但你必须对你所有的水帖负责。其它的水帖3日内你可以到回收站查看。</b>&nbsp;&nbsp;&nbsp;&nbsp;<i>by cdhua001</i></font>

guotianq

不是吧，我知道如何计算孤长！！！

laoshayu

我的法子和他们一样，不知道别人有什么高招。
呵呵～～～～
我是用Camtasia Studio 2录制转为GIF的，太烂了。
动画的干活我的不会

david96007

试着判断了优弧劣弧问题，可以在14下运行！

2. 
   
3. 
   
4. 
   
5. (defun set_ini ()
   
6.   (setq cmdsave (getvar "cmdecho"))
   
7.   (setq os (getvar "OSMODE"))
   
8.   (setvar "cmdecho" 0)
   
9.   (setvar "OSMODE" 0)
   
10. ) ;_ end of defun
    
11. 
    
12. (defun err_new (msg) (princ msg) (set_close)) ;_ end of defun
    
13. 
    
14. (defun set_close ()
    
15.   (setvar "OSMODE" os)
    
16.   (setvar "cmdecho" cmdsave)
    
17.   (setq *error* err_old)
    
18. ) ;_ end of defun
    
19. 
    
20. 
    
21. (defun c:dimarc        (/ n key os cmdsave err_old)
    
22.   (setq        err_old        *error*
    
23.         *error*        err_new
    
24.   ) ;_ end of setq
    
25. 
    
26.   (set_ini)
    
27.   (initget 128 "S C")
    
28.   (setq key (getkword "\n[单段圆弧标注(S)/圆弧连续标注(C)]< S >: "))   (if (/= key nil)
    
29.     (setq key (strcase key))
    
30.   ) ;_ end of if
    
31.   (if (or (= key "S") (= key nil))
    
32.     (dimarc_s)
    
33.     (if        (= key "C")
    
34.       (dimarc_C)
    
35.     )
    
36.   )
    
37.   (set_close)
    
38.   (gc)
    
39.   (princ)
    
40. )
    
41. 
    
42. (defun dimarc_s        (/ ent entl rad ans ane ptcen pts pte)
    
43.   (setq n (getint "\n标注文字小数点后位数<2>:"))
    
44.   (if (not n)
    
45.     (setq n 2)
    
46.   )
    
47.   (setq        ent   (car (entsel "\n选择圆弧:"))
    
48.         entl  (entget ent)
    
49.         rad   (cdr (assoc 40 entl))
    
50.         ans   (cdr (assoc 50 entl))
    
51.         ane   (cdr (assoc 51 entl))
    
52.         ptcen (cdr (assoc 10 entl))
    
53.         pts   (polar ptcen ans rad)
    
54.         pte   (polar ptcen ane rad)
    
55.   )
    
56.   (command "dim" "an" "" ptcen pts pte pause "" "" "e")
    
57.   (ang2len)
    
58.   (princ)
    
59. )
    
60. ;;=============================================================
    
61. 
    
62. (defun dimarc_c        (/ ent entL rad ptcen roop pts pte)
    
63.   (setq n (getint "\n标注文字小数点后位数<2>:"))
    
64.   (if (not n)
    
65.     (setq n 2)
    
66.   )
    
67.   (setq        ent   (car (entsel "\n选择圆弧:"))
    
68.         entL  (entget ent)
    
69.         rad   (cdr (assoc 40 entL))
    
70.         ptcen (cdr (assoc 10 entL))
    
71.         roop  "true"
    
72.   )
    
73.   (getarcL)
    
74.   (command "dim" "an" "" ptcen pts pte pause "" "")
    
75.   (ang2len)
    
76.   (while roop
    
77.     (getarcL)
    
78.     (if        (not pte)
    
79.       (setq roop nil)
    
80.       (progn (command "co" pte) (ang2len)) ;end progn
    
81.     )
    
82.   )
    
83.   ;;end while
    
84.   (princ)
    
85. )
    
86. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
87. (defun getarcL ()
    
88.   (setvar "OSMODE" 33)
    
89.   (if (not pts)
    
90.     (setq pts (getpoint "\n标注起点:"))
    
91.   )
    
92.   (if pte
    
93.     (setq pts pte)
    
94.   )
    
95.   (setq pte (getpoint "\n标注终点: <右键结束圆弧标注>"))
    
96.   (if (= pte nil)
    
97.     (command "dim" "e")
    
98.   )
    
99. )
    
100. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
101. (defun ang2len (/ entL ang arcL        ptcen pts pte ptp ang01        ang02 ang03
     
102.                 ang21 ang31)
     
103.   (setq        entL  (entget (entLast))
     
104.         ptcen (cdr (assoc 15 entL))
     
105.         pts   (cdr (assoc 13 entL))
     
106.         pte   (cdr (assoc 14 entL))
     
107.         ptp   (cdr (assoc 10 entL))
     
108.         ang01 (angle ptcen pts)
     
109.         ang02 (angle ptcen pte)
     
110.         ang03 (angle ptcen ptp)
     
111.         ang21 (- ang02 ang01)
     
112.         ang31 (- ang03 ang01)
     
113.   )
     
114.   (if (<= ang21 0)
     
115.     (if        (< ang31 ang21)
     
116.       (setq ang (+ (* pi 2) ang21))
     
117.       (if (> ang31 0)
     
118.         (setq ang (+ (* pi 2) ang21))
     
119.         (setq ang (- ang21))
     
120.       )
     
121.     )
     
122.     (if        (< ang31 ang21)
     
123.       (if (< ang31 0)
     
124.         (setq ang (- (* pi 2) ang21))
     
125.         (setq ang ang21)
     
126.       )
     
127.       (setq ang (- (* pi 2) ang21))
     
128.     )
     
129.   )
     
130.   (setq        arcL (rtos (* rad ang) 2 n)
     
131.         arcL (strcat "%%o" arcL)
     
132.         entL (subst (cons 1 arcL) (assoc 1 entL) entL)
     
133.   )
     
134.   (entmod entL)
     
135. )
     
136. 
     

<br /> <br /> <br /> (defun set_ini ()<br />   (setq cmdsave (getvar "cmdecho"))<br />   (setq os (getvar "OSMODE"))<br />   (setvar "cmdecho" 0)<br />   (setvar "OSMODE" 0)<br /> ) ;_ end of defun<br /> <br /> (defun err_new (msg) (princ msg) (set_close)) ;_ end of defun<br /> <br /> (defun set_close ()<br />   (setvar "OSMODE" os)<br />   (setvar "cmdecho" cmdsave)<br />   (setq *error* err_old)<br /> ) ;_ end of defun<br /> <br /> <br /> (defun c:dimarc        (/ n key os cmdsave err_old)<br />   (setq        err_old        *error*<br />         *error*        err_new<br />   ) ;_ end of setq<br /> <br />   (set_ini)<br />   (initget 128 "S C")<br />   (setq key (getkword "\n[单段圆弧标注(S)/圆弧连续标注(C)]< S >: "))   (if (/= key nil)<br />     (setq key (strcase key))<br />   ) ;_ end of if<br />   (if (or (= key "S") (= key nil))<br />     (dimarc_s)<br />     (if        (= key "C")<br />       (dimarc_C)<br />     )<br />   )<br />   (set_close)<br />   (gc)<br />   (princ)<br /> )<br /> <br /> (defun dimarc_s        (/ ent entl rad ans ane ptcen pts pte)<br />   (setq n (getint "\n标注文字小数点后位数<2>:"))<br />   (if (not n)<br />     (setq n 2)<br />   )<br />   (setq        ent   (car (entsel "\n选择圆弧:"))<br />         entl  (entget ent)<br />         rad   (cdr (assoc 40 entl))<br />         ans   (cdr (assoc 50 entl))<br />         ane   (cdr (assoc 51 entl))<br />         ptcen (cdr (assoc 10 entl))<br />         pts   (polar ptcen ans rad)<br />         pte   (polar ptcen ane rad)<br />   )<br />   (command "dim" "an" "" ptcen pts pte pause "" "" "e")<br />   (ang2len)<br />   (princ)<br /> )<br /> ;;=============================================================<br /> <br /> (defun dimarc_c        (/ ent entL rad ptcen roop pts pte)<br />   (setq n (getint "\n标注文字小数点后位数<2>:"))<br />   (if (not n)<br />     (setq n 2)<br />   )<br />   (setq        ent   (car (entsel "\n选择圆弧:"))<br />         entL  (entget ent)<br />         rad   (cdr (assoc 40 entL))<br />         ptcen (cdr (assoc 10 entL))<br />         roop  "true"<br />   )<br />   (getarcL)<br />   (command "dim" "an" "" ptcen pts pte pause "" "")<br />   (ang2len)<br />   (while roop<br />     (getarcL)<br />     (if        (not pte)<br />       (setq roop nil)<br />       (progn (command "co" pte) (ang2len)) ;end progn<br />     )<br />   )<br />   ;;end while<br />   (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun getarcL ()<br />   (setvar "OSMODE" 33)<br />   (if (not pts)<br />     (setq pts (getpoint "\n标注起点:"))<br />   )<br />   (if pte<br />     (setq pts pte)<br />   )<br />   (setq pte (getpoint "\n标注终点: <右键结束圆弧标注>"))<br />   (if (= pte nil)<br />     (command "dim" "e")<br />   )<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (defun ang2len (/ entL ang arcL        ptcen pts pte ptp ang01        ang02 ang03<br />                 ang21 ang31)<br />   (setq        entL  (entget (entLast))<br />         ptcen (cdr (assoc 15 entL))<br />         pts   (cdr (assoc 13 entL))<br />         pte   (cdr (assoc 14 entL))<br />         ptp   (cdr (assoc 10 entL))<br />         ang01 (angle ptcen pts)<br />         ang02 (angle ptcen pte)<br />         ang03 (angle ptcen ptp)<br />         ang21 (- ang02 ang01)<br />         ang31 (- ang03 ang01)<br />   )<br />   (if (<= ang21 0)<br />     (if        (< ang31 ang21)<br />       (setq ang (+ (* pi 2) ang21))<br />       (if (> ang31 0)<br />         (setq ang (+ (* pi 2) ang21))<br />         (setq ang (- ang21))<br />       )<br />     )<br />     (if        (< ang31 ang21)<br />       (if (< ang31 0)<br />         (setq ang (- (* pi 2) ang21))<br />         (setq ang ang21)<br />       )<br />       (setq ang (- (* pi 2) ang21))<br />     )<br />   )<br />   (setq        arcL (rtos (* rad ang) 2 n)<br />         arcL (strcat "%%o" arcL)<br />         entL (subst (cons 1 arcL) (assoc 1 entL) entL)<br />   )<br />   (entmod entL)<br /> )<br /> <br />

冉工

希望高手能有直接标注弧长的方法,用其它方法好麻烦啊!老大!!