郑梓莘 发表于 2018-10-11 15:34:33

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

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

fangmin723 发表于 2018-10-11 16:23:38

本帖最后由 fangmin723 于 2018-10-12 08:09 编辑

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

llsheng_73 发表于 2018-10-11 16:42:55

发错了，晕

fangmin723 发表于 2018-10-11 16:48:34

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

啥发错了？？？？

菜卷鱼 发表于 2018-10-12 10:12:35

(defun c:ml nil
(setq ml(getint "选择命令:"))
(if (= ml nil)(setq ml oml)(setq oml ml))
(cond
((= ml 1)(ml1))
((= ml 2)(ml2))
((= ml 1)(ml3)）
)
(prin1)
)

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

本帖最后由 lisperado 于 2018-10-12 22:29 编辑


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






郑梓莘 发表于 2018-10-13 09:45:50

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

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

zmzk 发表于 2025-1-15 07:07:42

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


择命令 或<回键> ? :2
AutoCAD 变量设置被拒绝: "cmdecho" nil
页: [1]
查看完整版本: 请教一个关于命令选择和记忆的问题