如何输入一个命令，比如命令tt，执行我已经有的三个程序aa，bb，cc

664571221 · 发表于 2016-4-26 14:08:08

如何输入一个命令，比如命令tt，执行我已经有的三个程序aa，bb，cc，或者用空格键依次执行

自贡黄明儒 · 发表于 2016-4-26 15:31:27

(defun tt()
(aa)
(bb)
(cc)
)
(tt);执行

664571221 · 发表于 2016-4-26 16:19:37

自贡黄明儒发表于 2016-4-26 15:31
(defun tt()
(aa)
(bb)

老师你帮我看下

(DEFUN C:tt ( / SS)

(SETQ SS (SSGET '((0 . "*text")(1 . "*%%130*,*%%131*,*%%132*"))))
(command "erase" ss "")

(SETQ SS (SSGET '((0 . "*text")(1 . "*L*),*L*)"))))
(COMMAND "CHPROP" SS "" "C" "1" "") (SETVAR "CMDECHO" 1)

(SETQ SS (SSGET '((0 . "*text")(1 . "???X???,???x???,(*)"))))
(COMMAND "CHPROP" SS "" "C" "6" "") (SETVAR "CMDECHO" 6)

)

664571221 · 发表于 2016-4-26 16:20:34

664571221 发表于 2016-4-26 16:19
老师你帮我看下

(DEFUN C:tt ( / SS)

老师你好，你看下 tt中间的句子有三段分别是三个功能，如何让他们依次执行

lucas_3333 · 发表于 2016-4-26 17:10:22

(defun c:tt ( / ss)
(initget 128 "aa bb cc")
(setq key (getkword
"\n>>>请选择:[aa/bb/cc]"
)
)
(if (not key)
(setq key "aa")
)
(cond
((= key "aa")
(while
(if
(null (setq ss (ssget '((0 . "*text")(1 . "*%%130*,*%%131*,*%%132*")))))
(progn
(alert "\n没有选择到任何对象!")
t
)
(progn
(command "erase" ss "")
nil
)
)
)
)
((= key "bb")
(while
(if
(null (setq ss (ssget '((0 . "*text")(1 . "*l*),*l*)")))))
(progn
(alert "\n没有选择到任何对象!")
t
)
(progn
(command "chprop" ss "" "c" "1" "")
(setvar "cmdecho" 1)
nil
)
)
)
)
((= key "cc")
(while
(if
(null (setq ss (ssget '((0 . "*text")(1 . "???x???,???x???,(*)")))))
(progn
(alert "\n没有选择到任何对象!")
t
)
(progn
(command "chprop" ss "" "c" "6" "")
(setvar "cmdecho" 6)
nil
)
)
)
)
(t nil)
)
(princ)
)

(defun c:tt ( / ss) 
        (initget 128 "aa bb cc") 
        (setq        key (getkword 
                "\n>>>请选择:[aa/bb/cc]" 
        ) 
        ) 
        (if (not key) 
                (setq key "aa") 
        ) 
        (cond 
                ((= key "aa") 
                        (while 
                                (if 
                                        (null (setq ss (ssget '((0 . "*text")(1 . "*%%130*,*%%131*,*%%132*"))))) 
                                        (progn 
                                                (alert "\n没有选择到任何对象!") 
                                                t 
                                        ) 
                                        (progn 
                                                (command "erase" ss "") 
                                                nil 
                                        ) 
                                ) 
                        ) 
                ) 
                ((= key "bb") 
                        (while 
                                (if 
                                        (null (setq ss (ssget '((0 . "*text")(1 . "*l*),*l*)"))))) 
                                        (progn 
                                                (alert "\n没有选择到任何对象!") 
                                                t 
                                        ) 
                                        (progn 
                                                (command "chprop" ss "" "c" "1" "") 
                                                (setvar "cmdecho" 1) 
                                                nil 
                                        ) 
                                ) 
                        ) 
                ) 
                ((= key "cc") 
                        (while 
                                (if 
                                        (null (setq ss (ssget '((0 . "*text")(1 . "???x???,???x???,(*)"))))) 
                                        (progn 
                                                (alert "\n没有选择到任何对象!") 
                                                t 
                                        ) 
                                        (progn 
                                                (command "chprop" ss "" "c" "6" "") 
                                                (setvar "cmdecho" 6) 
                                                nil 
                                        ) 
                                ) 
                        ) 
                ) 
                (t  nil)    
        ) 
        (princ) 
)

664571221 · 发表于 2016-4-27 09:22:20

lucas_3333 发表于 2016-4-26 17:10

老师怎么都是在执行aa的功能

自贡黄明儒 · 发表于 2016-4-27 09:38:02

initgt后面字首大写

664571221 · 发表于 2016-4-27 10:50:45

自贡黄明儒发表于 2016-4-27 09:38
initgt后面字首大写

老师是什么意思

kwok · 发表于 2016-4-27 14:26:45

(DEFUN C:tt( / SS s)
(SETQ Ss (SSGET))

(SETQ S (SSGET "_P" '((0 . "*text"))))
(command "erase" s "")

(command "_.select" Ss "")
(SETQ S (SSGET "_P" '((0 . "*line"))))
(COMMAND "CHPROP" S "" "C" "1" "")

(command "_.select" Ss "")
(SETQ S (SSGET "_P" '((0 . "CIRCLE"))))
(COMMAND "CHPROP" S "" "C" "6" "")

)

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

[提问] 如何输入一个命令，比如命令tt，执行我已经有的三个程序aa，bb，cc

相关帖子

点评