[spaniel]

т.е. есть прямоугольник в слое "Х", нужно чтобы прямоугольник с заданной эквидистантой создавался в другом слое.

[ытя]

Макрос на кнопку
^C^C_.offset;100;\\;_chprop;_last;;_la;"Слой";;
100- дистанция
"Слой" - имя слоя

[Хмурый]

Сообщение от Хмурый команда exoffset из комплекта Express Tools после ввода расстояния в настройках комады можно выбрать слой (Layer), на котором быдут создаваться примитивы, либо как у объекта-источника (Source) либо текущий слой (Current). Если при указании направления построения нажать Ctrl- то объект-источник удалится, Shift+указание направления тоже интересно работает

настройки- Options

[gad]

В свое время написал команду для перевода примитива после подобия на текущий слой, так же команда вызывает встроенный калькулятор(командной строки). Делал для разработки КМД.

;;;Программа выполняет команду
;;;offset и переводит примитив на
;;;текущий слой
;;;

(defun c:SgrOffset (/ ce ur_entget result ur_string)
(setq ce (getvar "cmdecho"))
(setvar "cmdecho" 0)

(if (= (member "geomcal.arx" (arx)) nil)
(arxload "geomcal.arx") ;загружаем geomcal.arx содержащий функцию c:cal
)

(if (= -1 (getvar "offsetdist"))
(progn
(while (or (= ur_string nil) (= ur_string ""))
(setq ur_string
(getstring "\nВведите величину смещения или выражение:"
)
)
)
;убираем запятые
(setq ur_string (vl-string-translate "," "." ur_string))

(setq result (c:cal ur_string))
(command "'_setvar" "offsetdist" result)
)
(progn
(setq
ur_string (getstring
(strcat
"\nВведите величину смещения, выражение или <"
(rtos (getvar "offsetdist") 2 4)
">:"
)
)
)
(if (/= ur_string "")
(progn
;убираем запятые
(setq ur_string (vl-string-translate "," "." ur_string))

(setq result (c:cal ur_string))
(command "'_setvar" "offsetdist" result)
)
)
)
)

(setvar "cmdecho" ce)
(setq ur_entget T)

(while (/= ur_entget nil)
(princ
"\nВыберите объект для создания подобных или <выход>:"
)
(setq ur_entget (ssget
"_:S"
)
)
(if (/= ur_entget nil)
(progn
(setq ur_entget (ssname ur_entget 0))
(command "_offset" "" ur_entget pause "")
(SgrSubstLayer (getvar "CLAYER")) ;перенос элемента на слой с посощью функции описана ниже
)
)
)
(princ)
) ;конец defun


;;;************************************************************************************************

;;;************************************************************************************************

;;;Функция предназначена
;;;для переноса элемента
;;;на слой layername
;;;
;;;аргумент
;;; layername-имя слоя

(defun SgrSubstLayer (layername / ur_last)
(setq ur_last (entget (entlast))) ;получаем DXF список последнего примитива
(setq ur_last (subst (cons 8 layername) (assoc 8 ur_last) ur_last))
;заменяем старый слой новым
(entmod ur_last) ;редактируем приметив
) ;конец defun

[spaniel]

to ытя - ничего не поняла.
to Хмурый - пойду поищу где скачать ExToo

[spaniel]

to gad :

РАБОТАЕТ!!! то что нужно, спасибо!

ЗЫ: была бы я умная смогла бы Вашу програмулину дописать: чтобы удалять исходные объекты, но не повезло.

[VVA]

spaniel, Там вся фишка в подобии в обе стороны
1. Чтобы понять ытю, нужно сначала проштудировать Примеры создания своих команд и меню в AutoCAD.
2. Чтобы попробовать использовать то, что предложено в #23 нужно почитать Как использовать лисп, опубликованный на форуме
3. Express Tools идет в стандартной поставке Автокада. Нужно просто при установке поставить птичку в нужном месте.

[spaniel]

Всем спасибо! (особо gad !)
тема закрыта! т.к. ответ найден.

[VVA]

Сообщение от spaniel to gad : ЗЫ: была бы я умная смогла бы Вашу програмулину дописать: чтобы удалять исходные объекты, но не повезло.

Держи

Код:

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

(defun c:MyOff (/ ce e1 ss)
  (setvar "cmdecho" 1)
  (initget 7)
  (setvar "OFFSETDIST" (getdist"\nВведите величину смещения: "))
  (princ "\nВыберите объект для создания подобных или <выход>:")
  (while (setq ss nil ss (ssget "_:S:E:L"))
	(setq e1 (ssname ss 0))
        (command "_.offset" "" e1 pause "")
        (entmod (subst (cons 8 (getvar "CLAYER"))(assoc 8 (entget (entlast))) (entget (entlast))));_Изменяем слой
        (entdel e1) ;_Удаляем исходный примитив
      (princ "\nВыберите объект для создания подобных или <выход>:")
  )
  (princ)
)

[zenon]

VVA, честно пытался запустить код с поста #25, знаешь ничего не выходит

[VVA]

В #25 посте нет кода

[zenon]

VVA,
http://forum.dwg.ru/showpost.php?p=327344&postcount=26

[VVA]

Исправил

[zenon]