[编程交流] 修订代码-尺寸e

(defun c:chrdim ()
 
  (setq dl (list '("H" "hor") '("V" "vert") '("A" "aligned")))
  (initget "h H v V a A")
  (setq mode (strcase (getkword "Enter H, V or A for horiz, vert or aligned dimensions: ")))
  (setq mode (cadr (assoc mode dl)))
  (setq p1 (getpoint "\nSelect first point: "))
  (while (eval 'p1)
    (setq p2 (getpoint "\nSelect second point: "))
    (setq p3 (getpoint "\nSelect dimension line location: "))
    (setq ns (getint "\nNumber of spaces?: "))
    (cond ((= mode "hor")
           (setq d (distance p1 (list (car p2) (cadr p1))))
          )
          ((= mode "vert")
           (setq d (distance p1 (list (car p1) (cadr p2))))
          )
          (T
           (setq d (distance p1 p2))
          )
    )
    (setq s (rtos (/ d ns) 4 3))
    (cond ((> (- d (* ns (distof s 4))) 0.1)
              (setq off "%%p")
           )
           ((> (- (* ns (distof s)) d) 0.1)
            (setq off "%%p")
           )
           (T (setq off ""))
     )
     (setq sdim (strcat (itoa ns) " EQ SP @ " 
                        s off)                               
     )
     (command "dim" mode p1 p2 p3 sdim "e")
     (setq p1 (getpoint "\nSelect first point, return to exit: "))
  )      
)    

(defun c:cdim ()
 
  (setq dl (list '("H" "hor") '("V" "vert") '("A" "aligned")))
  (initget "h H v V a A")
  (setq mode (strcase (getkword "Enter H, V or A for horiz, vert or aligned dimensions: ")))
  (setq mode (cadr (assoc mode dl)))
 (setq spacing
 (cond
   ((getint (strcat "\nEnter default spacing <" (itoa(setq spacing(cond ( spacing ) ( 42 ))))
         ">: "))
   )
   ( spacing )
 )
)
  (setq p1 (getpoint "\nSelect first point: "))
    (while (eval 'p1)
    (setq p2 (getpoint "\nSelect second point: "))
    (setq p3 (getpoint "\nSelect dimension line location: "))
    (cond ((= mode "hor")
           (setq d (distance p1 (list (car p2) (cadr p1))))
          )
          ((= mode "vert")
           (setq d (distance p1 (list (car p1) (cadr p2))))
          )
          (T
           (setq d (distance p1 p2))
          )
    )
    (setq ns 2)
   (while (>= (/ d ns) spacing)
   (setq ns (1+ ns))
   (setq ns (1+ ns))
   )
    (setq s (rtos (/ d ns) 4 3))
    (cond ((> (- d (* ns (distof s 4))) 0.1)
              (setq off "%%p")
           )
           ((> (- (* ns (distof s)) d) 0.1)
            (setq off "%%p")
           )
           (T (setq off ""))
     )
     (setq sdim (strcat (itoa ns) " EQ SP @ " 
                        s off)                               
     )
     (command "dim" mode p1 p2 p3 sdim "e")
     (setq p1 (getpoint "\nSelect first point, return to exit: "))
  )      
)