[LISP程序]：cad视图工具----增强的 vpoint

梦断江南

2. 
   
3.   [FONT=courier new]
   
4. ;增强的 vpoint
   
5. (defun c:lxxvp (/ ang1 ang2 id k)
   
6. (command "ucs" "world")
   
7. (command "vpoint" "1,-1,1")
   
8.   (setq p0 (getpoint "\n 2点定xy平面角,1st pt:")
   
9.         ang1 (angtos (getangle p0 "\n2nd pt:") 0 0)
   
10.         ang2 (angtos (getangle p0 "\n 2点定camera与xy平面夹角,2nd pt:") 0 0)
    
11.         id 1)
    
12.   (command "vpoint" "r" ang1 ang2)
    
13.   (while (/= id 0)
    
14.      (setq k (getstring "\n6/8/4/2<eXit>:"))
    
15.      (cond
    
16.           ((= k "6")(setq ang1 (rtos (+ (atoi ang1) 5))))
    
17.           ((= k "8")(setq ang2 (rtos (+ (atoi ang2) 5))))   
    
18.             ((= k "4")(setq ang1 (rtos (- (atoi ang1) 5))))       
    
19.           ((= k "2")(setq ang2 (rtos (- (atoi ang2) 5))))
    
20.           ((= k "")(setq id 0))
    
21.      )
    
22.      (command "vpoint" "r" ang1 ang2)         
    
23.   )
    
24. )
    
25. ;;;
    
26. (princ "\n -------lxxvp---------   lxx-2000.02.11")
    
27. 
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;增强的 vpoint<br /> (defun c:lxxvp (/ ang1 ang2 id k)<br /> (command "ucs" "world")<br /> (command "vpoint" "1,-1,1")<br />   (setq p0 (getpoint "\n 2点定xy平面角,1st pt:")<br />         ang1 (angtos (getangle p0 "\n2nd pt:") 0 0) <br />         ang2 (angtos (getangle p0 "\n 2点定camera与xy平面夹角,2nd pt:") 0 0)<br />         id 1)<br />   (command "vpoint" "r" ang1 ang2)<br />   (while (/= id 0)<br />      (setq k (getstring "\n6/8/4/2<eXit>:"))<br />      (cond<br />           ((= k "6")(setq ang1 (rtos (+ (atoi ang1) 5))))<br />           ((= k "8")(setq ang2 (rtos (+ (atoi ang2) 5))))    <br />             ((= k "4")(setq ang1 (rtos (- (atoi ang1) 5))))        <br />           ((= k "2")(setq ang2 (rtos (- (atoi ang2) 5))))<br />           ((= k "")(setq id 0))<br />      )<br />      (command "vpoint" "r" ang1 ang2)         <br />   )<br /> )<br /> ;;;<br /> (princ "\n -------lxxvp---------   lxx-2000.02.11")<br /> <br />   [/FONT]<br />

好为人师

好像没什么用