明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 1661|回复: 76

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

  [复制链接]
发表于 2018-10-11 17:58 | 显示全部楼层 |阅读模式
本帖最后由 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) ">" )))



  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. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2018-10-11 18:27 | 显示全部楼层
回复看看,谢谢楼主
发表于 2018-10-11 19:11 | 显示全部楼层
新技术还是旧菜?
发表于 2018-10-11 19:56 | 显示全部楼层
新技术还是旧菜?
发表于 2018-10-11 20:01 | 显示全部楼层

回复看看,谢谢楼主
发表于 2018-10-11 20:21 来自手机 | 显示全部楼层
楼主又有新发现
 楼主| 发表于 2018-10-11 20:22 | 显示全部楼层
陨落 发表于 2018-10-11 19:11
新技术还是旧菜?

你现在也能看的到了,你觉得是新技术还是旧菜
 楼主| 发表于 2018-10-11 20:23 | 显示全部楼层
bai2000 发表于 2018-10-11 19:56
新技术还是旧菜?

你现在觉得是前者还是后者呢?
 楼主| 发表于 2018-10-11 20:26 | 显示全部楼层
caogis 发表于 2018-10-11 20:21
楼主又有新发现

为什么用又
发表于 2018-10-11 20:35 | 显示全部楼层
什么意思..没看明白呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-12-16 02:18 , Processed in 0.283986 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表