Arkadaşlardaşlar ben denedim oldu.Bence çokta güzel oldu
Tabiki Kivanc arkadaşın yorumuda yardımcı oldu.ben bulduğum AUTOLİPS komutu ile birlikte yayınlamak istedim.Bu komutla line'nı Polyline olarak çevire bilirsiniz.
(defun C:make_pl( / )
(princ "nElemanlari seciniz: ")
(setq sset (ssget))
; (setq sset (ssget "X" (list (cons 0 "LINE"))))
(setq adet (sslength sset))
(setq syc 0)
(repeat adet
(setq eleman (ssname sset syc))
(setq elmBlg (entget eleman))
(if (= (cdr(assoc 0 elmBlg)) "LINE")
(progn
(command "_PEDIT" eleman "Y" "JOIN" "ALL" "" "X")
)
)
(setq syc (1+ syc))
)
(princ)
)
(PRINC " --> ´autolisp yüklendi´")
bunu autocad e yükledikten sonra make_pl komutu verip çizgiler seçilir..
polyline çevrilen hattı seç "li"+Enter uygula
Çıkan ekranda "Length" yazan yerde çizginin uzunluğunu göreceksiniz.
Buradaki sonuçtan projenizin ölçeğine göre gerçek mesafeyi hesaplayabilirsiniz.
Herkeze kolay gelsin....