[编程交流] 使用上一个输入

(defun _and ( lst / r rtn )
(not (vl-some '(lambda ( x ) (or (vl-catch-all-error-p (setq r (vl-catch-all-apply 'eval (list x)))) (not r))) lst))
(setq rtn (cons r rtn))
(reverse rtn)
)

(defun _and ( lst )
(vl-every '(lambda ( x / r ) (if (not (vl-catch-all-error-p (setq r (vl-catch-all-apply 'eval (list x))))) r)) lst)
)

(if (setq p (_and '((getpoint "\n1st try: ") (getpoint "\n2nd try: ") (getpoint "\n3rd try: ")))) 
p
)

(if
(_and
        (setq lst
                '(
                        (getpoint "\nSpecify circle's center: ")
                        (getpoint "\nSpecify second point for radius: ")
                )
        )
)
(command "_.CIRCLE" "_non" (car lst) "_non" (cadr lst))
)

(defun MakeInputLst ( key func arglst mainALst / mainALst expr )
(if
        (and 
                (= 'STR (type key)) (= 'SUBR (type func)) (listp arglst) (listp mainALst)
                (not (vl-catch-all-error-p (setq expr (vl-catch-all-apply 'func arglst))))
        )
        (setq mainALst (cons (cons key expr) mainALst))
); if
mainALst
);| defun MakeInputLst |; (or vlax-get-acad-object (vl-load-com)) (princ)
(and
(not (setq InputList (list)))
(apply 'and (mapcar 'cdr (setq InputList (MakeInputLst "FirstPt"  getpoint (list "\nSpecify first point: ") InputList))))
(apply 'and (mapcar 'cdr (setq InputList (MakeInputLst "SecondPt" getpoint (list "\nSpecify second point: ") InputList))))
(apply 'and (mapcar 'cdr (setq InputList (MakeInputLst "ThirdPt" getpoint (list "\nSpecify third point: ") InputList))))
(apply 'and (mapcar 'cdr (setq InputList (MakeInputLst "ent" entsel (list "\nSelect an entity to get its layer: ") InputList))))
(mapcar 
        '(lambda (x) 
                (and 
                        (member (car x) '("FirstPt" "SecondPt" "ThirdPt"))
                        (entmakex (list (cons 0 "POINT") (assoc 8 (entget (car (cdr (assoc "ent" InputList))))) (cons 10 (cdr x))))
                )
        )
        InputList
)
); and

(defun _and ( lst / rtn )
   (vl-every '(lambda ( x ) (if (setq x (catcheval x)) (setq rtn (cons x rtn)))) lst)
   (reverse rtn)
)
(defun _and ( lst / val )
   (if (and lst (setq val (catcheval (car lst)))) (cons val (_and (cdr lst))))
)
(defun _and ( lst / rtn val )
   (while (and lst (setq val (catcheval (car lst))))
       (setq rtn (cons val rtn)
             lst (cdr lst)
       )
   )
   (reverse rtn)
)
(defun catcheval ( x / r )
   (if (not (vl-catch-all-error-p (setq r (vl-catch-all-apply 'eval (list x))))) r)
)

(defun _and ( lst / rtn )
   (if (vl-every '(lambda ( x ) (if (setq x (catcheval x)) (setq rtn (cons x rtn)))) lst)
       (reverse rtn)
   )
)
(defun _and ( lst / foo )
   (defun foo ( lst acc / val )
       (if lst
           (if (setq val (catcheval (car lst)))
               (foo (cdr lst) (cons val acc))
           )
           (reverse acc)
       )
   )
   (foo lst nil)
)
(defun _and ( lst / rtn val )
   (while (and lst (setq val (catcheval (car lst))))
       (setq rtn (cons val rtn)
             lst (cdr lst)
       )
   )
   (if (null lst) (reverse rtn))
)
(defun catcheval ( x / r )
   (if (not (vl-catch-all-error-p (setq r (vl-catch-all-apply 'eval (list x))))) r)
)

_$ (setq pts (_and '((getpoint "\n1st try: ") (getpoint "\n2nd try: ") (getpoint "\n3rd try: ")))) 
nil [color="green"]; hit enter (no points specified)[/color]
_$ (setq pts (_and '((getpoint "\n1st try: ") (getpoint "\n2nd try: ") (getpoint "\n3rd try: ")))) 
((140.658 116.678 0.0)) [color="green"]; first point specified, then pressed enter[/color]
_$ (setq pts (_and '((getpoint "\n1st try: ") (getpoint "\n2nd try: ") (getpoint "\n3rd try: ")))) 
((140.658 116.678 0.0) (156.932 167.24 0.0)) [color="green"]; first and second point specified, then pressed enter[/color]
_$ (setq pts (_and '((getpoint "\n1st try: ") (getpoint "\n2nd try: ") (getpoint "\n3rd try: ")))) 
((94.3117 156.279 0.0) (101.034 182.797 0.0) (188.065 174.665 0.0)) [color="green"]; all points specified[/color]
_$ 

(defun C:test ( / lst )
        (if         
        (= 
                (length (setq lst '( (getpoint "\nFirst point: ") (getpoint "\nSecond point: "))))
                (length (setq lst (_and lst)))
        )
        (command "_.LINE" "_non" (car lst) "_non" (cadr lst) "")
)
(princ)
)

20

21