源泉和探索者插件命令怎么自动键入关键字

Qwer1243

我想用源泉插件中的“yq_dim_pline”命令（闭合多段线自动标注），运行命令后，想自动键入关键“B”,在自动完成回车；紧接着运行探索者中的“CHDCHL”（重叠标注处理），处理多段线中重叠的标注，我自己试了好几方法都不行，都无法实现，大家有没有什么好方法可以实现？

用(command)和(vl-cmdf)都无法直接调用“yq_dim_pline”命令

2. (defun c:66 (/ ss)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq lastent (entlast))
   
5.   (setq ss (ssget))
   
6.   (command-s "change" ss "" "p" "la" "0" "")
   
7.   (command-s "change" ss "" "p" "c" "BYLAYER" "")
   
8.   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "ddzz\n" "B\n" "p\n" " "))
   
9.   (setq ss1 (ssadd))
   
10.   (while (setq lastent (entnext lastent))
    
11.     (ssadd lastent ss1)
    
12.   )
    
13.   (Sssetfirst nil ss1)
    
14.   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "CHDCHL\n" " "))
    
15.   (prin1)
    
16. )

(defun c:66 (/ ss)<br />   (setvar "cmdecho" 0)<br />   (setq lastent (entlast))<br />   (setq ss (ssget))<br />   (command-s "change" ss "" "p" "la" "0" "")<br />   (command-s "change" ss "" "p" "c" "BYLAYER" "")<br />   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "ddzz\n" "B\n" "p\n" " "))<br />   (setq ss1 (ssadd))<br />   (while (setq lastent (entnext lastent))<br />     (ssadd lastent ss1)<br />   )<br />   (Sssetfirst nil ss1)<br />   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "CHDCHL\n" " "))<br />   (prin1)<br /> )

这种方法，vla-sendcommand和vlisp代码执行不同步，会在所有vlisp代码都执行完以后再执行vla-sendcommand里面的代码

2. (defun c:test()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))
   
5.   (c:yq_dim_pline)
   
6.   (Vlax-Invoke-Method WshShell 'Sendkeys "B")
   
7.   (vlax-release-object WshShell)
   
8.   (princ "\n运行结束")
   
9.   (setvar "cmdecho" 1)
   
10. )

(defun c:test()<br />   (setvar "cmdecho" 0)<br />   (setq WshShell (Vlax-Get-Or-Create-Object "WScript.Shell" ))<br />   (c:yq_dim_pline)<br />   (Vlax-Invoke-Method WshShell 'Sendkeys "B")<br />   (vlax-release-object WshShell)<br />   (princ "\n运行结束")<br />   (setvar "cmdecho" 1)<br /> )

用Sendkeys也不行，只有全部执行完yq_dim_pline命令后，才会执行Sendkeys

Qwer1243

liuhe 发表于 2025-4-10 09:49
这不是lisp能够实现的，你想要的是钩子系统，透明命令要么c#  要么c++

感谢提供的钩子思路，我用下面的方法实现了

2. (defun c:66 (/ ss ss1)
   
3.   (setvar "cmdecho" 0)
   
4.         ;; 错误处理函数
   
5.   (defun *error* (msg)
   
6.     (if cmd-reactor (vlr-remove cmd-reactor))
   
7.     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
   
8.       (princ (strcat "\n错误: " msg))
   
9.     )
   
10.     (princ)
    
11.   )
    
12.        
    
13.   (setq lastent (entlast))
    
14.   (setq ss (ssget))
    
15.   (command-s "change" ss "" "p" "la" "0" "")
    
16.   (command-s "change" ss "" "p" "c" "BYLAYER" "")
    
17.   
    
18.   ; 定义反应器回调函数
    
19.   (defun OnCommandEnd (reactor params)
    
20.                 ;(princ "\n反应器：")
    
21.                 ;(princ (car params))
    
22.                 (if (and lastent (equal (car params) "-COLOR")) ; -COLOR 命令完成后触发
    
23.                         (progn
    
24.                         (princ "\n记录次数：")
    
25.                                 (setq ss1 (ssadd))
    
26.                                 (while (setq lastent (entnext lastent)) (ssadd lastent ss1))
    
27.                                 (Sssetfirst nil ss1)
    
28.                                 (princ "\n准备执行重叠处理")
    
29.                                 (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "CHDCHL ")
    
30.                                 (vlr-remove cmd-reactor)  ; 移除反应器避免重复触发
    
31.                                 (setq lastent nil)
    
32.                         )
    
33.                 )
    
34.   )
    
35.   
    
36.   ; 注册反应器
    
37.   (setq cmd-reactor (vlr-command-reactor nil '((:vlr-commandEnded . OnCommandEnd))))
    
38.   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "yq_dim_pline B p " " "))
    
39.         (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "-color" " " " "))
    
40.   (princ)
    
41. )

