[编程交流] cond和重复com帮助

(defun C:test (/)
(setq ss (ssget))
(command "_.erase" ss "")
(setq p1 (getpoint "\n**First point**"))
(setq p2 (getpoint p1 "\n**Second point**"))
(command "_.line" p1 p2 nil)
(setq opt (strcase (getstring "\NRepeat Last Command <Yes or No>: ")))
(cond  ((or(= opt "Y")(= opt "YES"))(prompt "\nrepeat last command"))
[color=red];;instead of prompting repeat last command I want it to actually repeat it[/color]
          (T (prompt "\nExiting command"))
 )
(princ)
)

(defun c:Test (/ ss p1 p2)
 (if (setq ss (ssget "_:L"))
   (progn
     (command "_.erase" ss "")
     (while (and (setq p1 (getpoint "\nSpecify first point: "))
                 (setq p2 (getpoint p1 "\nSpecify second point: "))
            )
       (command "_.line" "_non" p1 "_non" p2 "")
     )
   )
 )
 (princ)
)

(defun C:test (/)
 (setq ss (ssget))
 (command "_.erase" ss "")
 (setq wait T)
 (while wait
   (setq p1 (getpoint "\n**First point**"))
   (setq p2 (getpoint p1 "\n**Second point**"))
   (command "_.line" p1 p2 nil)
   (initget 1 "Y N")
   (setq opt (getkword "\nRepeat Last Command [Yes or No]: "))
   (if (eq "N" opt)
     (setq wait nil)
   )
 )  
 (princ)
)

 (initget 1 "Y N")
(setq opt (getkword "\nRepeat Last Command [Yes[color=red]/[/color]No]: "))

copy

 (initget 1 "Y N")
(setq opt (getkword "\nRepeat Last Command [Yes[color=red] or[/color] No]: "))

 
显示菜单（见附件）

(setq ss (ssget "_:s" '((0 . "insert"))))
;;not really knowledgeable on assoc or car functions
;;I did find that rotation = 50

(if (setq ss (ssget '((0 . "INSERT"))))
...

(setq counter 0)
(repeat (sslength ss)
 (setq ent (ssname ss counter))
 ...
 (setq counter (1+ counter))
)

(cdr (assoc 50 (entget ent)))