Yardımınıza ihtiyacım var . Çeşitli uzunluklardaki LİNE leri toplu bir şekilde orta noktasına bir block koymak , aslında bir nevi "DİVİDE" komutunu birden fazla line uygulamak.
(defun c:LB (/ sec bla tek p10 p11 pa po)
(if (setq sec (ssget (list (cons 0 "LINE"))))
(progn
(setq nn t)
(while nn
(if (setq bla (getstring t "\nBlok adını yazın:"))
(if (tblsearch "BLOCK" bla)
(progn
(setq nn nil c 0 say (sslength sec))
(while (< c say)
(setq tek (ssname sec c)
p10 (cdr (assoc 10 (entget tek)))
p11 (cdr (assoc 11 (entget tek)))
pa (angle p10 p11)
po (polar p10 pa (/ (distance p10 p11) 2.)))
(command ".insert" bla "non" po "" "" "")
(setq c (1+ c))))
(progn
(princ "\nBlok bulunamadı...")
(setq nn t))
)))))(princ))
