(defun C:add_pl500_saratov (/ insert-point n start-point str-list insert-point-1000 insert-point-250 insert-point-str nn)
  (setq insert-point (list -16000.000 16000.000 0.000))
;;;  (setq insert-point (mapcar '+ start-point (list 0.000 -2000.0 0.0)))
  (setq str-list (list "A" "Á" "Â" "Ã" "Ä" "E" "Æ" "Ç" "È" "Ê" "Ë" "Ì" "Í" "Î" "Ï" "Ð"))
  (foreach x str-list
    (setq insert-point (mapcar '+ insert-point (list 0.000 -2000.0 0.0)))
    (setq insert-point-str insert-point)
    (setq n 1)
    (repeat 13
      (draw-lwpolyline-vla-by-list-property
	(list(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	     (cons "Coordinates" (list
				   insert-point-str
				   (mapcar '+ insert-point-str (list 2000.0 0.0))
				   (mapcar '+ insert-point-str (list 2000.0 2000.0))
				   (mapcar '+ insert-point-str (list 0.0 2000.0))
				   ))
	     (cons "Closed" -1)
	     (cons "Color" 1)
	     (cons "Layer" "pl2000")
	     ))
      (draw-mtext-vla-by-list-property
      (list
	(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	(cons "TextString" (strcat x "-" (convert-arab-to-rim-13 n)))
	(cons "InsertionPoint" (mapcar '+ insert-point-str (list 1000.0 1000.0)))
	(cons "Width" 2000)
	(cons "Height" 400)
	(cons "Rotation" 0)
	(cons "AttachmentPoint" 5)
	(cons "Color" 1)
	(cons "Layer" "pl2000")
	))
      (foreach y (list (list "à"(list 0.0 1000.0)) (list "á"(list 1000.0 1000.0)) (list "â"(list 0.0 0.0)) (list "ã"(list 1000.0 0.0)))
	(setq insert-point-1000 (mapcar '+ insert-point-str (nth 1 y)))
	(draw-lwpolyline-vla-by-list-property
	  (list(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	       (cons "Coordinates" (list
				     insert-point-1000
				     (mapcar '+ insert-point-1000 (list 1000.0 0.0))
				     (mapcar '+ insert-point-1000 (list 1000.0 1000.0))
				     (mapcar '+ insert-point-1000 (list 0.0 1000.0))
				     ))
	       (cons "Closed" -1)
	       (cons "Color" 3)
	       (cons "Layer" "pl1000")
	       ))
	(draw-mtext-vla-by-list-property
	  (list
	    (cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
	    (cons "TextString" (strcat x "-" (convert-arab-to-rim-13 n)"-"(nth 0 y)))
	    (cons "InsertionPoint" (mapcar '+ insert-point-1000 (list 500.0 500.0)))
	    (cons "Width" 1000)
	    (cons "Height" 200)
	    (cons "Rotation" 0)
	    (cons "AttachmentPoint" 5)
	    (cons "Color" 3)
	    (cons "Layer" "pl1000")
	    ))
	(setq insert-point-250 (mapcar '+ insert-point-1000 (list 0.0 750.0)))
	(setq nn 1)
	(repeat 4
	  (repeat 4
	    (draw-lwpolyline-vla-by-list-property
	      (list(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
		   (cons "Coordinates" (list
					 insert-point-250
					 (mapcar '+ insert-point-250 (list 250.0 0.0))
					 (mapcar '+ insert-point-250 (list 250.0 250.0))
					 (mapcar '+ insert-point-250 (list 0.0 250.0))
					 ))
		   (cons "Closed" -1)
		   (cons "Color" 5)
		   (cons "Layer" "pl250")
		   ))
	    (draw-mtext-vla-by-list-property
	      (list
		(cons "spece" (if (eq (getvar "CTAB")"Model")model_spece paper_spece))
		(cons "TextString" (strcat x "-" (convert-arab-to-rim-13 n)"-"(nth 0 y)"-"(itoa nn)))
		(cons "InsertionPoint" (mapcar '+ insert-point-250 (list 125.0 125.0)))
		(cons "Width" 250.0)
		(cons "Height" 30.0)
		(cons "Rotation" 0)
		(cons "AttachmentPoint" 5)
		(cons "Color" 5)
		(cons "Layer" "pl250")
		))
	    (setq insert-point-250 (mapcar '+ insert-point-250 (list 250.0 0.0)))
	    (setq nn (1+ nn))
	    )
	  (setq insert-point-250 (mapcar '- insert-point-250 (list 1000.0 250.0)))
	  )
	
	)

      (setq n (1+ n))
      (setq insert-point-str (mapcar '+ insert-point-str (list 2000.0 0.000 0.0)))
      );repeat
    );foreach
  (princ)
  )

(defun convert-arab-to-rim-13 (int / )
  (nth (1- int) (list "I" "II" "III" "IV" "V" "VI" "VII" "VIII" "IX" "X" "XI" "XII" "XIII"))
  )