[编程交流] error trapping - what should b

;;;--------------------------------------------------------------------;;;;       Function:  setEntSeg(ent typ max min)                                        ;;;;       Vesion:    0.0;;;       Creation:;;;       Update:;;;       Sub-function : 3DTO2DpONIT();;;                                                                    ;;;;    Description:  divids entity into segments while maintaining;;;                  typ segment length. when total length cannot be;;;                  divided without a reminder. last segments being handled;;;                  according to min max parameters.;;;                  ;;;                                                                    ;;;;      Arguments:                                                    ;;;;             typ = typical segment length.                         ;;;;             mn = integer. minimum length allowed.                              ;;;;             mx = integer. maximum length allowed.                     ;;;;                                                                    ;;;; Returned Value:  A list of 2d coordinates represanting the;;;                  new segments.;;;                                                                    ;;;;          Usage:                                                    ;;;;                                                                  ;;;;--------------------------------------------------------------------;(defun setEntSeg (ent mn typ mx / plst y x cnt ang) (if (= (cdr (assoc 0 ent)) "LWPOLYLINE")   (if        (not (and (zerop mn) (zerop typ) (zerop mx)))     (if (and (or (= (type typ) 'INT))       (or (= (type mn) 'INT))       (or (= (type mx) 'INT))  )(if (not (and (minusp mn) (minusp mx)))  (if (and (> mx typ) (< mn typ))    (princ "input is valid\n")    (princ      "iilegeal values, make sure mx is greater than typ and mn is smaller than typ\n"    )  )  (princ "negative values are not allowed\n"))(princ "mn and/or mx must be integer\n")     )     (princ "zero is not allowed/n")   )   (princ "function works only with lwpolyline\n") ) (princ))(defun test () (setq        ent (entmake (list (cons 0 "LWPOLYLINE")                   (cons 100 "AcDbEntity")                   (cons 100 "AcDbPolyline")                   (cons 90 2)                   (cons 10 (list 0 0))                   (cons 10 (list 100 100))                   (cons 210 (list 0 0 1))             )    ) ) (setEntSeg ent 6 6 6))

(while (setq obj (entget (car (entsel "\nPick Pline"))))(if (= (cdr (assoc 0 obj)) "LWPOLYLINE")(progn; your code; your code (princ "wow") ; your code ; your code(exit) ; to get out of while) ; end progn(alert (strcat "You picked a " (cdr (assoc 0 obj)) " try again nothing to exit"))) ; end if) ; end while

[url="http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-7BA45202-D95F-4F2D-8D83-965024826074"]cond[/url]