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

郑梓莘

假如有三个命令ML1、ML2、ML3、如何只通过一个命令如ML来选择性调用这三个命令输入ML命令后会有一个设置S可随时选择ML是执行的那个命令，并具有记忆不用每次输入ML都要设置

fangmin723

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178337&fromuid=7316343

llsheng_73

发错了，晕

fangmin723

llsheng_73 发表于 2018-10-11 16:42
发错了，晕

啥发错了？？？？

菜卷鱼

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

lisperado

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

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

郑梓莘

fangmin723 发表于 2018-10-11 16:23
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=178337&fromuid=7316343

非常感谢，找了好久没有找到

zmzk

lisperado 发表于 2018-10-12 18:14

择命令 [Line(1)/Circle(2)/Text(3)/Point(4)/Settings] 或<回键> ? :  2
AutoCAD 变量设置被拒绝: "cmdecho" nil