微笑忘记过去 发表于 2013-10-16 19:34:10

用lsp怎么实现两个命令的循环执行

我是菜鸟，请问大家用lsp怎么实现两个命令的循环执行？L比如两个命令A和B我都定义过了， 我想定义另外一个命令C来循环执行命令A和B,每执行一次就结束。就类似CAD里用CTRIL+1来循环执行properties和propertiesclose。表达能力欠佳，还望见谅！

Andyhon 发表于 2013-10-16 20:05:55

Try this....
(defun fun1 () (princ "\n Fun1...") (getpoint))
(defun fun2 () (princ "\n Fun2...") (getpoint))

(defun cy ()
   (and
   (fun1)
   (fun2)
   (cy)
   )
)

lostbalance 发表于 2013-10-16 20:09:16

刚接触lsp没多久，不合适无怪
试试。。。
(if (= key "xa")
(command a (setq key "xb"))
(command b (setq key "xa"))
)

fl202 发表于 2013-10-17 10:24:56

表达能力欠佳。

循环执行和开关是两个概念嘛。

比如灯，按下开，再按下关。

我猜你的意思是判断条件，然后执行A或者B一次。

看你是怎么定义A或者B的？
(defun A() ...)
则
(defun C:C)
(if 判断条件
(A)
(B)
)
)
(defun C:A() ...)
则(if .
(C:A)
(C:B)
)

atone 发表于 2024-2-15 18:04:20

思路都不错
页: [1]
查看完整版本: 用lsp怎么实现两个命令的循环执行