;;; Nastavení měřítka značky ;;;

(defun DRAW (block sx sy)	;Načtení proměnné (název_bloku, měřítko_na_ose_x(1=100%), měřítko_na_ose_y(1=100%))
        (setq vel (getvar "CANNOSCALEVALUE"))	;Načtení měřítka z výkresu a jeho uložení do promněné vel
	(setq meritko (/ 1 vel))		;Převod měřítka pro zvětšení
	(setq sizx (* sx meritko))		;Nastavení velikosti na ose x
	(setq sizy (* sy meritko))		;Nastavení velikosti na ose y
	(setq vloz (getpoint "\nBOD vložení: "))	;Načtení bodu
        (command "_insert" block vloz sizx sizy)
   (princ)
  
)



;; Nastavení čáry pro kabel a Trasu ;;

(defun DRAW02 (lyr col ltname)
	(if (tblsearch "LAYER" lyr)	; Přehled zda hladina již existuje
	  (command "._Layer" "_Thaw" lyr "_UnLock" lyr "_On" lyr  "_Set" lyr "") ;nastavit hladinu pokud existuje         ;;;	** vytvoření nové hladiny pokud nexistuje : **
	  (if (tblsearch "LTYPE" ltname);if linetype exsists
	      (command "._Layer" "_Make" lyr "_Color" col lyr "_LT" ltname lyr "") 
	      (command "._Layer" "_Make" lyr "_Color" col lyr "_LT" "Continuous" lyr "")
	)
	)
(command "_line")
	)
