明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 244|回复: 6

[基础] 请教一个关于命令选择和记忆的问题

[复制链接]
发表于 2018-10-11 15:34 | 显示全部楼层 |阅读模式
假如有三个命令ML1、ML2、ML3、如何只通过一个命令如ML来选择性调用这三个命令输入ML命令后会有一个设置S可随时选择ML是执行的那个命令,并具有记忆不用每次输入ML都要设置
发表于 2018-10-11 16:23 | 显示全部楼层
本帖最后由 fangmin723 于 2018-10-12 08:09 编辑

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178337&fromuid=7316343
发表于 2018-10-11 16:48 来自手机 | 显示全部楼层
llsheng_73 发表于 2018-10-11 16:42
发错了,晕

啥发错了????
发表于 2018-10-12 10:12 | 显示全部楼层
(defun c:ml nil
(setq ml(getint "选择命令[ml1(1)/ML2(3)/ML3(3)]:"))
(if (= ml nil)(setq ml oml)(setq oml ml))
(cond
((= ml 1)(ml1))
((= ml 2)(ml2))
((= ml 1)(ml3))
)
(prin1)
)
发表于 2018-10-12 18:14 | 显示全部楼层
本帖最后由 lisperado 于 2018-10-12 22:29 编辑

  1. (defun c:ML (/ s)
  2.   (initget "1 2 3 4 Settings")
  3.   (setq s (getkword "\n选择命令 [Line(1)/Circle(2)/Text(3)/Point(4)/Settings] 或<回键> ? :  "))
  4.   (if s
  5.     (setq *last-command* (if (= s "Settings")
  6.                '(alert "\n设置等等等。。。")
  7. ;;;              (read (strcat "(ML" s ")")) ; 只可以用在名称ML1,ML2,ML3...格式,不通用!
  8.                  (nth (1-(atoi s)) '((Line) (Circle) (Text) (Point)))
  9.                 )
  10.           )
  11.     )
  12.   (eval *last-command*)
  13.   )






 楼主| 发表于 2018-10-13 09:45 | 显示全部楼层
fangmin723 发表于 2018-10-11 16:23
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178337&fromuid=7316343

非常感谢,找了好久没有找到
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2018-12-16 02:20 , Processed in 0.174447 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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