画图技巧

fenshuijing

这个图怎么画，画图步骤~

byd987

30的标注是不是错了，应该是40 吧

dnbcgrass

用以下程序可得到近似解:

2. (defun c:cc()
   
3.      (setq cm (getvar "cmdecho")
   
4.            os (getvar "osmode")
   
5.      )
   
6.      (setvar "cmdecho" 0) (setvar "osmode" 33)
   
7.      (setq h1 30.0   h2 60.0
   
8.            pp (/ pi 180.0)
   
9.            njh (+ (* 75.0 pp) (atan (/ h1 30.0)) (atan (/ h2 50.0)))
   
10.      )
    
11.      (while (not (equal njh pi 1e-15))
    
12.           (setq hm (/ (+ h1 h2) 2.0)
    
13.                 njh (+ (* 75.0 pp) (atan (/ hm 30.0)) (atan (/ hm 50.0)))
    
14.           )
    
15.           (cond ((< njh pi) (setq h1 hm))
    
16.                 ((> njh pi) (setq h2 hm))
    
17.           )
    
18. 
    
19.      )
    
20.      (princ "\nhm=")(princ hm)
    
21.      (if (setq p0 (getpoint "\n基准点:"))
    
22.          (progn
    
23.               (setq p1 (mapcar '+ p0 (list (/ 80.0 3.0) 0.0))
    
24.                     p2 (mapcar '+ p0 (list (/ 80.0 1.0) 0.0))
    
25.                     p3 (mapcar '+ p2 '(0.0 40.0))
    
26.                     p4 (mapcar '+ P0 '(0.0 40.0))
    
27.                     p5 (mapcar '+ p4 (list 30.0 hm))
    
28.                     p6 (mapcar '+ p4 (list 15.0 (* 0.75 hm)))
    
29.                     p7 (mapcar '+ p4 (list 30.0 (* 0.5 hm)))
    
30.                     p8 (mapcar '+ p0 '(-10 20))
    
31.                     p9 (mapcar '+ p0 '(40 -10))
    
32.                     
    
33.               )
    
34.               (setvar "osmode" 0)
    
35.               (command "_pline" p0 p2 p3 p1 p4 "c")
    
36.               (command "_pline" p4 p5 p3 "")
    
37.               (command "_dimlinear" p4 p5 p6)
    
38.               (command "_dimangular" "" p5 p4 p3 p7)
    
39.               (command "_dimlinear" p0 p4 p8)
    
40.               (command "_dimlinear" p0 p2 p9)
    
41.          )
    
42.      )
    
43.      (setvar "osmode" os) (setvar "cmdecho" cm)
    
44.      (princ)
    
45. )

(defun c:cc()<br />      (setq cm (getvar "cmdecho")<br />            os (getvar "osmode")<br />      )<br />      (setvar "cmdecho" 0) (setvar "osmode" 33)<br />      (setq h1 30.0   h2 60.0<br />            pp (/ pi 180.0)<br />            njh (+ (* 75.0 pp) (atan (/ h1 30.0)) (atan (/ h2 50.0)))<br />      )<br />      (while (not (equal njh pi 1e-15))<br />           (setq hm (/ (+ h1 h2) 2.0)<br />                 njh (+ (* 75.0 pp) (atan (/ hm 30.0)) (atan (/ hm 50.0)))<br />           )<br />           (cond ((< njh pi) (setq h1 hm))<br />                 ((> njh pi) (setq h2 hm))<br />           )<br /> <br />      )<br />      (princ "\nhm=")(princ hm)<br />      (if (setq p0 (getpoint "\n基准点:"))<br />          (progn<br />               (setq p1 (mapcar '+ p0 (list (/ 80.0 3.0) 0.0))<br />                     p2 (mapcar '+ p0 (list (/ 80.0 1.0) 0.0))<br />                     p3 (mapcar '+ p2 '(0.0 40.0))<br />                     p4 (mapcar '+ P0 '(0.0 40.0))<br />                     p5 (mapcar '+ p4 (list 30.0 hm))<br />                     p6 (mapcar '+ p4 (list 15.0 (* 0.75 hm)))<br />                     p7 (mapcar '+ p4 (list 30.0 (* 0.5 hm)))<br />                     p8 (mapcar '+ p0 '(-10 20))<br />                     p9 (mapcar '+ p0 '(40 -10))<br />                     <br />               )<br />               (setvar "osmode" 0)<br />               (command "_pline" p0 p2 p3 p1 p4 "c")<br />               (command "_pline" p4 p5 p3 "")<br />               (command "_dimlinear" p4 p5 p6)<br />               (command "_dimangular" "" p5 p4 p3 p7)<br />               (command "_dimlinear" p0 p4 p8)<br />               (command "_dimlinear" p0 p2 p9)<br />          )<br />      )<br />      (setvar "osmode" os) (setvar "cmdecho" cm)<br />      (princ)<br /> )

fenshuijing

对的 就是这样，现在会了，用的是圆心角和圆周角把75度画出来的

newer

fenshuijing 发表于 2013-11-17 22:29
对的 就是这样，现在会了，用的是圆心角和圆周角把75度画出来的

最好你把画的过程用屏幕录像软件录歌动画贴上来。

zhynt

画75度角不要这么复杂：