[求助]：菜鸟问个急问题！

creazyboy

刚学lisp，练习编了一段量距离的小程序，返回值的格式上时候有点小问题
下面是我返回的值
命令: dd  First point：Second point：，
dis ＝ 453.5493， goupei ＝ 15.8475
inx ＝ 447.9591， iny ＝ 70.9903， inz ＝ 0
命令:
下面是用cad自带的测量返回的值
命令: '_dist 指定第一点: 指定第二点:
距离 = 471.1867，XY 平面中的倾角 = 5.3340，  与 XY 平面的夹角 = 0.0000
X 增量 = 469.1463，  Y 增量 = 43.8025，   Z 增量 = 0.0000

我返回值的最后 自动出现了一行“命令：”的提示符，cad的量距离就没有那一行。
应该怎样写才能有直接是结果而不加那行提示符，也就是这样
命令: dd  First point：Second point：，
dis ＝ 453.5493， goupei ＝ 15.8475
inx ＝ 447.9591， iny ＝ 70.9903， inz ＝ 0

zxq0220

将您的源程序发上来才能有人帮您改呀！

creazyboy

2. (defun c:dd ()
   
3.   (setq tem (getvar "dimzin"))
   
4.         (setvar "dimzin" 0)
   
5.   (setq        p  (getpoint " First point:")
   
6.         x1 (car p)
   
7.         y1 (cadr p)
   
8.         z1 (caddr p)
   
9.         q  (getpoint p "Second point:")
   
10.         x2 (car q)
    
11.         y2 (cadr q)
    
12.         z2 (caddr q)
    
13.   )
    
14.   (setq inx (- x2 x1))
    
15.   (setq iny (- y2 y1))
    
16.   (setq inz (- z2 z1))
    
17.   (setq dist (distance p q))
    
18.   (setq ang (* 180 (/ (atan iny inx) pi)))
    
19.   (if (= 0 inx)
    
20.     (setq goupei "*"
    
21.     )
    
22.     (setq goupei (* 100 (/ iny inx))
    
23. 
    
24.     )
    
25.   )
    
26.   (setq unit (getvar "luprec"))
    
27.   (princ "\n嫍棧 = ")
    
28.   (princ (rtos dist 2 unit))
    
29.   (princ ", ")
    
30.   (princ "岡攝 = ")
    
31.   (if (= 0 inx)
    
32.     (princ "*")
    
33.     (princ (rtos (abs goupei) 2 unit))
    
34.   )
    
35.   (princ ", ")
    
36.   (princ "妏搙 = ")
    
37.   (princ (rtos ang 2 unit))
    
38.   (princ "\nx 憹検 = ")
    
39.   (princ (rtos inx 2 unit))
    
40.   (princ ", ")
    
41.   (princ "y 憹検 = ")
    
42.   (princ (rtos iny 2 unit))
    
43.   (princ ", ")
    
44.   (princ "z 憹検 = ")
    
45.   (princ (rtos inz 2 unit))
    
46.   (setvar "dimzin" tem)
    
47. (princ)
    
48. )

(defun c:dd ()<br />   (setq tem (getvar "dimzin"))<br />         (setvar "dimzin" 0)<br />   (setq        p  (getpoint " First point:")<br />         x1 (car p)<br />         y1 (cadr p)<br />         z1 (caddr p)<br />         q  (getpoint p "Second point:")<br />         x2 (car q)<br />         y2 (cadr q)<br />         z2 (caddr q)<br />   )<br />   (setq inx (- x2 x1))<br />   (setq iny (- y2 y1))<br />   (setq inz (- z2 z1))<br />   (setq dist (distance p q))<br />   (setq ang (* 180 (/ (atan iny inx) pi)))<br />   (if (= 0 inx)<br />     (setq goupei "*"<br />     )<br />     (setq goupei (* 100 (/ iny inx))<br /> <br />     )<br />   )<br />   (setq unit (getvar "luprec"))<br />   (princ "\n嫍棧 = ")<br />   (princ (rtos dist 2 unit))<br />   (princ ", ")<br />   (princ "岡攝 = ")<br />   (if (= 0 inx)<br />     (princ "*")<br />     (princ (rtos (abs goupei) 2 unit))<br />   )<br />   (princ ", ")<br />   (princ "妏搙 = ")<br />   (princ (rtos ang 2 unit))<br />   (princ "\nx 憹検 = ")<br />   (princ (rtos inx 2 unit))<br />   (princ ", ")<br />   (princ "y 憹検 = ")<br />   (princ (rtos iny 2 unit))<br />   (princ ", ")<br />   (princ "z 憹検 = ")<br />   (princ (rtos inz 2 unit))<br />   (setvar "dimzin" tem)<br /> (princ)<br /> )

啵浪鼓

测了，试了，也用了，就是找不出毛病来，这可能是LISP程序本身的故障吧，我一些程序也会带上多余的空command，反正不影响程序的运行，也就是去理会了~！

creazyboy

我看了人家编的一段删除组的程序，这个程序就没这个毛病，真是搞不懂，要不你也看看？
(defun c:ExplodeAllGroup (/ group name)
  (setq        group
         (entget
           (cdadr (member '(3 . "ACAD_GROUP") (entget (namedobjdict))))
         )
  )
  (if group
    (progn
      (foreach i group
        (if (= (car i) 3)
          (setq name (cons (cdr i) name))
        )
      )
      (command ".undo" "group")      
      (foreach m name
        (command ".group" "e" m)
      )
      (command ".undo" "end")
    )
  )
  
    (progn (princ "\n共分解 ")
           (princ (length name))
           (princ " 组!")
   
  )
  (princ)
)

lijiao

这是一个输出格式的问题，“\n”、“\t”会给你帮助。


应该这样

2. 
   
3.   [FONT=courier new]
   
4. (setq        p  (getpoint " \nFirst point:")
   
5.         x1 (car p)
   
6.         y1 (cadr p)
   
7.         z1 (caddr p)
   
8.         q  (getpoint p "\nSecond point:")
   
9.         x2 (car q)
   
10.         y2 (cadr q)
    
11.         z2 (caddr q)
    
12.   )
    
13. 
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> (setq        p  (getpoint " \nFirst point:")<br />         x1 (car p)<br />         y1 (cadr p)<br />         z1 (caddr p)<br />         q  (getpoint p "\nSecond point:")<br />         x2 (car q)<br />         y2 (cadr q)<br />         z2 (caddr q)<br />   )<br /> <br />   [/FONT]<br />

creazyboy

\n 是换行 \t是什么作用？
我说得是程序运行后会有多余的command空行
如何才能消除呢

gdzhou

加上这一句就对了(command "setvar" 0)

creazyboy

加了但出现错误啦
变量名未知。键入 SETVAR ? 列出变量。

oyxx_1023

是不是(setvar "cmdecho" 0)?

啵浪鼓

楼主以后发表时，最好再配上一个图片，以免其他朋友误解了你的意思。。。

并申明，6楼斑竹的方法得到的结果一样，不能消除多余命令的指示！