(defun C:cropping_big_dwg_to_pl_500_saratov (/ ssnabor 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 str-list (list "A" "Á" "Â" "Ã" "Ä" "E" "Æ" "Ç" "È" "Ê" "Ë" "Ì" "Í" "Î" "Ï" "Ð"))
  (vla-StartUndoMark active_document)
  (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
      (if(setq ssnabor (ssget "_C" (mapcar '+ insert-point-str (list 2000.0 2000.0)) insert-point-str ))
      (command "_export"
	       (strcat "D:\\1\\"(strcat x "-" (convert-arab-to-rim-13 n))".dwg")
	       ""
	       "0,0"
	       ssnabor
	       ""
	       ))
;;;      (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)))
;;;	  )
;;;	
;;;	);foreach 1000

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