[Dark]

Пользовался поиском, но вроде ничего подходящего не нашел.

Вот мне дан DXF файл. Моя задача этот файл дублировать(копировать) несколько раз и расположить в определенном по закону порядке в новом DXF файле, перед этим нужно определить размеры рисунка, чтобы потом копии не пересекались. Подскажите как лучше/рациональнее это сделать с помощью LISP, если не затруднит, напишите краткий код к программе, чтобы потом уже от него отступать

[Zouss]

не знаю при чем здесь dxf, но краткий код может быть такой

Код:

[Выделить все]

(defun C:allarray (/ gap roff coff ptmin ptmax)
  (setq gap 100);зазор между изображениями
  (command "_.ZOOM" "_E")
  (setq	roff (+	gap
		(- (cadr (setq ptmax (getvar "EXTMAX")))
		   (cadr (setq ptmin (getvar "EXTMIN")))
		) ;_ -
	     ) ;_ +
	coff (+ gap (- (car ptmax) (car ptmin)))
  ) ;_ setq
  (command "_.ARRAY" "_ALL" "" "_R" PAUSE PAUSE roff coff)
  (command "_.ZOOM" "_E")
  (command "_.SAVEAS" "DXF" "" "" "Y")
) ;_ defun

[Dark]

Большое спасибо Zouss. Попробую доделать программу под задачу