[LISP程序]：绘制斜率程序

li_seagull

2. ; ===============================================================================
   
3. ;     钢 结 构 工 具 箱 v8.1                    作者：李海斌  日期：2004-08-01
   
4. ; ===============================================================================
   
5. ;***  
   
6. (defun c:jh (/ olderr pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 a b c d e f g h old olddim)
   
7.   (setq olderr *error* *error* user_err)
   
8.   (setvar "textstyle" "hz")
   
9.   (princ "\n绘制几何三角形")
   
10.   (setq old (getvar "osmode"))
    
11.   (setq olddim (getvar "DIMZIN"))
    
12.   (setvar "osmode" 0)
    
13.   (setq a (getdist "\n几何尺寸的(X)值:")
    
14.         b (getdist "\n几何尺寸的(Y)值:")
    
15.         c (/ b a)
    
16.         d (* c 8)
    
17.   )
    
18.   (setvar "orthomode" 0)
    
19.   (setvar "osmode" 613)
    
20.   (setq pt1 (getpoint "\n基点:"))
    
21.   (setq pt2 (getpoint pt1 "\n方向:"))
    
22.   (setq pt3 (list (car pt2) (cadr pt1)))
    
23.   (setq s (getvar "DIMSCALE")
    
24.         e (* s 8)
    
25.         f (* s d)
    
26.         g (* s 2.5)
    
27.         h (* s 3)
    
28.   )
    
29.   (setvar "osmode" 0)
    
30.   (setq pt4 (polar pt1 (angle pt1 pt3) e)
    
31.         pt5 (polar pt4 (angle pt3 pt2) f)
    
32.         pt6 (list (/ (+ (car pt1) (car pt4)) 2) (cadr pt1))
    
33.         pt7 (list (car pt4) (/ (+ (cadr pt4) (cadr pt5)) 2))
    
34.         pt8 (polar pt6 (angle pt2 pt3) g)
    
35.         pt9 (polar pt7 (angle pt1 pt3) g)
    
36.   )
    
37.   (setvar "DIMZIN" 8)
    
38.   (command ".pline" pt1 "W" "0" "0" pt4 pt5 "c"
    
39.            "text" "j" "m" pt8 h "0" (rtos a 2 1)
    
40.            "text" "j" "m" pt9 h "90" (rtos b 2 1)
    
41.   )
    
42.   (setvar "DIMZIN" olddim)
    
43.   (setvar "osmode" old)
    
44.   (if olderr (setq *error* olderr))
    
45.   (princ)
    
46. );defun

; ===============================================================================<br /> ;     钢 结 构 工 具 箱 v8.1                    作者：李海斌  日期：2004-08-01<br /> ; ===============================================================================<br /> ;***  <br /> (defun c:jh (/ olderr pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 a b c d e f g h old olddim)<br />   (setq olderr *error* *error* user_err)<br />   (setvar "textstyle" "hz")<br />   (princ "\n绘制几何三角形")<br />   (setq old (getvar "osmode"))<br />   (setq olddim (getvar "DIMZIN"))<br />   (setvar "osmode" 0)<br />   (setq a (getdist "\n几何尺寸的(X)值:")<br />         b (getdist "\n几何尺寸的(Y)值:")<br />         c (/ b a)<br />         d (* c 8)<br />   )<br />   (setvar "orthomode" 0)<br />   (setvar "osmode" 613)<br />   (setq pt1 (getpoint "\n基点:"))<br />   (setq pt2 (getpoint pt1 "\n方向:"))<br />   (setq pt3 (list (car pt2) (cadr pt1)))<br />   (setq s (getvar "DIMSCALE")<br />         e (* s 8)<br />         f (* s d)<br />         g (* s 2.5)<br />         h (* s 3)<br />   )<br />   (setvar "osmode" 0)<br />   (setq pt4 (polar pt1 (angle pt1 pt3) e)<br />         pt5 (polar pt4 (angle pt3 pt2) f)<br />         pt6 (list (/ (+ (car pt1) (car pt4)) 2) (cadr pt1))<br />         pt7 (list (car pt4) (/ (+ (cadr pt4) (cadr pt5)) 2))<br />         pt8 (polar pt6 (angle pt2 pt3) g)<br />         pt9 (polar pt7 (angle pt1 pt3) g)<br />   )<br />   (setvar "DIMZIN" 8)<br />   (command ".pline" pt1 "W" "0" "0" pt4 pt5 "c"<br />            "text" "j" "m" pt8 h "0" (rtos a 2 1)<br />            "text" "j" "m" pt9 h "90" (rtos b 2 1)<br />   )<br />   (setvar "DIMZIN" olddim)<br />   (setvar "osmode" old)<br />   (if olderr (setq *error* olderr))<br />   (princ)<br /> );defun