怎么等待一个命令结束 才执行下一句？

yaojing38

大佬们，怎么等待一个command 命令自动结束了，才执行下一句呢？？感觉不太行 cmdactive ！感觉没等待就进行下一句了，或者有啥 像断点一样的功能吗？求大佬指点！

qifeifei

cghdy 发表于 2025-9-1 16:30
你这是deepseek写的吧

calude写的

2. ;; AutoLISP 命令等待示例
   
3. ;; 演示如何等待命令完成后再执行下一句
   
4. 
   
5. (defun c:wait-demo ()
   
6.   (princ "\n=== 命令等待演示 ===\n")
   
7.   
   
8.   ;; 方法1: 使用 command 函数 (推荐)
   
9.   ;; command 函数会自动等待命令完成
   
10.   (princ "\n方法1: 使用 command 函数")
    
11.   (command "circle" "0,0" "50")  ; 画圆，会等待完成
    
12.   (princ "\n圆已绘制完成，继续下一步...")
    
13.   
    
14.   ;; 方法2: 使用 vl-cmdf 函数 (更现代的方式)
    
15.   (princ "\n方法2: 使用 vl-cmdf 函数")
    
16.   (vl-cmdf "line" "100,0" "200,100" "")  ; 画线，会等待完成
    
17.   (princ "\n线已绘制完成...")
    
18.   
    
19.   ;; 方法3: 检查系统变量 CMDACTIVE
    
20.   (princ "\n方法3: 监控 CMDACTIVE 系统变量")
    
21.   (command "arc" "300,0" "400,50" "350,100")
    
22.   (while (> (getvar "CMDACTIVE") 0)  ; 等待命令完成
    
23.     (princ ".")  ; 显示等待过程
    
24.   )
    
25.   (princ "\n弧线已绘制完成...")
    
26.   
    
27.   (princ "\n=== 演示完成 ===")
    
28.   (princ)
    
29. )
    
30. 
    
31. ;; 高级等待函数示例
    
32. (defun wait-for-command-complete ()
    
33.   "等待当前命令完成的通用函数"
    
34.   (while (> (getvar "CMDACTIVE") 0)
    
35.     (command "")  ; 发送空命令继续
    
36.   )
    
37. )
    
38. 
    
39. ;; 带超时的等待函数
    
40. (defun wait-with-timeout (timeout-seconds)
    
41.   "带超时的命令等待函数"
    
42.   (setq start-time (getvar "DATE"))
    
43.   (while (and (> (getvar "CMDACTIVE") 0)
    
44.               (< (- (getvar "DATE") start-time) (/ timeout-seconds 86400.0)))
    
45.     (command "")
    
46.   )
    
47.   (if (> (getvar "CMDACTIVE") 0)
    
48.     (progn
    
49.       (command "^C^C")  ; 取消命令
    
50.       (princ "\n命令超时，已取消")
    
51.     )
    
52.     (princ "\n命令正常完成")
    
53.   )
    
54. )
    
55. 
    
56. ;; 实际应用示例：批量绘图
    
