[求助]：请问怎么标注弧长?

为枫橼

请问怎么标注弧长?

hckdk

在cad的标注菜单里可以找到

yshf

使用角度标注命令“_dimangular”，选择“m”或“t”，再填入弧长值即可。

2. 
   
3. ;圆弧长度标注 by yshf 2002.10
   
4. ;用传统Auto LISP编制，适用于R14及以上版本
   
5. (defun c:arcl()
   
6.     (setq xtblm '("cmdecho" "osmode")
   
7.              xtblz (mapcar 'getvar xtblm)
   
8.     )
   
9.     (mapcar 'setvar xtblm '(0 0))
   
10.     (command "_undo" "be")
    
11.     (while (setq ent (entsel "\n请选择圆弧:"))
    
12.        (command "_lengthen" (car ent) "")
    
13.        (princ "\n请指定标注线位置")
    
14.        (command "_dimangular" ent "t" (rtos (getvar "perimeter") 2 3) pause)
    
15.        ;(command "_dimangular" ent "m" (rtos (getvar "perimeter") 2 3) pause)
    
16.     )
    
17.     (command "_ubndo" "e")
    
18.     (mapcar 'setvar xtblm xtblz)(princ)
    
19. )
    

<br /> ;圆弧长度标注 by yshf 2002.10<br /> ;用传统Auto LISP编制，适用于R14及以上版本<br /> (defun c:arcl()<br />     (setq xtblm '("cmdecho" "osmode")<br />              xtblz (mapcar 'getvar xtblm)<br />     )<br />     (mapcar 'setvar xtblm '(0 0))<br />     (command "_undo" "be")<br />     (while (setq ent (entsel "\n请选择圆弧:"))<br />        (command "_lengthen" (car ent) "")<br />        (princ "\n请指定标注线位置")<br />        (command "_dimangular" ent "t" (rtos (getvar "perimeter") 2 3) pause)<br />        ;(command "_dimangular" ent "m" (rtos (getvar "perimeter") 2 3) pause)<br />     )<br />     (command "_ubndo" "e")<br />     (mapcar 'setvar xtblm xtblz)(princ)<br /> )<br />

狂刀

用ｃａｄ２００６有直接标注弧长的命令

dhcad

用晓东工具吧，里面有你需要的弧长标注。