[编程交流] 组合Dim和Continue as

(defun C:DIMSPLIT (/ OBJ_PICK DIM_PICK DIM_ENT DIM_NODE1 DIM_NODE2 DIM_DEF
DIM_POINT DIM_OBJ)
 ;(STORE)
 (command ".undo" "group")
 ;(setvar "osmode" 183)
 (setq DIM_PICK 1)
 (while (and DIM_PICK (/= OBJ_PICK "DIMENSION"))
   (setq DIM_PICK (entsel "\nSelect Dimension: "))
   (if DIM_PICK
     (progn
       (setq OBJ_PICK (cdr (assoc 0 (entget (car DIM_PICK))))
             DIM_ENT (entget (car DIM_PICK))
       )
       (if (/= OBJ_PICK "DIMENSION") (prompt "\nThis is not a Dimension
object."))
     )
   )
 )
 (if (or (= (cdr (assoc 70 DIM_ENT)) 32) ; IF ALIGNED OR ROTATED DIMENSION
         (= (cdr (assoc 70 DIM_ENT)) 160)
         (= (cdr (assoc 70 DIM_ENT)) 33)
         (= (cdr (assoc 70 DIM_ENT)) 161)
     )
   (progn
     (setq DIM_NODE1 (cdr (assoc 13 DIM_ENT))
           DIM_NODE2 (cdr (assoc 14 DIM_ENT))
           DIM_DEF (cdr (assoc 10 DIM_ENT))
           DIM_POINT (getpoint "\nPick split point: ")
     )
     (if DIM_POINT
       (progn
         (if (or (= (cdr (assoc 70 DIM_ENT)) 33) (= (cdr (assoc 70
DIM_ENT)) 161)) ; IF ALIGNED DIMENSION, RESET SPLIT POINT TO ALIGN BETWEEN
NODES
           (setq DIM_POINT (inters (polar DIM_POINT (angle DIM_DEF
DIM_NODE2) 12.0) DIM_POINT DIM_NODE1 DIM_NODE2 nil))
         )
         (setq DIM_OBJ (subst (cons 13 DIM_POINT) (assoc 13 DIM_ENT)
DIM_ENT))
         (entmod DIM_OBJ)
         (command "copy" DIM_PICK "" DIM_POINT DIM_POINT)
         (setq DIM_ENT (entget (entlast))
               DIM_OBJ (subst (cons 14 DIM_NODE1) (assoc 14 DIM_ENT)
DIM_ENT)
         )
         (entmod DIM_OBJ)
       )
     )
   )
   (if DIM_PICK (prompt "\nThis is neither a Rotated nor an Aligned
Dimension."))
 )
 (command ".undo" "end")
 ;(RESTORE)
 (princ)
)
(defun C:DIMJOIN (/ OBJ1_PICK DIM1_PICK DIM1_ENT DIM1_NODE1 DIM1_NODE2
DIM1_OBJ
                   OBJ2_PICK DIM2_PICK DIM2_ENT DIM2_NODE1 DIM2_NODE2
DIMCASE)
 ;(STORE)
 (command ".undo" "group")
 ;(setvar "osmode" 183)
 (setq DIM1_PICK 1
       DIM2_PICK 1
 )
 (while (and DIM1_PICK (/= OBJ1_PICK "DIMENSION"))
   (setq DIM1_PICK (entsel "\nSelect First Dimension: "))
   (if DIM1_PICK
     (progn
       (setq OBJ1_PICK (cdr (assoc 0 (entget (car DIM1_PICK))))
             DIM1_ENT (entget (car DIM1_PICK))
       )
       (if (/= OBJ1_PICK "DIMENSION") (prompt "\nThis is not a Dimension
object."))
     )
   )
 )
 (if (or (= (cdr (assoc 70 DIM1_ENT)) 32) ; IF ALIGNED OR ROTATED DIMENSION
         (= (cdr (assoc 70 DIM1_ENT)) 160)
         (= (cdr (assoc 70 DIM1_ENT)) 33)
         (= (cdr (assoc 70 DIM1_ENT)) 161)
     )
   (progn
     (if (= OBJ1_PICK "DIMENSION")
       (progn
         (while (and DIM2_PICK (/= OBJ2_PICK "DIMENSION"))
           (setq DIM2_PICK (entsel "\nSelect Second Dimension: "))
           (if DIM2_PICK
             (progn
               (setq OBJ2_PICK (cdr (assoc 0 (entget (car DIM2_PICK))))
                     DIM2_ENT (entget (car DIM2_PICK))
               )
               (if (/= OBJ2_PICK "DIMENSION") (prompt "\nThis is not a
Dimension object."))
             )
           )
         )
         (if (or (= (cdr (assoc 70 DIM2_ENT)) 32) ; IF ALIGNED OR ROTATED
DIMENSION
                 (= (cdr (assoc 70 DIM2_ENT)) 160)
                 (= (cdr (assoc 70 DIM2_ENT)) 33)
                 (= (cdr (assoc 70 DIM2_ENT)) 161)
             )
           (progn
             (setq DIM1_NODE1 (cdr (assoc 13 DIM1_ENT))
                   DIM1_NODE2 (cdr (assoc 14 DIM1_ENT))
                   DIM2_NODE1 (cdr (assoc 13 DIM2_ENT))
                   DIM2_NODE2 (cdr (assoc 14 DIM2_ENT))
             )
      (if (= (fix (distance DIM1_NODE2 DIM2_NODE1)) 0.0)
        (setq DIM1_OBJ (subst (cons 14 DIM2_NODE2) (assoc 14 DIM1_ENT)
DIM1_ENT) DIMCASE 1)
      )
      (if (= (fix (distance DIM1_NODE2 DIM2_NODE2)) 0.0)
               (setq DIM1_OBJ (subst (cons 14 DIM2_NODE1) (assoc 14
DIM1_ENT) DIM1_ENT) DIMCASE 2)
      )
      (if (= (fix (distance DIM1_NODE1 DIM2_NODE1)) 0.0)
        (setq DIM1_OBJ (subst (cons 13 DIM2_NODE2) (assoc 13 DIM1_ENT)
DIM1_ENT) DIMCASE 3)
      )
      (if (= (fix (distance DIM1_NODE1 DIM2_NODE2)) 0.0)
        (setq DIM1_OBJ (subst (cons 13 DIM2_NODE1) (assoc 13 DIM1_ENT)
DIM1_ENT) DIMCASE 4)
      )
      (if DIMCASE
        (progn
                 (entmod DIM1_OBJ)
                 (command "erase" DIM2_PICK "")
        )
        (prompt "\nDimensions are not coincident.")
             )
             )
           (if DIM2_PICK (prompt "\nThis is neither a Rotated nor an
Aligned Dimension."))
         )
       )
     )
   )
   (if DIM1_PICK (prompt "\nThis is neither a Rotated nor an Aligned
Dimension."))
 )
 (command ".undo" "end")
 ;(RESTORE)
 (princ)
)
(defun C:DIMDIVIDE (/ OBJ_PICK DIM_PICK DIM_ENT DIM_NODE1 DIM_NODE2 DIM_DEF
DIM_POINT DIM_OBJ)
 ;(STORE)
 (command ".undo" "group")
 ;(setvar "osmode" 183)
 (setq DIM_PICK 1)
 (while (and DIM_PICK (/= OBJ_PICK "DIMENSION"))
   (setq DIM_PICK (entsel "\nSelect Dimension: "))
   (if DIM_PICK
     (progn
       (setq OBJ_PICK (cdr (assoc 0 (entget (car DIM_PICK))))
             DIM_ENT (entget (car DIM_PICK))
       )
       (if (/= OBJ_PICK "DIMENSION") (prompt "\nThis is not a Dimension
object."))
     )
   )
 )
 (if (or (= (cdr (assoc 70 DIM_ENT)) 32) ; IF ALIGNED OR ROTATED DIMENSION
         (= (cdr (assoc 70 DIM_ENT)) 160)
         (= (cdr (assoc 70 DIM_ENT)) 33)
         (= (cdr (assoc 70 DIM_ENT)) 161)
     )
   (progn
     (if (not DIM_DIV) (setq DIM_DIV 2))
     (initget 6)
     (setq DIM_DIV (DEFNUM DIM_DIV "\nNumber of divisions"))
     (if (and (= OBJ_PICK "DIMENSION") (> DIM_DIV 1))
       (progn
         (setq DIM_ENT (entget (car DIM_PICK))
               DIM_NODE1 (cdr (assoc 13 DIM_ENT))
               DIM_NODE2 (cdr (assoc 14 DIM_ENT))
               DIM_DEF (cdr (assoc 10 DIM_ENT))
               DIM_POINT (polar DIM_NODE1 (angle DIM_NODE1 DIM_NODE2) (/
(distance DIM_NODE1 DIM_NODE2) DIM_DIV))
               DIM_OBJ (subst (cons 14 DIM_POINT) (assoc 14 DIM_ENT)
DIM_ENT)
         )
         (entmod DIM_OBJ)
         (setq DIM_NODE2 (cdr (assoc 14 DIM_OBJ)))
         (command "copy" DIM_PICK "" DIM_NODE1 DIM_NODE2)
         (setq DIM_ENT (entget (entlast))
               DIM_OBJ (subst (cons 10 DIM_DEF) (assoc 10 DIM_ENT) DIM_ENT)
         )
         (entmod DIM_OBJ)
         (repeat (- DIM_DIV 2)
           (command "copy" (ENTLAST) "" DIM_NODE1 DIM_NODE2)
           (setq DIM_ENT (entget (entlast))
                 DIM_OBJ (subst (cons 10 DIM_DEF) (assoc 10 DIM_ENT)
DIM_ENT)
           )
           (entmod DIM_OBJ)
         )
       )
     )
   )
   (if DIM_PICK (prompt "\nThis is neither a Rotated nor an Aligned
Dimension."))
 )
 (command ".undo" "end")
 ;(RESTORE)
 (princ)
)
(defun C:DIMOFFSET (/ OBJ_PICK DIM_SIDE DIM_PICK DIM_ENT DIM_NODE1 DIM_NODE2
DIM_INT DIM_DEF DIM_POINT DIM_OBJ)
 ;(STORE)
 (command ".undo" "group")
 (if (not DIM_OFFS) (setq DIM_OFFS (* 0.375 (getvar "dimscale"))))
 (initget 2)
 (setq DIM_OFFS (DEFDIST DIM_OFFS "Specify offset distance"))
 (setq DIM_PICK 1 OBJ_PICK 1)
 (while (and DIM_PICK (/= OBJ_PICK "DIMENSION"))
   (setq DIM_PICK (entsel "\nSelect Dimension to offset: "))
   (if DIM_PICK
     (progn
       (setq OBJ_PICK (cdr (assoc 0 (entget (car DIM_PICK))))
             DIM_ENT (entget (car DIM_PICK))
       )
       (if (/= OBJ_PICK "DIMENSION") (prompt "\nThis is not a Dimension
object."))
     )
   )
 )
 (if (or (= (cdr (assoc 70 DIM_ENT)) 32) ; IF ALIGNED OR ROTATED DIMENSION
         (= (cdr (assoc 70 DIM_ENT)) 160)
         (= (cdr (assoc 70 DIM_ENT)) 33)
         (= (cdr (assoc 70 DIM_ENT)) 161)
     )
   (progn
     (setq DIM_SIDE (getpoint "\nSpecify point on side to offset: "))
     (if DIM_SIDE
       (if (and (= OBJ_PICK "DIMENSION") (> DIM_OFFS 0))
         (progn
           (setvar "osmode" 0)
           (setq DIM_ENT (entget (car DIM_PICK))
                 DIM_NODE1 (cdr (assoc 13 DIM_ENT))
                 DIM_NODE2 (cdr (assoc 14 DIM_ENT))
                 DIM_DEF (cdr (assoc 10 DIM_ENT))
                 DIM_INT (polar DIM_SIDE (angle DIM_DEF DIM_NODE2) 12.0)
                 DIM_POINT (inters (polar DIM_DEF (+ (angle DIM_DEF
DIM_NODE2) (DTR 90.0)) 12.0) DIM_DEF DIM_SIDE DIM_INT nil)
           )
           (command "copy" DIM_PICK "" DIM_NODE2 (polar DIM_NODE2 (angle
DIM_POINT DIM_SIDE) DIM_OFFS))
           (setq DIM_ENT (entget (entlast))
                 DIM_OBJ (subst (cons 13 DIM_NODE1) (assoc 13 DIM_ENT)
DIM_ENT)
           )
           (entmod DIM_OBJ)
           (setq DIM_ENT (entget (entlast))
                 DIM_OBJ (subst (cons 14 DIM_NODE2) (assoc 14 DIM_ENT)
DIM_ENT)
           )
           (entmod DIM_OBJ)
           (setq DIM_ENT (entget (entlast))
                 DIM_DEF (polar DIM_DEF (angle DIM_POINT DIM_SIDE)
DIM_OFFS)
                 DIM_OBJ (subst (cons 10 DIM_DEF) (assoc 10 DIM_ENT)
DIM_ENT)
           )
           (entmod DIM_OBJ)
         )
       )
     )
   )
   (if DIM_PICK (prompt "\nThis is neither a Rotated nor an Aligned
Dimension."))
 )
 (command ".undo" "end")
 ;(RESTORE)
 (princ)
)