CAD-lisp之多选项命令嵌套和设置储存

fangmin723

CAD-lisp之多选项命令嵌套和设置储存
;程序效果：
;有三个命令ML1、ML2、ML3，
;只通过一个命令ML来《选择性》调用这三个命令。
;输入ML命令后，会有一个设置S可随时选择ML是执行的那个命令，
;并具有记忆不用每次输入ML都要设置

(setq input (getint (strcat "\n请选择执行命令[ML1(1)/ML2(2)/ML3(3)]默认：<" (rtos configuration) ">" )))

1. (defun c:ml(/ c:ml1 c:ml2 c:ml3 configuration file input path str)
   
2.   (defun c:ml1()
   
3.     (print "c:ml1")
   
4.   )
   
5.   (defun c:ml2()
   
6.     (print "c:ml2")
   
7.   )
   
8.   (defun c:ml3()
   
9.     (print "c:ml3")
   
10.   )
    
11.   (setvar "CMDECHO" 0)
    
12.   (setq path (strcat (vlax-get-property (vlax-get-acad-object) 'path) "\\Support\\configuration.ini"))
    
13.   (if (findfile path)
    
14.     (progn
    
15.       (if (/= (setq str (vl-string-trim " " (read-line (setq file (open path "r"))))) "")
    
16.         (progn
    
17.           (setq configuration (atoi str))
    
18.           (close file)
    
19.         )
    
20.       )
    
21.     )
    
22.     (setq configuration 1)
    
23.   )
    
24.   (if (setq input (getint (strcat "\n请选择执行命令[ML1(1)/ML2(2)/ML3(3)]默认：<" (rtos configuration) ">" )))
    
25.     (progn
    
26.       (setq configuration input file (open path "w"))
    
27.       (write-line (rtos configuration) file)
    
28.       (close file)
    
29.     )
    
30.   )
    
31.   (cond
    
32.     ((= configuration 1) (c:ML1))
    
33.     ((= configuration 2) (c:ML2))
    
34.     ((= configuration 3) (c:ML3))
    
35.     (T (princ "\n无效关键字！"))
    
36.   )
    
37.   (prin1)
    
38. )

(defun c:ml(/ c:ml1 c:ml2 c:ml3 configuration file input path str)<br />   (defun c:ml1()<br />     (print "c:ml1")<br />   )<br />   (defun c:ml2()<br />     (print "c:ml2")<br />   )<br />   (defun c:ml3()<br />     (print "c:ml3")<br />   )<br />   (setvar "CMDECHO" 0)<br />   (setq path (strcat (vlax-get-property (vlax-get-acad-object) 'path) "\\Support\\configuration.ini"))<br />   (if (findfile path)<br />     (progn<br />       (if (/= (setq str (vl-string-trim " " (read-line (setq file (open path "r"))))) "")<br />         (progn<br />           (setq configuration (atoi str))<br />           (close file)<br />         )<br />       )<br />     )<br />     (setq configuration 1)<br />   )<br />   (if (setq input (getint (strcat "\n请选择执行命令[ML1(1)/ML2(2)/ML3(3)]默认：<" (rtos configuration) ">" )))<br />     (progn<br />       (setq configuration input file (open path "w"))<br />       (write-line (rtos configuration) file)<br />       (close file)<br />     )<br />   )<br />   (cond<br />     ((= configuration 1) (c:ML1))<br />     ((= configuration 2) (c:ML2))<br />     ((= configuration 3) (c:ML3))<br />     (T (princ "\n无效关键字！"))<br />   )<br />   (prin1)<br /> )

fangmin723

陨落 发表于 2018-10-11 19:11
新技术还是旧菜？

你现在也能看的到了，你觉得是新技术还是旧菜

fangmin723

qq1254582201 发表于 2018-10-12 11:01
我只是来看看这个是什么东西的！！！！

标题这么吸引人吗

fangmin723

bai2000 发表于 2018-10-11 19:56
新技术还是旧菜？

你现在觉得是前者还是后者呢？

yaokui25

回复看看,谢谢楼主

陨落

新技术还是旧菜？

bai2000

新技术还是旧菜？

332319857

回复看看,谢谢楼主

caogis

楼主又有新发现

fangmin723

caogis 发表于 2018-10-11 20:21
楼主又有新发现

为什么用又

q3_2006

什么意思..没看明白呢