57. (defun c:batch-draw ()
    
58.   "批量绘图示例 - 确保每个命令完成后再执行下一个"
    
59.   (princ "\n开始批量绘图...")
    
60.   
    
61.   ;; 设置图层
    
62.   (command "layer" "m" "图形层" "c" "red" "图形层" "")
    
63.   (wait-for-command-complete)
    
64.   
    
65.   ;; 绘制多个图形
    
66.   (setq shapes (list
    
67.     '("circle" "0,0" "25")
    
68.     '("rectangle" "50,50" "100,100")
    
69.     '("line" "150,0" "200,50" "")
    
70.   ))
    
71.   
    
72.   (foreach shape shapes
    
73.     (princ (strcat "\n正在绘制: " (car shape)))
    
74.     (apply 'command shape)  ; 执行绘图命令
    
75.     (wait-for-command-complete)  ; 等待完成
    
76.     (princ " 完成!")
    
77.   )
    
78.   
    
79.   (princ "\n批量绘图完成!")
    
80.   (princ)
    
81. )
    
82. 
    
83. ;; 用户交互等待示例
    
84. (defun c:interactive-demo ()
    
85.   "交互式命令等待演示"
    
86.   (princ "\n请选择一个点...")
    
87.   
    
88.   ;; 等待用户输入
    
89.   (setq pt (getpoint "\n选择起点: "))
    
90.   (if pt
    
91.     (progn
    
92.       (princ "\n开始绘制...")
    
93.       (command "circle" pt "30")
    
94.       (wait-for-command-complete)
    
95.       (princ "\n绘制完成!")
    
96.     )
    
97.     (princ "\n用户取消操作")
    
98.   )
    
99.   (princ)
    
100. )
     
101. 
     
102. ;; 错误处理的等待示例
     
103. (defun c:safe-command ()
     
104.   "带错误处理的命令等待"
     
105.   (setq old-error *error*)  ; 保存原错误处理
     
106.   (setq *error* my-error-handler)  ; 设置自定义错误处理
     
107.   
     
108.   (princ "\n执行可能出错的命令...")
     
109.   (command "unknown-command")  ; 故意的错误命令
     
110.   
     
111.   ;; 恢复错误处理
     
112.   (setq *error* old-error)
     
113.   (princ)
     
114. )
     
115. 
     
116. (defun my-error-handler (msg)
     
117.   "自定义错误处理函数"
     
118.   (princ (strcat "\n发生错误: " msg))
     
119.   (command "^C^C")  ; 取消当前命令
     
120.   (setq *error* old-error)  ; 恢复原错误处理
     
121.   (princ)
     
122. )
     
123. 
     
124. ;; 调试辅助函数
     
125. (defun debug-command-state ()
     
126.   "显示当前命令状态信息"
     
127.   (princ (strcat "\nCMDACTIVE: " (itoa (getvar "CMDACTIVE"))))
     
128.   (princ (strcat "\nCMDNAME: " (getvar "CMDNAMES")))
     
129.   (princ (strcat "\nCMDECHO: " (itoa (getvar "CMDECHO"))))
     
130.   (princ)
     
131. )
     
132. 
     
133. ;; 使用说明:
     
134. ;; 1. 加载此文件到AutoCAD
     
135. ;; 2. 运行 wait-demo 查看基本等待方法
     
136. ;; 3. 运行 batch-draw 查看批量操作示例
     
137. ;; 4. 运行 interactive-demo 查看交互式等待
     
138. ;; 5. 运行 debug-command-state 查看当前命令状态

;; AutoLISP 命令等待示例<br /> ;; 演示如何等待命令完成后再执行下一句<br /> <br /> (defun c:wait-demo ()<br />   (princ "\n=== 命令等待演示 ===\n")<br />   <br />   ;; 方法1: 使用 command 函数 (推荐)<br />   ;; command 函数会自动等待命令完成<br />   (princ "\n方法1: 使用 command 函数")<br />   (command "circle" "0,0" "50")  ; 画圆，会等待完成<br />   (princ "\n圆已绘制完成，继续下一步...")<br />   <br />   ;; 方法2: 使用 vl-cmdf 函数 (更现代的方式)<br />   (princ "\n方法2: 使用 vl-cmdf 函数")<br />   (vl-cmdf "line" "100,0" "200,100" "")  ; 画线，会等待完成<br />   (princ "\n线已绘制完成...")<br />   <br />   ;; 方法3: 检查系统变量 CMDACTIVE<br />   (princ "\n方法3: 监控 CMDACTIVE 系统变量")<br />   (command "arc" "300,0" "400,50" "350,100")<br />   (while (> (getvar "CMDACTIVE") 0)  ; 等待命令完成<br />     (princ ".")  ; 显示等待过程<br />   )<br />   (princ "\n弧线已绘制完成...")<br />   <br />   (princ "\n=== 演示完成 ===")<br />   (princ)<br /> )<br /> <br /> ;; 高级等待函数示例<br /> (defun wait-for-command-complete ()<br />   "等待当前命令完成的通用函数"<br />   (while (> (getvar "CMDACTIVE") 0)<br />     (command "")  ; 发送空命令继续<br />   )<br /> )<br /> <br /> ;; 带超时的等待函数<br /> (defun wait-with-timeout (timeout-seconds)<br />   "带超时的命令等待函数"<br />   (setq start-time (getvar "DATE"))<br />   (while (and (> (getvar "CMDACTIVE") 0)<br />               (< (- (getvar "DATE") start-time) (/ timeout-seconds 86400.0)))<br />     (command "")<br />   )<br />   (if (> (getvar "CMDACTIVE") 0)<br />     (progn<br />       (command "^C^C")  ; 取消命令<br />       (princ "\n命令超时，已取消")<br />     )<br />     (princ "\n命令正常完成")<br />   )<br /> )<br /> <br /> ;; 实际应用示例：批量绘图<br /> (defun c:batch-draw ()<br />   "批量绘图示例 - 确保每个命令完成后再执行下一个"<br />   (princ "\n开始批量绘图...")<br />   <br />   ;; 设置图层<br />   (command "layer" "m" "图形层" "c" "red" "图形层" "")<br />   (wait-for-command-complete)<br />   <br />   ;; 绘制多个图形<br />   (setq shapes (list <br />     '("circle" "0,0" "25")<br />     '("rectangle" "50,50" "100,100") <br />     '("line" "150,0" "200,50" "")<br />   ))<br />   <br />   (foreach shape shapes<br />     (princ (strcat "\n正在绘制: " (car shape)))<br />     (apply 'command shape)  ; 执行绘图命令<br />     (wait-for-command-complete)  ; 等待完成<br />     (princ " 完成!")<br />   )<br />   <br />   (princ "\n批量绘图完成!")<br />   (princ)<br /> )<br /> <br /> ;; 用户交互等待示例<br /> (defun c:interactive-demo ()<br />   "交互式命令等待演示"<br />   (princ "\n请选择一个点...")<br />   <br />   ;; 等待用户输入<br />   (setq pt (getpoint "\n选择起点: "))<br />   (if pt<br />     (progn<br />       (princ "\n开始绘制...")<br />       (command "circle" pt "30")<br />       (wait-for-command-complete)<br />       (princ "\n绘制完成!")<br />     )<br />     (princ "\n用户取消操作")<br />   )<br />   (princ)<br /> )<br /> <br /> ;; 错误处理的等待示例<br /> (defun c:safe-command ()<br />   "带错误处理的命令等待"<br />   (setq old-error *error*)  ; 保存原错误处理<br />   (setq *error* my-error-handler)  ; 设置自定义错误处理<br />   <br />   (princ "\n执行可能出错的命令...")<br />   (command "unknown-command")  ; 故意的错误命令<br />   <br />   ;; 恢复错误处理<br />   (setq *error* old-error)<br />   (princ)<br /> )<br /> <br /> (defun my-error-handler (msg)<br />   "自定义错误处理函数"<br />   (princ (strcat "\n发生错误: " msg))<br />   (command "^C^C")  ; 取消当前命令<br />   (setq *error* old-error)  ; 恢复原错误处理<br />   (princ)<br /> )<br /> <br /> ;; 调试辅助函数<br /> (defun debug-command-state ()<br />   "显示当前命令状态信息"<br />   (princ (strcat "\nCMDACTIVE: " (itoa (getvar "CMDACTIVE"))))<br />   (princ (strcat "\nCMDNAME: " (getvar "CMDNAMES")))<br />   (princ (strcat "\nCMDECHO: " (itoa (getvar "CMDECHO"))))<br />   (princ)<br /> )<br /> <br /> ;; 使用说明:<br /> ;; 1. 加载此文件到AutoCAD<br /> ;; 2. 运行 wait-demo 查看基本等待方法<br /> ;; 3. 运行 batch-draw 查看批量操作示例<br /> ;; 4. 运行 interactive-demo 查看交互式等待<br /> ;; 5. 运行 debug-command-state 查看当前命令状态

qifeifei

2. ;;=========================================
   
3. ;; wait_command_demo.lsp
   
4. ;; 演示：如何等待 command 命令结束后再执行下一句
   
5. ;; 支持普通命令和弹出对话框的命令
   
6. ;; 加载方式：APPLOAD 或 (load "wait_command_demo")
   
7. ;; 输入命令：TESTCMD  开始测试
   
8. ;;=========================================
   
9. 
   
10. ;; 确保加载 Visual LISP 扩展函数（用于 sleep 和 redraw）
    
11. (vl-load-com)
    
12. 
    
13. (defun c:TESTCMD (/ pt1 pt2)
    
14. 
    
15.   (prompt "\n&#128216; 开始执行 TESTCMD 测试...")
    
16. 
    
17.   ; ---- 1. 普通命令：LINE（会自动等待结束）----
    
18.   (prompt "\n&#128073; 第一步：请绘制一条直线...")
    
19.   (command "_.line" pause pause "")  ; pause 等待用户输入两点，"" 表示回车结束
    
20.   (prompt "\n&#9989; 直线已绘制完成，command 已自动阻塞等待结束。\n")
    
21. 
    
22. 
    
23. 
    
24.   ; ---- 2. 弹出对话框命令：DIMSTYLE（不会自动等待！）----
    
25.   (prompt "\n&#128073; 第二步：打开【标注样式管理器】对话框...")
    
26.   (command "_.dimstyle")  ; 这个命令会弹出对话框，但 LISP 不会等待它关闭！
    
27. 
    
28.   (prompt "\n&#9888;&#65039; 注意：对话框已打开，但 LISP 代码仍在运行！")
    
29. 
    
30.   ; &#128257; 使用 CMDACTIVE 轮询，等待用户关闭对话框
    
31.   (prompt "\n&#9203; 正在等待用户关闭【标注样式管理器】...")
    
32.   (while (= (getvar "CMDACTIVE") 1)
    
33.     (vl-cmdf "_.redraw")  ; 防止界面卡死
    
34.     (sleep 200)           ; 暂停200毫秒，避免CPU占用过高
    
35.   )
    
36. 
    
37.   (prompt "\n&#9989; 对话框已关闭，命令真正结束！现在继续执行后续代码。\n")
    
38. 
    
39. 
    
40. 
    
41.   ; ---- 3. 模拟“断点”调试功能 ----
    
42.   (prompt "\n&#128721; 现在进入调试模式（类似断点）...")
    
43.   (prompt (strcat "\n&#128161; 提示：当前 LISP 变量 pt1 = " (if pt1 (rtos pt1 2 2) "nil")))
    
44.   (princ "\n&#9000;&#65039;  按回车键继续执行...")  ; 提示用户
    
45.   (!)     ; 输出所有当前变量（仅在 VLIDE 调试时有用）
    
46.   (pause) ; 暂停，等待用户按回车
    
47. 
    
48.   (prompt "\n&#9989; 继续执行最后一步...")
    
49. 
    
50. 
    
51. 
    
52.   ; ---- 4. 最后执行一个简单命令 ----
    
53.   (command "_.circle" '(50 50) 100 "")
    
54.   (prompt "\n&#128994; 一个圆已绘制在 (50,50)，半径100。")
    
55. 
    
56.   (prompt "\n&#127881; 所有操作完成！感谢使用 TESTCMD。")
    
57.   (princ) ; 静默退出，不打印多余内容
    
58. )
    
59. 
    
60. ;; 可选：加载时提示
    
61. (princ "\n&#128230; 已加载：wait_command_demo.lsp")
    
62. (princ "\n&#128204; 输入命令 TESTCMD 开始测试。")
    
63. (princ)

;;=========================================<br /> ;; wait_command_demo.lsp<br /> ;; 演示：如何等待 command 命令结束后再执行下一句<br /> ;; 支持普通命令和弹出对话框的命令<br /> ;; 加载方式：APPLOAD 或 (load "wait_command_demo")<br /> ;; 输入命令：TESTCMD  开始测试<br /> ;;=========================================<br /> <br /> ;; 确保加载 Visual LISP 扩展函数（用于 sleep 和 redraw）<br /> (vl-load-com)<br /> <br /> (defun c:TESTCMD (/ pt1 pt2)<br /> <br />   (prompt "\n&#128216; 开始执行 TESTCMD 测试...")<br /> <br />   ; ---- 1. 普通命令：LINE（会自动等待结束）----<br />   (prompt "\n&#128073; 第一步：请绘制一条直线...")<br />   (command "_.line" pause pause "")  ; pause 等待用户输入两点，"" 表示回车结束<br />   (prompt "\n&#9989; 直线已绘制完成，command 已自动阻塞等待结束。\n")<br /> <br /> <br /> <br />   ; ---- 2. 弹出对话框命令：DIMSTYLE（不会自动等待！）----<br />   (prompt "\n&#128073; 第二步：打开【标注样式管理器】对话框...")<br />   (command "_.dimstyle")  ; 这个命令会弹出对话框，但 LISP 不会等待它关闭！<br /> <br />   (prompt "\n&#9888;&#65039; 注意：对话框已打开，但 LISP 代码仍在运行！")<br /> <br />   ; &#128257; 使用 CMDACTIVE 轮询，等待用户关闭对话框<br />   (prompt "\n&#9203; 正在等待用户关闭【标注样式管理器】...")<br />   (while (= (getvar "CMDACTIVE") 1)<br />     (vl-cmdf "_.redraw")  ; 防止界面卡死<br />     (sleep 200)           ; 暂停200毫秒，避免CPU占用过高<br />   )<br /> <br />   (prompt "\n&#9989; 对话框已关闭，命令真正结束！现在继续执行后续代码。\n")<br /> <br /> <br /> <br />   ; ---- 3. 模拟“断点”调试功能 ----<br />   (prompt "\n&#128721; 现在进入调试模式（类似断点）...")<br />   (prompt (strcat "\n&#128161; 提示：当前 LISP 变量 pt1 = " (if pt1 (rtos pt1 2 2) "nil")))<br />   (princ "\n&#9000;&#65039;  按回车键继续执行...")  ; 提示用户<br />   (!)     ; 输出所有当前变量（仅在 VLIDE 调试时有用）<br />   (pause) ; 暂停，等待用户按回车<br /> <br />   (prompt "\n&#9989; 继续执行最后一步...")<br /> <br /> <br /> <br />   ; ---- 4. 最后执行一个简单命令 ----<br />   (command "_.circle" '(50 50) 100 "")<br />   (prompt "\n&#128994; 一个圆已绘制在 (50,50)，半径100。")<br /> <br />   (prompt "\n&#127881; 所有操作完成！感谢使用 TESTCMD。")<br />   (princ) ; 静默退出，不打印多余内容<br /> )<br /> <br /> ;; 可选：加载时提示<br /> (princ "\n&#128230; 已加载：wait_command_demo.lsp")<br /> (princ "\n&#128204; 输入命令 TESTCMD 开始测试。")<br /> (princ)

yaojing38

你有种再说一遍 发表于 2025-9-1 15:02
那就别用它啊,具体代码具体展示

(repeat (length fil)
                (setq fi (nth i fil)  wb_na1 (nth i fil1))
                (command "SCRIPT"  fi)
                ;(command-s "_.delay" 10000)
                (while (= (getvar "cmdactive") 1) (command pause))
               
                (setq wb_na (strcat dir "\\" wb_na1  ".dwg"))
                (setq wb_ss (ssget "x"))
                (command "-wblock" wb_na "" '(0 0 0) wb_ss "" "oops")
                (command "ERASE" wb_ss "" )
                (setq i (1+ i))
        )

你有种再说一遍

难道你是用了sendCommand?

yaojing38

你有种再说一遍 发表于 2025-9-1 14:43
难道你是用了sendCommand?

啥意义，没有，，就是我的命令在绘图，需要一定时间完成

你有种再说一遍

yaojing38 发表于 2025-9-1 14:45
啥意义，没有，，就是我的命令在绘图，需要一定时间完成

??发言意义不明...

yaojing38

你有种再说一遍 发表于 2025-9-1 14:46
??发言意义不明...

没用 sendCommand 但是cmdactive 没有等待  就执行下一个了

qifeifei

加入延迟命令

你有种再说一遍

yaojing38 发表于 2025-9-1 14:58
没用 sendCommand 但是cmdactive 没有等待  就执行下一个了

那就别用它啊,具体代码具体展示

yaojing38

qifeifei 发表于 2025-9-1 15:00
加入延迟命令

试了也是不行

qifeifei

yaojing38 发表于 2025-9-1 15:16
试了也是不行

(vl-load-com)

;; --- 获取当前文档 ---
(setq *acadDoc* (vla-get-ActiveDocument (vlax-get-acad-object)))

;; --- 定义回调函数，命令结束后执行 ---
(defun my-cmd-end-callback (/)
  (princ "\n命令已执行完毕，可以执行下一步逻辑。")
  ;; 放你要执行的下一句代码
  (command "_circle" '(50 50) 25)
)

;; --- 注册事件监听 ---
(vla-AddEventHandler *acadDoc* 'CommandEnded 'my-cmd-end-callback)

;; --- 发送命令（异步） ---
(vla-sendcommand *acadDoc* "._line 0,0 100,0 ")
(princ "\n命令已发送，等待结束...")