(defun C:insert_rastr_planshet_500_msk_saratov (/ input-point side t1 t2 t3 t4 obj)
  (if(setq input-point(getpoint "\nУкажи точку внутри планшета: "))
    (progn
      (setq side 250.0)
      (setq t1 (analisis-insert-point-planset-left-down-point input-point side))
;;;      (setq t2 (mapcar '+ t1 (list 0.0 side)))
;;;      (setq t3 (mapcar '+ t1 (list side side)))
;;;      (setq t4 (mapcar '+ t1 (list side 0.0)))
;;;      (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-msk-saratov t1))
;;;		(cons "InsertionPoint" (mapcar '+ t1 (list 125.0 125.0)))
;;;		(cons "Width" 250.0)
;;;		(cons "Height" 30.0)
;;;		(cons "Rotation" 0)
;;;		(cons "AttachmentPoint" 5)
;;;;;;		(cons "Color" 5)
;;;		))
;;;      (draw-lwpolyline-vla-by-list-property
;;;	(list(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
;;;	     (cons "Coordinates" (list t1 t2 t3 t4))
;;;	     (cons "Closed" -1)
;;;;;;	     (cons "Color" 5)
;;;	     ))
      

      (command "-image" "_attach" (strcat "a:\\Андрей\\_maps\\Планы\\Саратов\\500\\3 rename\\" (analisis-nomenclature-full-for-m500-msk-saratov t1) ".tif") t1 "1" "0")
      (setq obj (vlax-ename->vla-object (entlast)))
      (vla-put-ImageHeight obj 250.0)
      (vla-put-ImageWidth obj 250.0)
      )
    )
  (princ)
  )
;;;(analisis-nomenclature-full-for-m500-msk-saratov (analisis-insert-point-planset-left-down-point(getpoint "\nУкажи точку внутри планшета: ")250.0))
