[討論]選取字串A及字串B，輸入文字間距程式

Joseph 寫到:選取字串A及字串B，輸入文字間距，程式自動幫你排間距。

代碼:


(defun c:dhx (/ ss pt dy ent_lst endata en-pt)
  (setq os (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setq ss nil)
  (setq pt nil)
  (setq dy nil)
  (setq ss (ssget))
  (setq pt (getpoint "\n選擇對齊基準點:"))
  (setq dy (getreal "\nY向間距:<未輸入則Y座標不變>"))
 
  (setq ent_lst nil)
  (setq i 0)
  (repeat (sslength ss)
    (setq ent_lst (append ent_lst (list (ssname ss i))))
    (setq i (1+ i))
  )

  ;按Y座標排序start Y:大->小
  (setq   ent_lst   (vl-sort ent_lst
          '(lambda (e1 e2)
             (> (caddr (assoc 10 (entget e1)))
               (caddr (assoc 10 (entget e2)))
             )
           )
      )
  ) ;按Y座標排序end

  (if (/= dy nil)
    (progn
      (setq endata nil)
      (setq en-pt nil)
      (setq i 0)
      (foreach n ent_lst
   (setq endata (entget n))
   (setq en-pt (cdr (assoc 10 endata)))
   (setq endata (subst (cons 10 (list (car pt) (+ (cadr pt) (* i -1 dy)) (caddr en-pt)))
             (assoc 10 endata)
             endata
          )
   )
   (entmod endata)
   (setq i (1+ i))
      )
    )
    (progn
      (setq endata nil)
      (setq en-pt nil)
      (foreach n ent_lst
   (setq endata (entget n))
   (setq en-pt (cdr (assoc 10 endata)))
   (setq endata (subst (cons 10 (list (car pt) (cadr en-pt) (caddr en-pt)))
             (assoc 10 endata)
             endata
          )
   )
   (entmod endata)
      )
    )
  )
 
  (setvar "osmode" os)
  (princ)
)