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

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

如何输入一个命令，比如命令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 static/image/common/back.gif
(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 static/image/common/back.gif
老师你帮我看下

(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>>>请选择:"
        )
        )
        (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
                                        )
                                )
                        )
                )
                (tnil)   
        )
        (princ)
)                                                                                       

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

lucas_3333 发表于 2016-4-26 17:10 static/image/common/back.gif


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

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

initgt后面字首大写

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

自贡黄明儒 发表于 2016-4-27 09:38 static/image/common/back.gif
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" "")

)
页: [1]
查看完整版本: 如何输入一个命令，比如命令tt，执行我已经有的三个程序aa，bb，cc