(defun c:66 (/ ss ss1)<br />   (setvar "cmdecho" 0)<br />         ;; 错误处理函数<br />   (defun *error* (msg)<br />     (if cmd-reactor (vlr-remove cmd-reactor))<br />     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (princ)<br />   )<br />         <br />   (setq lastent (entlast))<br />   (setq ss (ssget))<br />   (command-s "change" ss "" "p" "la" "0" "")<br />   (command-s "change" ss "" "p" "c" "BYLAYER" "")<br />   <br />   ; 定义反应器回调函数<br />   (defun OnCommandEnd (reactor params)<br />                 ;(princ "\n反应器：")<br />                 ;(princ (car params))<br />                 (if (and lastent (equal (car params) "-COLOR")) ; -COLOR 命令完成后触发<br />                         (progn<br />                         (princ "\n记录次数：")<br />                                 (setq ss1 (ssadd))<br />                                 (while (setq lastent (entnext lastent)) (ssadd lastent ss1))<br />                                 (Sssetfirst nil ss1)<br />                                 (princ "\n准备执行重叠处理")<br />                                 (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "CHDCHL ")<br />                                 (vlr-remove cmd-reactor)  ; 移除反应器避免重复触发<br />                                 (setq lastent nil)<br />                         )<br />                 )<br />   )<br />   <br />   ; 注册反应器<br />   (setq cmd-reactor (vlr-command-reactor nil '((:vlr-commandEnded . OnCommandEnd))))<br />   (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "yq_dim_pline B p " " "))<br />         (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "-color" " " " "))<br />   (princ)<br /> )

自贡黄明儒

test 只有全部执行完yq_dim_pline命令后，才会执行Sendkeys
没毛病呀？

Qwer1243

自贡黄明儒 发表于 2025-4-9 18:18
test 只有全部执行完yq_dim_pline命令后，才会执行Sendkeys
没毛病呀？

那样就不是我想要的效果了，我是想在yq_dim_pline命令执行过程中输入关键字“B”

liuhe

这不是lisp能够实现的，你想要的是钩子系统，透明命令要么c#  要么c++

Qwer1243

liuhe 发表于 2025-4-10 09:49
这不是lisp能够实现的，你想要的是钩子系统，透明命令要么c#  要么c++

好吧，那个没有研究[捂脸]

liuhe

Qwer1243 发表于 2025-4-10 11:42
感谢提供的钩子思路，我用下面的方法实现了

666666   我是不会反应器，所以想不到。反应器和c#的事件  应该是一个东西

Qwer1243

liuhe 发表于 2025-4-10 14:23
666666   我是不会反应器，所以想不到。反应器和c#的事件  应该是一个东西

我是看到你说的方向，就用deepseek搜了一下，自己调试了几下，就行的通了

tigcat

可以将源泉命令注册为内部命令，这样就可以用command 带参数使用了vla-add-cmd,大概是这个函数

Qwer1243

tigcat 发表于 2025-4-11 07:51
可以将源泉命令注册为内部命令，这样就可以用command 带参数使用了vla-add-cmd,大概是这个函数

感谢回复，是vlax-add-cmd命令，注册以后可以用(command)带参数调用

2. (vl-load-com) ; 初始化ActiveX
   
3. ;; 注册为内部命令
   
4. (if (not (vlax-add-cmd "yq_dim_pline" 'c:yq_dim_pline))
   
5.   (princ "\n命令注册失败！")
   
6.   (princ "\n命令 yq_dim_pline (别名: ydp) 已注册。")
   
7. )
   
8. (setq ss (ssget))
   
9. (vl-cmdf "yq_dim_pline" "B" ss "")

(vl-load-com) ; 初始化ActiveX<br /> ;; 注册为内部命令<br /> (if (not (vlax-add-cmd "yq_dim_pline" 'c:yq_dim_pline))<br />   (princ "\n命令注册失败！")<br />   (princ "\n命令 yq_dim_pline (别名: ydp) 已注册。")<br /> )<br /> (setq ss (ssget))<br /> (vl-cmdf "yq_dim_pline" "B" ss "")