如何按顺序执行command调用的内部命令

_chaogang

请教各位   现在我需要绘制一条多段线后， 紧接着再绘制一个圆，按上面的写法无法实现  程序加载后会把两个命令一起执行  有什么方法能再两个命令之间暂停  等多段线画完后再执行画圆的命令  

我想的是获取命令行输入的内容  当输入为nil时执行画圆的命令  但是我不知道命令行输入的内容传给哪个系统变量了  有哪个大佬知道嘛  想改写成下面这个样子

(command "pline")
(while (= 系统变量 nil)
  (command "circle)
)

start4444

这样？ (command "PLINE" (setq px (getpoint "\n起点:")) (while (setq px (getpoint px "\n下一点:")) (command "non"  px )) "CIRCLE" pause)

自贡黄明儒

听 说lisp是万能的，不信你试试。
(defun C:z1 (/ e0)
  (setq e0 (entlast))
  ((if command-s command-s command) "pline")
  (while (equal e0 (entlast))
    ((if command-s command-s command) pause)
  )
  ((if command-s command-s command) "circle")
  (princ)
)

(defun C:z2 ()  
  ((if command-s command-s command) "pline")
  
  (while  (/= 0 (getvar 'cmdactive))
    ((if command-s command-s command) pause)
  )
  ((if command-s command-s command) "circle")
  (princ)
)


(defun C:z3 ()  
  ((if command-s command-s command) "pline")
  
  (while  (/= "" (getvar 'cmdnames))
    ((if command-s command-s command) pause)
  )
  ((if command-s command-s command) "circle")
  (princ)
)

_chaogang

自贡黄明儒 发表于 2024-5-6 16:41
(command "fillet" pause)

。。。我不是要圆角  我是要画两个图元     正常执行（command “pline") 后   会提示我选择点   我要实现的是多段线绘制完后再执行（command "circle")   现在它是两条命令一起执行了  导致（command "circle")这条命令丢失了  

自贡黄明儒

(while (= "PLINE" (GETVAR "CMDNAMES"))
   ((if command-s command-s vl-cmdf) pause)
）这样行不行？

_chaogang

自贡黄明儒 发表于 2024-5-6 16:04
(while (= "PLINE" (GETVAR "CMDNAMES"))
   ((if command-s command-s vl-cmdf) pause)
）这样行不行？ ...

试了一下  好像不行   

自贡黄明儒

(command "fillet" pause)

z312144636

中間加一條語句
(setq pt0 (getpoint "請點選插入點:"))

yaokui25

这个我也想了解一些,一起研究

你有种再说一遍

你没有弄懂代码流程,参数是提前准备好的,参数失败才不调用命令,而不是先调用命令再传入参数