[编程交流] 改进的Break-LISP例程

(defun c:breakfirst2 (/ *error* whilestop ent entlist pt)
 (defun *error* (msg)
   (if (not
         (member msg '("Function cancelled" "quit / exit abort"))
       )
     (princ (strcat "\nError: " msg))
   )
   (princ)
 )
 (setq whilestop t)
 (setvar 'errno 0)
 (while whilestop
   (if (setq ent (car (entsel "\nSelect object to break: ")))
     (progn
       (setq entlist (entget ent))
       (cond
         ((/= (or (cdr (assoc 0 entlist) "LINE")
                  (cdr (assoc 0 entlist) "ARC")
                  (cdr (assoc 0 entlist) "CIRCLE")
                  (cdr (assoc 0 entlist) "POLYLINE")
                  (cdr (assoc 0 entlist) "AECC_FEATURE_LINE")
              )
          )
          (princ "\nNot a valid object, try again.")
         )
         ((= (cdr (assoc 0 entlist) "AECC_FEATURE_LINE"))
          (if (setq pt (getpoint "\nSelect break point: "))
            (progn
              (command "._AeccBreakFeatures" ent "_f" pt)
              (setq whilestop nil)
            )
          )
         )
         (t
          (if (setq pt (getpoint "\nSelect break point: "))
            (progn
              (command "._Break" ent "_f" pt)
              (setq whilestop nil)
            )
          )
         )
       )
     )
   )
   (if (/= (getvar 'errno) 52)
     (princ "\nYou missed. Try again.")
     (setq whilestop nil)
   )
 )
)

(cdr (assoc 0 entlist) "LINE")

[highlight](=[/highlight] (cdr (assoc 0 entlist)[highlight])[/highlight] "LINE")

(defun c:breakfirst2 ( / *error* ent pnt stop typ )
   (defun *error* ( msg )
       (if (not (member msg '("Function cancelled" "quit / exit abort")))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )
   (while (not stop)
       (setvar 'errno 0)
       (setq ent (entsel "\nSelect object to break: "))
       (cond
           (   (= 52 (getvar 'errno))
               (setq stop t)
           )
           (   (null ent)
               (princ "\nYou missed. Try again.")
           )
           (   (not (wcmatch (setq typ (cdr (assoc 0 (entget (car ent))))) "LINE,ARC,CIRCLE,POLYLINE,AECC_FEATURE_LINE"))
               (princ "\nNot a valid object, try again.")
           )
           (   (not (setq pnt (getpoint "\nSelect break point: ")))
               (setq stop t)
           )
           (   (= typ "AECC_FEATURE_LINE")
               (command "_.aeccbreakfeatures" ent "_f" "_non" pnt "_non" pnt)
               (setq stop t)
           )
           (   t
               (command "_.break" ent "_f" "_non" pnt "_non" pnt)
               (setq stop t)
           )
       )
   )
   (princ)
)

(defun c:breakfirst2 ( / *error* ent pnt stop typ )
   (defun *error* ( msg )
       (if (not (member msg '("Function cancelled" "quit / exit abort")))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )
   (while (not stop)
       (setvar 'errno 0)
       (setq ent (entsel "\nSelect object to break: "))
       (cond
           (   (= 52 (getvar 'errno))
               (setq stop t)
           )
           (   (null ent)
               (princ "\nYou missed. Try again.")
           )
           (   (not (wcmatch (setq typ (cdr (assoc 0 (entget (car ent))))) "LINE,XLINE,RAY,LWPOLYLINE,ARC,CIRCLE,POLYLINE,AECC_FEATURE_LINE"))
               (princ "\nNot a valid object, try again.")
           )
           (   (not (setq pnt (getpoint "\nSelect break point: ")))
               (setq stop t)
           )
           (   (= typ "AECC_FEATURE_LINE")
               (command "_.aeccbreakfeatures" ent "_f" "_non" pnt "_non" pnt)
               (setq stop t)
           )
           (   t
               (while (command "_.break" ent "_f" "_non" pnt "_non" pnt)
               (setq stop t))
           )
       )
   )
   (princ)
)

11