cmd+num 命令简称加任意数字组成智能命令[07.20]

690994

etoxp 发表于 2021-9-14 19:44
(sam_fillet 0.0 nil)中不能用(vla-sendcommand *doc* (strcat "._Lengthen DE " NV " "))，重复命令时， ...

你再看看我发的代码最后几行
（if n(vl-catch-all-apply 'vla-SendCommand (list(vla-get-ActiveDocument (vlax-get-acad-object)) "SmartCommand ")))
(princ)
)
(defun c:SmartCommand( / *doc* )
   (vla-startundomark (setq *doc*(vla-get-activedocument (vlax-get-acad-object))))
   (setvar "cmdecho" 0)      
   (if(and (=(type samcom) 'str)(wcmatch samcom "(sam_*\) "))
      (vl-catch-all-apply 'eval  (list (read samcom))))
  这几行
我是定义了一个命令smartcommand，vla-sendcommand发送的永远都是它，它运行时就是执行Samcom这个全局变量中的内容，只有Samcom中的内容不变，就可以一直重复命令

etoxp

690994 发表于 2021-9-14 22:14
你再看看我发的代码最后几行
（if n(vl-catch-all-apply 'vla-SendCommand (list(vla-get-ActiveDocumen ...

知道我的问题在哪了，(sam_fillet 0.0 nil)中不能用vla-sendcommand，只能用vl-cmdf或command。

690994

etoxp 发表于 2021-9-15 11:55
知道我的问题在哪了，(sam_fillet 0.0 nil)中不能用vla-sendcommand，只能用vl-cmdf或command。

你还没有明白你的问题，(sam_fillet 0.0 nil)就是一个子函数，能用任何lisp命令，包括vla-sendcommand，vl-cmdf或command，你方便的话可以将你的代码发出来，我看看能不能帮你改改

andyzha

690994 发表于 2021-9-15 18:02
你还没有明白你的问题，(sam_fillet 0.0 nil)就是一个子函数，能用任何lisp命令，包括vla-sendcommand，v ...

能解决高版本CAD带小数点命令报错的问题吗？

etoxp

690994 发表于 2021-9-15 18:02
你还没有明白你的问题，(sam_fillet 0.0 nil)就是一个子函数，能用任何lisp命令，包括vla-sendcommand，v ...

2. 
   
3. (vl-load-com)
   
4. (or *doc*
   
5.     (setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object)))
   
6. )
   
7. (or *unknownCommand*
   
8.     (setq *unknownCommand*
   
9.            (vlr-editor-reactor
   
10.              nil
    
11.              '((:vlr-unknownCommand . unknownCommand))
    
12.            )
    
13.     )
    
14. )
    
15. 
    
16. 
    
17. (defun unknownCommand (a b / CMD CMDLST CMDSTR FLAG I NV UNCMDSTR)
    
18.   ;;---------------------------------------------------
    
19.   (setq UNCmdStr (strcase (car b)))
    
20.   (setq cmdLst (list "DE" "CH"))
    
21.   (setq        flag T
    
22.         i 0
    
23.   )
    
24.   ;;---------------------------------------------------
    
25.   (while (and flag (< i (length cmdLst)))
    
26.     (progn
    
27.       (if (wcmatch UNCmdStr (strcat (nth i cmdLst) "*"))
    
28.         (progn
    
29.           (setq flag nil)
    
30.           (setq cmd (nth i cmdLst))
    
31.         )
    
32.       )
    
33.       (setq i (+ i 1))
    
34.     )
    
35.   )
    
36.   ;;---------------------------------------------------
    
37.   (if flag
    
38.     (progn
    
39.       (princ "\n UNKOWNCOMMAND：未找到对应的命令!")
    
40.       (exit)
    
41.     )
    
42.     (progn      
    
43.       ;;-------------------------------
    
44.       (cond
    
45.         ((= cmd "DE")
    
46.          (progn
    
47.            (setq NV (substr UNCmdStr (+ (strlen cmd) 1)))
    
48.            (setq FCTN (strcat "(XP-UNKOWNCMD-LengthenDE "
    
49.                               (vl-princ-to-string NV)
    
50.                               ") "
    
51.                       )
    
52.            )
    
53.          )
    
54.         )
    
55.       )
    
56.       ;;-------------------------------
    
57.       (cond
    
58.         ((= cmd "CH")
    
59.          (progn
    
60.            (setq NV (substr UNCmdStr (+ (strlen cmd) 1)))
    
61.            (setq FCTN (strcat "(XP-UNKOWNCMD-Chamfer "
    
62.                               (vl-princ-to-string NV)
    
63.                               ") "
    
64.                       )
    
65.            )
    
66.          )
    
67.         )
    
68.       )
    
69.       ;;-------------------------------
    
70.       (vl-catch-all-apply
    
71.         'vla-SendCommand
    
72.         (list (vla-get-ActiveDocument (vlax-get-acad-object))
    
73.               "SmartCommand "
    
74.         )
    
75.       )
    
76.       ;;-------------------------------
    
77.     )
    
78.   )
    
79.   ;;---------------------------------------------------
    
80.   (princ)
    
81. )
    
82. 
    
83. (defun c:SmartCommand (/ *doc*)
    
84.   (vla-startundomark
    
85.     (setq *doc* (vla-get-activedocument (vlax-get-acad-object)))
    
86.   )
    
87.   (setvar "cmdecho" 0)
    
88.   (vl-catch-all-apply 'eval (list (read FCTN)))
    
89.   (setvar "cmdecho" 1)
    
90.   (vla-endundomark *doc*)
    
91.   (princ)
    
92. )
    
93. 
    
94. 
    
95. (defun XP-UNKOWNCMD-LengthenDE (NV /)
    
96.   (vl-cmdf "._Lengthen" "DE" NV)
    
97. )
    
98. 
    
99. (defun XP-UNKOWNCMD-Chamfer (NV /)
    
100.   (vl-cmdf "Chamfer" "D" NV NV "Chamfer")
     
101. )
     

<br /> (vl-load-com)<br /> (or *doc*<br />     (setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object)))<br /> )<br /> (or *unknownCommand*<br />     (setq *unknownCommand*<br />            (vlr-editor-reactor<br />              nil<br />              '((:vlr-unknownCommand . unknownCommand))<br />            )<br />     )<br /> )<br /> <br /> <br /> (defun unknownCommand (a b / CMD CMDLST CMDSTR FLAG I NV UNCMDSTR)<br />   ;;---------------------------------------------------<br />   (setq UNCmdStr (strcase (car b)))<br />   (setq cmdLst (list "DE" "CH"))<br />   (setq        flag T<br />         i 0<br />   )<br />   ;;---------------------------------------------------<br />   (while (and flag (< i (length cmdLst)))<br />     (progn<br />       (if (wcmatch UNCmdStr (strcat (nth i cmdLst) "*"))<br />         (progn<br />           (setq flag nil)<br />           (setq cmd (nth i cmdLst))<br />         )<br />       )<br />       (setq i (+ i 1))<br />     )<br />   )<br />   ;;---------------------------------------------------<br />   (if flag<br />     (progn<br />       (princ "\n UNKOWNCOMMAND：未找到对应的命令!")<br />       (exit)<br />     )<br />     (progn      <br />       ;;-------------------------------<br />       (cond<br />         ((= cmd "DE")<br />          (progn<br />            (setq NV (substr UNCmdStr (+ (strlen cmd) 1)))<br />            (setq FCTN (strcat "(XP-UNKOWNCMD-LengthenDE "<br />                               (vl-princ-to-string NV)<br />                               ") "<br />                       )<br />            )<br />          )<br />         )<br />       )<br />       ;;-------------------------------<br />       (cond<br />         ((= cmd "CH")<br />          (progn<br />            (setq NV (substr UNCmdStr (+ (strlen cmd) 1)))<br />            (setq FCTN (strcat "(XP-UNKOWNCMD-Chamfer "<br />                               (vl-princ-to-string NV)<br />                               ") "<br />                       )<br />            )<br />          )<br />         )<br />       )<br />       ;;-------------------------------<br />       (vl-catch-all-apply<br />         'vla-SendCommand<br />         (list (vla-get-ActiveDocument (vlax-get-acad-object))<br />               "SmartCommand "<br />         )<br />       )<br />       ;;-------------------------------<br />     )<br />   )<br />   ;;---------------------------------------------------<br />   (princ)<br /> )<br /> <br /> (defun c:SmartCommand (/ *doc*)<br />   (vla-startundomark<br />     (setq *doc* (vla-get-activedocument (vlax-get-acad-object)))<br />   )<br />   (setvar "cmdecho" 0)<br />   (vl-catch-all-apply 'eval (list (read FCTN)))<br />   (setvar "cmdecho" 1)<br />   (vla-endundomark *doc*)<br />   (princ)<br /> )<br /> <br /> <br /> (defun XP-UNKOWNCMD-LengthenDE (NV /)<br />   (vl-cmdf "._Lengthen" "DE" NV)<br /> )<br /> <br /> (defun XP-UNKOWNCMD-Chamfer (NV /)<br />   (vl-cmdf "Chamfer" "D" NV NV "Chamfer")<br /> )<br />

请帮我看看。上面代码中的 XP-UNKOWNCMD-LengthenDE相当于(sam_fillet)，(FCTN)相当于(samcom)。
麻烦将XP-UNKOWNCMD-LengthenDE中的vl-cmdf改用vla-sendcommand调试一下。

mercio

大神代码，来学习一下。

690994

andyzha 发表于 2021-9-15 21:58
能解决高版本CAD带小数点命令报错的问题吗？

没有用过高版本，不是很了解这方面问题

690994

etoxp 发表于 2021-9-16 08:58
请帮我看看。上面代码中的 XP-UNKOWNCMD-LengthenDE相当于(sam_fillet)，(FCTN)相当于(samcom)。
麻 ...

你的代码已经能运行，
将XP-UNKOWNCMD-LengthenDE中的vl-cmdf改用vla-sendcommand有什么特别用途？

etoxp

690994 发表于 2021-9-16 13:13
你的代码已经能运行，
将XP-UNKOWNCMD-LengthenDE中的vl-cmdf改用vla-sendcommand有什么特别用途？

没有特别用途，只是奇怪为什么改成vla-sendcommand后为什么不能成功运行。

690994

etoxp 发表于 2021-9-16 19:18
没有特别用途，只是奇怪为什么改成vla-sendcommand后为什么不能成功运行。

改成vla-sendcommand，最后运行的就是lengthen命令了
如果硬是要改成vla-sendcommand也行，
可以在它的后面再运行一个空的smartcommand转回来，就是有点闲得蛋疼