知命令“NN”。按 F1 查看帮助。

BenjaminXM

运行一个程序，运行过程都正常，功能也都实现了，但运行完成后会以command命令栏里出现提示：
“知命令“NN”。按 F1 查看帮助。”
代码如下：

2. (Defun c:NN (/ e e1 la ps i len ss ssh)
   
3. 
   
4.   (command "_undo" "be" "")
   
5.   (command "layer" "m" "Hatch-GZ-构造柱填充" "")
   
6.   (if (and      
   
7.      (princ "\n选择要填实的柱子<退出>：")
   
8.      (setq
   
9.        ss  (ssget '((-4 . "<or") (0 . "lwpolyline") (0 . "circle") (-4 . "or>") ))
   
10.      )
    
11.       )
    
12.     (progn
    
13.      (setq len (sslength ss)
    
14.      i  0
    
15.      )
    
16.      (while (< i len)
    
17.        (setq e  (ssname ss i)
    
18.        i (1+ i)
    
19.        )
    
20.      (command ".-bhatch" "p" "s" "s" e "" "")
    
21.        (vl-cmdf "draworder" (entlast) "" "b" )
    
22.      )
    
23.     )
    
24.   )
    
25. (command "_undo" "e" "")
    
26. (princ)
    
27. )  

(Defun c:NN (/ e e1 la ps i len ss ssh)<br /> <br />   (command "_undo" "be" "")<br />   (command "layer" "m" "Hatch-GZ-构造柱填充" "")<br />   (if (and      <br />      (princ "\n选择要填实的柱子<退出>：")<br />      (setq<br />        ss  (ssget '((-4 . "<or") (0 . "lwpolyline") (0 . "circle") (-4 . "or>") ))<br />      )<br />       )<br />     (progn <br />      (setq len (sslength ss)<br />      i  0<br />      )<br />      (while (< i len)<br />        (setq e  (ssname ss i)<br />        i (1+ i)<br />        )<br />      (command ".-bhatch" "p" "s" "s" e "" "")<br />        (vl-cmdf "draworder" (entlast) "" "b" )<br />      )<br />     )<br />   )<br /> (command "_undo" "e" "")<br /> (princ)<br /> )  

调试程序的过程中，到(command "_undo" "e" "")这步时就会出现提示：“知命令“NN”。按 F1 查看帮助。”
当删除 (command "_undo" "be" "") (command "_undo" "e" "")这两句后，就不会出现提示：“知命令“NN”。按 F1 查看帮助。”

请问这是什么情况？是否是我undo语句有错？

谢谢~

llsheng_73

(command "_undo" "be") (command "_undo" "e")

xyp1964

2. (defun c:nn ()
   
3.   (command "_undo" "be")
   
4.   (command "layer" "m" "hatch-gz-构造柱填充" "")
   
5.   (princ "\n选择要填实的柱子<退出>: ")
   
6.   (setq i -1)
   
7.   (if (setq ss (ssget '((0 . "lwpolyline,circle"))))
   
8.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.       (command "hatch" "s" s1 "")
   
10.       (vl-cmdf "draworder" (entlast) "" "b")
    
11.     )
    
12.   )
    
13.   (command "_undo" "e")
    
14.   (princ)
    
15. )

(defun c:nn ()<br />   (command "_undo" "be")<br />   (command "layer" "m" "hatch-gz-构造柱填充" "")<br />   (princ "\n选择要填实的柱子<退出>: ")<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "lwpolyline,circle"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (command "hatch" "s" s1 "")<br />       (vl-cmdf "draworder" (entlast) "" "b")<br />     )<br />   )<br />   (command "_undo" "e")<br />   (princ)<br /> )

BenjaminXM

llsheng_73 发表于 2015-9-16 20:22
(command "_undo" "be") (command "_undo" "e")

谢谢，可以解决问题。

BenjaminXM

xyp1964 发表于 2015-9-16 20:31

谢谢，解决问题了。

lucas_3333

一个程序即有vl-cmdf ，又有command ，看起来怪怪的

BenjaminXM

lucas_3333 发表于 2015-9-16 21:10
一个程序即有vl-cmdf ，又有command ，看起来怪怪的

不太清楚，用vl-cmdf就是不想再去定义(setq ent2 (entlast))，直接一步写完，会有影响吗？
是否要再程序最前面加上(vl-load-com)？