; Varlık yaratma örnekleri
; LAYER tablosuna yeni LAYER eklemek
;
; Orhan Toker 2006

(setq oldCmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)

(defun c:ekle (/ vl)

 
  ; Önce varlık listemizi oluşturalım
  (setq vl (list
	(cons 0 "LAYER")	; Varlığın adı
	(cons 100 "AcDbSymbolTableRecord")
	(cons 100 "AcDbLayerTableRecord")
	(cons 2 "TAL_ORNEK")	; layerin adı
	(cons 6 "Continuous")	; çizgi tipi
	(cons 62 5)		; renk cyan
	(cons 70 0) 		; durumu
	(cons 290 1) 		; plot edilecek mi 
	(cons 370 0)		; çizgi kalınlığı
	)) 			; listeyi sonlandır

  ; Ekleyelim
      
  (entmake vl)			; varlığı yarat
  

  (setvar "cmdecho" oldCmdecho)
  (princ)

  )
(princ)