[求助]：如何标注弧长

yrh70-2003

:c

lsjjm

利用list命令得到该圆弧的长度，再用dimangular命令点击弧标角度
然后用长度之替换角度值。
也可根据这个思路编个小程序

msdg

楼上的第一点是对的,然后用角度标注,再用晓东工具箱的"标注改值"
晓东工具箱0。26版是有“弧长标注”的。

boy_tian

请参考
http://www.xdcad.net/forum/showthread.php?s=&threadid=63053

sanndy

lsjjm 说对了

快刀

lsjjm的是正确的

xu5979

谢谢!

小金

谢谢,学了一招

jianqiang21c

弧线长度标注程序

2. [font=courier new]
   
3. ;弧形长度标注序
   
4. ;用法:命令行输入ARD，根据提示运行
   
5. ;制作:QING
   
6. ;函数名称:qing_ard.lsp
   
7. (defun c:ard ()
   
8.   (setq $qing_sel (entsel "\n$请选择要标注的弧线$:"))
   
9.   (cond ((null $qing_sel) (princ "\n$函数被取消，请重新选择$") (exit)))
   
10.   (setq $qing_car (car $qing_sel)
    
11.         $qing_pdn (cdr(assoc 0(entget $qing_car))))
    
12.   (cond ((/= $qing_pdn "ARC") (princ "\n&此函数仅对弧线有效&") (exit)))
    
13. (setq $qing_geted (vlax-curve-getEndParam $qing_car)
    
14.       $qing_getdist (vlax-curve-getDistAtParam $qing_car $qing_geted)
    
15.       $qing_rtos (rtos $qing_getdist)
    
16.       )
    
17.   (command ".dimangular" $qing_sel "T" $qing_rtos)
    
18.   )[/font]

[font=courier new]<br /> ;弧形长度标注序<br /> ;用法:命令行输入ARD，根据提示运行<br /> ;制作:QING<br /> ;函数名称:qing_ard.lsp<br /> (defun c:ard ()<br />   (setq $qing_sel (entsel "\n$请选择要标注的弧线$:"))<br />   (cond ((null $qing_sel) (princ "\n$函数被取消，请重新选择$") (exit)))<br />   (setq $qing_car (car $qing_sel)<br />         $qing_pdn (cdr(assoc 0(entget $qing_car))))<br />   (cond ((/= $qing_pdn "ARC") (princ "\n&此函数仅对弧线有效&") (exit)))<br /> (setq $qing_geted (vlax-curve-getEndParam $qing_car)<br />       $qing_getdist (vlax-curve-getDistAtParam $qing_car $qing_geted)<br />       $qing_rtos (rtos $qing_getdist)<br />       )<br />   (command ".dimangular" $qing_sel "T" $qing_rtos)<br />   )[/font]

kerme

我原来是按lsjjm的方法做的，有这个LISP就简单了

xmchy

不能在r`14下用，且其上没有弧的符号