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

fangmin723 · 发表于 2018-10-11 17:58:25

本帖最后由 fangmin723 于 2018-10-18 09:06 编辑

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

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

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

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

fangmin723 · 发表于 2018-10-11 20:22:46

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

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

fangmin723 · 发表于 2018-10-12 13:10:39

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

标题这么吸引人吗

fangmin723 · 发表于 2018-10-11 20:23:22

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

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

yaokui25 · 发表于 2018-10-11 18:27:44

回复看看,谢谢楼主

陨落 · 发表于 2018-10-11 19:11:26

新技术还是旧菜？

bai2000 · 发表于 2018-10-11 19:56:24

新技术还是旧菜？

332319857 · 发表于 2018-10-11 20:01:19

回复看看,谢谢楼主

caogis · 发表于 2018-10-11 20:21:11

楼主又有新发现

fangmin723 · 发表于 2018-10-11 20:26:32

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

为什么用又

q3_2006 · 发表于 2018-10-11 20:35:27

什么意思..没看明白呢

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分