command!!!!!!!!!!!

spring

下面的程序如果不加上兩句 (command "ucs" "w"), (command "ucs" "prev")還有甚麼办法可以解決
(defun MAKECIR (p1 cir_size / eli)
  (setq        eli (list (cons 0 "CIRCLE")
                  (cons 10 p1)
                  (cons 40 cir_size)
            )
  )
  (entmake eli)
)
(defun c:tes ()
  (command "ucs" "w")
  (while
    (setq p1 (getpoint "\nInsert point"))
     (setq cir_size 5)
     (MAKECIR p1 cir_size)
  )
  (command "ucs" "prev")
)
;;;_____________________________________
下面的這段代碼,把兩句command去掉了,在座標不是WORD時會發生錯誤,還有一個問題執行tes1命令後,再執行u命令,它是返回tes1命令的上一個命令,這是為甚麼呢???
(defun MAKECIR (p1 cir_size / eli)
  (setq        eli (list (cons 0 "CIRCLE")
                  (cons 10 p1)
                  (cons 40 cir_size)
            )
  )
  (entmake eli)
)
(defun c:tes1 ()
  (while
    (setq p1 (getpoint "\nInsert point"))
     (setq cir_size 5)
     (MAKECIR p1 cir_size)
  )
)

meflying

你没有做UNDO标记，
(command "undo" "be")
...
...
(command "undo" "e")

spring

meflying发表于2003-7-17 10:10:00你没有做UNDO标记，
(command "undo" "be")
...
...
(command "undo" "e")

(command "undo" "group")
....
(command "undo" "end")
可是在執行 U 命令時是顯示 U GROUP 現在我想執行 U 命令時命令行是顯示 U tes1

龙龙仔

(defun MAKECIR (P1 CIR_SIZE / ELI)
  (setq        ELI (list (cons 0 "CIRCLE")
                  (cons 10 P1)
                  (cons 40 CIR_SIZE)
            )
  )
  (entmake ELI)
)
(defun C:TES1 (/ HOLDECHO P1 CIR_SIZE)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.undo" "group")
  (while (setq P1 (getpoint "\nInsert point: "))
    (setq P1 (trans P1 1 0))
    (setq CIR_SIZE 5)
    (MAKECIR P1 CIR_SIZE)
  )
  (command "_.undo" "end")
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

spring

可是在執行 U 命令時是顯示 U GROUP 現在我想執行 U 命令時命令行是顯示 U tes1,難到真的沒办法