seçilen objelere ayrı ayrı layer veren lisp

[orhunkeskinbicak]

;;;ne işe yarar
;;;3dsout ile export ederken layerlara bağımlı olarak objelerin ayrı gelmesini sağlıyor
;;;command : layver

(defun c:layver ()
(setq set1 T set2 nil)
(setq say1 0)

(setq la1 (getstring"\nlayer indisi :"))
(princ"\nlayer verilecek objeleri seçiniz :")

(setq set1 (ssget))
(command "ucs" "w")
(command "plan" "")
(setq sayiss (sslength set1))

(while (> sayiss say1)
(setq ss1 (ssname set1 say1 ))
(setq say1 (+ say1 1))
(setq lay1 (strcat la1 (rtos say1 2 0)))

(command "layer" "n" lay1 "")
(command "change" ss1 "" "p" "la" lay1 "")


))

[H. BUĞRA YAZGI]

Gerçekten yararlı bir yazılım. teşekkürler