모든 라인 중 가장 작은 X 좌표 lisp acad

 

🔎 모든 라인 중 가장 작은 X 좌표 lisp acad: Google 검색

구글은 대단합니다. 원하는 코드를 짜주네요....

(defun KM:MinLineX ( _XLs / ss i ent sp ep min_x x1 x2)
  (vl-load-com)
  (setq min_x nil)

  (setq ss (ssget "X" '((0 . "LINE"))))
  
  (if ss
    (progn
      (setq i 0)
      (repeat (sslength ss)
        (setq ent (ssname ss i))
        (setq sp (cdr (assoc 10 (entget ent))))
        (setq ep (cdr (assoc 11 (entget ent))))
        
        ;; Extract Xp
        (setq x1 (car sp))
        (setq x2 (car ep))
        
        ;; Find min_x
        (setq current_min (min x1 x2))
        
        ;; Update min
        (if (or (not min_x) (< current_min min_x))
          (setq min_x current_min)
        )
        (setq i (1+ i))
      );repeat
    );progn
    (princ "\nCannot find Lines")
  );if
  (print min_x)
); defun