CASS 比例尺判断程序。。。。。

zhb236623

1. (defun c:blc8()
   
2. (setq blc_cass7 (getvar "userr1"))
   
3. 
   
4. (cond  (  ( = blc_cass7 500)
   
5.            (princ "比例尺,,,,,为500")
   
6.            (princ)
   
7.          )
   
8.                        
   
9.                        
   
10.       (  ( = blc_cass7 200)
    
11.                           (princ "比例尺,,,,,为200")
    
12.                           (princ)
    
13.                         )
    
14.                        
    
15.                        
    
16.                  (  ( = blc_cass7 1000)
    
17.                    (princ "比例尺,,,,,为1000")
    
18.                    (princ)
    
19.                  )
    
20.                  
    
21.                 (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))
    
22.                   (princ "比例尺不为1：500，1：200，1：1000请检查比例尺设置，程序将退出。")
    
23.                   (exit)
    
24.                 )
    
25.                
    
26. )
    
27. (princ "程序正常运行")
    
28. (princ)
    
29. )

复制代码

折翼天使

谢谢楼主。。。。。。

大话西游

有点看不懂。。

沧桑哥

谢谢分享！！！！

折翼天使

谢谢楼主。。。。。。

折翼天使

谢谢楼主。。。。。。

lgvivi

不知道具体什么作用
请楼主详细说明

pboy007

不错，支持一下