本帖最后由 yaojing38 于 2025-9-1 14:41 编辑

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


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

calude写的
  2. ;; AutoLISP 命令等待示例
  3. ;; 演示如何等待命令完成后再执行下一句

  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. )

  31. ;; 高级等待函数示例
  32. (defun wait-for-command-complete ()
  33.   "等待当前命令完成的通用函数"
  34.   (while (> (getvar "CMDACTIVE") 0)
  35.     (command "")  ; 发送空命令继续
  36.   )
  37. )

  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. )

  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. )

  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. )

  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. )

  116. (defun my-error-handler (msg)
  117.   "自定义错误处理函数"
  118.   (princ (strcat "\n发生错误: " msg))
  119.   (command "^C^C")  ; 取消当前命令
  120.   (setq *error* old-error)  ; 恢复原错误处理
  121.   (princ)
  122. )

  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. )

  133. ;; 使用说明:
  134. ;; 1. 加载此文件到AutoCAD
  135. ;; 2. 运行 wait-demo 查看基本等待方法
  136. ;; 3. 运行 batch-draw 查看批量操作示例
  137. ;; 4. 运行 interactive-demo 查看交互式等待
  138. ;; 5. 运行 debug-command-state 查看当前命令状态


网友答:
  2. ;;=========================================
  3. ;; wait_command_demo.lsp
  4. ;; 演示：如何等待 command 命令结束后再执行下一句
  5. ;; 支持普通命令和弹出对话框的命令
  6. ;; 加载方式：APPLOAD 或 (load "wait_command_demo")
  7. ;; 输入命令：TESTCMD  开始测试
  8. ;;=========================================

  10. ;; 确保加载 Visual LISP 扩展函数（用于 sleep 和 redraw）
  11. (vl-load-com)

  13. (defun c:TESTCMD (/ pt1 pt2)

  15.   (prompt "\n&#128216; 开始执行 TESTCMD 测试...")

  17.   ; ---- 1. 普通命令：LINE（会自动等待结束）----
  18.   (prompt "\n&#128073; 第一步：请绘制一条直线...")
  19.   (command "_.line" pause pause "")  ; pause 等待用户输入两点，"" 表示回车结束
  20.   (prompt "\n&#9989; 直线已绘制完成，command 已自动阻塞等待结束。\n")



  24.   ; ---- 2. 弹出对话框命令：DIMSTYLE（不会自动等待！）----
  25.   (prompt "\n&#128073; 第二步：打开【标注样式管理器】对话框...")
  26.   (command "_.dimstyle")  ; 这个命令会弹出对话框，但 LISP 不会等待它关闭！

  28.   (prompt "\n&#9888;&#65039; 注意：对话框已打开，但 LISP 代码仍在运行！")

  30.   ; &#128257; 使用 CMDACTIVE 轮询，等待用户关闭对话框
  31.   (prompt "\n&#9203; 正在等待用户关闭【标注样式管理器】...")
  32.   (while (= (getvar "CMDACTIVE") 1)
  33.     (vl-cmdf "_.redraw")  ; 防止界面卡死
  34.     (sleep 200)           ; 暂停200毫秒，避免CPU占用过高
  35.   )

  37.   (prompt "\n&#9989; 对话框已关闭，命令真正结束！现在继续执行后续代码。\n")



  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) ; 暂停，等待用户按回车

  48.   (prompt "\n&#9989; 继续执行最后一步...")



  52.   ; ---- 4. 最后执行一个简单命令 ----
  53.   (command "_.circle" '(50 50) 100 "")
  54.   (prompt "\n&#128994; 一个圆已绘制在 (50,50)，半径100。")

  56.   (prompt "\n&#127881; 所有操作完成！感谢使用 TESTCMD。")
  57.   (princ) ; 静默退出，不打印多余内容
  58. )

  60. ;; 可选：加载时提示
  61. (princ "\n&#128230; 已加载：wait_command_demo.lsp")
  62. (princ "\n&#128204; 输入命令 TESTCMD 开始测试。")
  63. (princ)


网友答:
你有种再说一遍 发表于 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?

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

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

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

??发言意义不明...

网友答: 本帖最后由 yaojing38 于 2025-9-1 14:59 编辑
你有种再说一遍 发表于 2025-9-1 14:46
??发言意义不明...

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

网友答: 加入延迟命令

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

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

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

试了也是不行

网友答:
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命令已发送，等待结束...")
  • 上一篇：批量修改块名
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025