(defun C:kg_sk63 ( / input-point krest-dist x)
  (load_global_variable)
  (setq krest-dist (/ 500.0 2.0))
  (if(setq input-point(getpoint "\nУкажи точку внутри планшета: "))
    (progn
      (setq x (analisis-insert-point-planset-left-down-point input-point krest-dist))
      (draw-lwpolyline-vla-by-list-property
	(list(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	     (cons "Coordinates" (list x
				       (mapcar '+ x (list 0.0 krest-dist))
				       (mapcar '+ x (list krest-dist krest-dist))
				       (mapcar '+ x (list krest-dist 0.0 ))))
	     (cons "Closed" -1)
	     ))
      (draw-mtext-vla-by-list-property
	(list
	  (cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	  (cons "TextString" (analisis-nomenclature-full-for-m500-sis-coor-63 x))
	  (cons "InsertionPoint" (mapcar '+ x (list (/ krest-dist 2.0) (/ krest-dist 2.0))))
	  (cons "Width" krest-dist)
	  (cons "Height" (/ krest-dist 10))
	  (cons "Rotation" 0.0)
	  (cons "AttachmentPoint" 5)
	  (cons "StyleName" "Рубленый (Р-131)")
	  ))
      )
    )
  (princ)
  )