[求助]：AUTOCAD2000几个问题

肖扬

在AUTOCAD2000中如何量出某条圆孤的长度，如果在长度为125厘米要如何画圆孤？

sz-gg

用lengthen命令，可以知道弧长，也可改变弧长。

肖扬

除了楼上的先生所说的还有别的办法吗？

zhynt

最初由 肖扬 发布
[B]在AUTOCAD2000中如何量出某条圆孤的长度，如果在长度为125厘米要如何画圆孤？ [/B]

问题一，求弧长

2. 
   
3. ;==============================
   
4. ;          求弧的长度
   
5. ;    Ver 1.1  作者: 尉迟俊岭  修改：张越
   
6. ;==============================
   
7. (defun dxf (code elist)
   
8.   (cdr (assoc code elist))
   
9. )       
   
10. (defun C:hu(/ sel el e r ang angs ange larc)
    
11. (setvar "CMDECHO" 0)
    
12. (setq sel (car (entsel "\n请选择圆弧:<Exit> ")))
    
13. (terpri)
    
14.   (if (/= sel nil)
    
15.     (progn
    
16.       (setq el (entget sel))
    
17.       (setq e (assoc 0 el))
    
18.       (if (= "ARC" (cdr e))
    
19.         (progn
    
20.           (setq r (dxf 40 el))
    
21.           (setq angs (dxf 50 el))
    
22.           (setq ange (dxf 51 el))
    
23.           (setq ang (- ange angs))
    
24.           (if (< ang 0) (setq ang (- (* 2 pi) (abs ang))))
    
25.           (setq larc (* r ang))
    
26.           (princ "圆弧弦角 = ")(prin1 (* (/ ang pi) 180))
    
27.           (princ " , 圆弧半径 = ")(prin1 r)
    
28.           (princ " , 该圆弧的长度是 : ")
    
29.           (prin1 larc)
    
30.         )
    
31.         (princ "该实体不是圆弧 !")
    
32.       )
    
33.     )
    
34.   )
    
35. (princ)
    
36. )
    

<br /> ;==============================<br /> ;          求弧的长度<br /> ;    Ver 1.1  作者: 尉迟俊岭  修改：张越<br /> ;==============================<br /> (defun dxf (code elist)<br />   (cdr (assoc code elist))<br /> )        <br /> (defun C:hu(/ sel el e r ang angs ange larc)<br /> (setvar "CMDECHO" 0)<br /> (setq sel (car (entsel "\n请选择圆弧:<Exit> ")))<br /> (terpri)<br />   (if (/= sel nil)<br />     (progn<br />       (setq el (entget sel))<br />       (setq e (assoc 0 el))<br />       (if (= "ARC" (cdr e))<br />         (progn<br />           (setq r (dxf 40 el))<br />           (setq angs (dxf 50 el))<br />           (setq ange (dxf 51 el))<br />           (setq ang (- ange angs))<br />           (if (< ang 0) (setq ang (- (* 2 pi) (abs ang))))<br />           (setq larc (* r ang))<br />           (princ "圆弧弦角 = ")(prin1 (* (/ ang pi) 180))<br />           (princ " , 圆弧半径 = ")(prin1 r) <br />           (princ " , 该圆弧的长度是 : ") <br />           (prin1 larc)<br />         )<br />         (princ "该实体不是圆弧 !")<br />       )<br />     )<br />   )<br /> (princ)<br /> )<br />

问题二：
因画圆弧除了要知道长度外还有知道圆弧的圆心、起始点等控制点，仅有长度怎么画得出圆弧呢？

cxx

第一个问题，用一个很简单的命令“list”，就可以了。除了圆弧，线、多边形等都可以量取长度、面积、各个顶点的坐标，各段长度等，弧和圆的半径也能显示出来。
第二个问题，真的就画不出来了。

yxc

最初由 肖扬 发布
[B]在AUTOCAD2000中如何量出某条圆孤的长度，如果在长度为125厘米要如何画圆孤？ [/B]

sz-gg说的就应该是解决这个问题比较简单的方法了。