看看这个程序为何运行完,会多一个空白提示行？

congcong

如果没有第二行(command)则程序运行完,会出行一条空白的提示行
此程序启动后，只要选取两个圆就能显示这两个圆的中心距及最小边距
(defun c:cd1 (/ st a b len a1 a2 a3 b1 b2 b3 dis fi dis1)  
   ;(COMMAND)
   (setvar "cmdecho" 0)
   (princ "\nSelect two circle or arc...")
   (setq st  (ssget '(( 0 . "CIRCLE,ARC")))
         len (sslength st)
         a   (CDR (assoc 0 (entget (ssname st 0))))
         b   (CDR (assoc 0 (entget (ssname st 1))))
   )
   (if (AND (= len 2) (OR (= a "ARC")(= A "CIRCLE")) (OR (= B "ARC")(= B "CIRCLE")))
       (PROGN
           (SETQ A1 (ENTGET (SSNAME ST 0))
                 A2 (CDR (ASSOC 40 A1))
                 A3 (CDR (ASSOC 10 A1))
                 
                 B1 (ENTGET (SSNAME ST 1))
                 B2 (CDR (ASSOC 40 B1))
                 B3 (CDR (ASSOC 10 B1))
              )
         
            (SETQ DIS  (DISTANCE A3 B3)
                  FI   (+ A2 B2)
                  DIS1 (- DIS FI)
                  )
         
          (if (<= dis1 0)             
              (setq dis1 (- (max a2 b2) (+ dis (min a2 b2))))
            )
         
         (setq  DIS1 (RTOS (ABS DIS1)) dis (rtos dis)
             )
         
          
          (PRINC (STRCAT "\nThe nearest distance = " DIS1  "   The center distance = " dis ))
          (princ)
         );end progn
     
        (progn       
        (PRINC (STRCAT "\n*** Invalid Objects ***"))
        (princ)
        )
     );end if
  )

meflying

如下，有问题吗？

命令: cd1

Select two circle or arc...
选择对象: 找到 1 个

选择对象: 找到 1 个，总计 2 个

选择对象:

The nearest distance = 10.6558   The center distance = 25.6516

命令:

congcong

将源程序运行后得出的结果如下：
The nearest distance = 12.048   The center distance = 16.607
command:
command:

但是如果去掉(command)这一句前面的;号的话,则不会多出一条命令行
The nearest distance = 12.048   The center distance = 16.607
command:
但是程序一运行就会出现一条*Cancel*这样的语句
麻烦大家分析一下原因

河伯

(defun c:Test ()
  (princ "\nTest")
  (princ)
)
------------------------
命令: test
Test
命令消灭这一行)

龙龙仔

(defun C:CD1 (/ ST A B LEN A1 A2 A3 B1 B2 B3 DIS FI DIS1)
  (setvar "cmdecho" 0)
  (prompt "Select two circle or arc...")
  (setq        ST  (ssget '((0 . "CIRCLE,ARC")))
        LEN (sslength ST)
        A   (cdr (assoc 0 (entget (ssname ST 0))))
        B   (cdr (assoc 0 (entget (ssname ST 1))))
  )
  (if (and (= LEN 2)
           (or (= A "ARC") (= A "CIRCLE"))
           (or (= B "ARC") (= B "CIRCLE"))
      )
    (progn
      (setq A1 (entget (ssname ST 0))
            A2 (cdr (assoc 40 A1))
            A3 (cdr (assoc 10 A1))

            B1 (entget (ssname ST 1))
            B2 (cdr (assoc 40 B1))
            B3 (cdr (assoc 10 B1))
      )

      (setq DIS         (distance A3 B3)
            FI         (+ A2 B2)
            DIS1 (- DIS FI)
      )

      (if (<= DIS1 0)
        (setq DIS1 (- (max A2 B2) (+ DIS (min A2 B2))))
      )

      (setq DIS1 (rtos (abs DIS1))
            DIS         (rtos DIS)
      )
      (prompt (strcat "\nThe nearest distance = "
                      DIS1
                      "   The center distance = "
                      DIS
              )
      )
    )                                        ;end progn
    (princ (strcat "\n*** Invalid Objects ***"))
  )                                        ;end if
  (princ)
)
(princ)

河伯

mccad

只要程序中有(command)函数存在，则不会多出一行，但如果没有该函数存在，则这一行就消不掉。

龙龙仔

(defun C:CD1 (/ ST A B LEN A1 A2 A3 B1 B2 B3 DIS FI DIS1)
  (setvar "cmdecho" 0)
  (command "_.select" "")
  (prompt "Select two circle or arc...")
  (setq        ST  (ssget '((0 . "CIRCLE,ARC")))
   ...........
   ...........

congcong

能解释一下为何会多出一行空白命令行来吗？
是程序结构的问题还是AutoCAD自身的BUG,或是盗版软件的问题？