Alıntı

---

mustafa06 :

Bu yazin modasi :)

Kod:

(defun c:ld (/ a d e m) (vl-load-com)
  (defun *error* (msg)
    (if (not (wcmatch (strcase msg t) "*cancel*,*exit*"))
      (princ (strcat "\nError: " msg))) (if e (close e)) (setq *error* nil)
    (princ))
  (if (setq a (getpoint "\nFirst point:"))
    (if (setq d (getpoint "\nSecond point:"))
      (progn
        (setq e (open (getfiled "" "" "xls" 9) "w") m 0)
        (write-line (strcat "Sira No" "\t" "Uzunluk") e)
        (while (and a d)
          (vla-addline (vla-get-modelspace (vla-get-activedocument
            (vlax-get-acad-object))) (vlax-3d-point a) (vlax-3d-point d))
          (write-line (strcat (rtos (setq m (1+ m)) 2 0) "\t"
            (vl-string-translate "." "," (rtos (vla-get-Length
            (vlax-ename->vla-object (entlast))) 2 2))) e)
          (if (setq a (getpoint "\nFirst point:"))
            (setq d (getpoint "\nSecond point:")))
        ) (close e)
      )
    )
  ) (setq *error* nil) (princ)
)

mustafa06 (14.07.2015 11:42 GMT)