[spaniel]

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

[Profan]

Ты забыл, что в AutoCAD'е слой - свойство объекта и копирутеся вместе с самим объектом.

[spaniel]

хорошо, есть ли вариаты с цветом?

[Profan]

Да это опять свойство объекта. Алгоритм здесь такой: выполняется подобие (offset) и у нового объекта меняется слой или цвет. Это можно сделать программным путем.

[Alex II]

Command: _offset
Current settings: Erase source=No Layer=Source OFFSETGAPTYPE=0
Specify offset distance or [Through/Erase/Layer] <Through>: l

Enter layer option for offset objects [Current/Source] <Source>: *Cancel*

[spaniel]

тут я не сильнА. -(

Но цель такая: есть буквы определенного размера, их нужно ровно наклеить. Для этого мы вырезаем шаблон (на лазере), но толщина луча съедает 1мм и потом буквы болтаются в шаблоне. Если букв немного, то я делаю нужную эквидистанту, а старый контур просто удаляю. Но сейчас очень много букв, очень.

[zenon]

Profan, ты не прав
spaniel, см. командную строку
Command: _offset
Current settings: Erase source=No Layer=Source OFFSETGAPTYPE=0
Specify offset distance or [Through/Erase/Layer] <8.5000>: *Cancel*

[zenon]

spaniel, оне спрашивает содавать объект в текущем слое или слое объекта
Переходишь в другой слой и содаешь тама

[spaniel]

to Alex II:

_offset
Величина смещения или [Точка] <Точка>: 1
Выберите объект для создания подобных или <выход>:
Укажите точку, определяющую сторону смещения:

где-то может в другом месте нужно указать?

[Хмурый]

смотря какая версия AutoCAD'а
в 2004-ом опции "Слой" в команде _offset нет
в 2006-ом- уже появилась

[spaniel]

Даже если я делаю текущим другой слой, подобие создается в том же слое где и объект.

у меня 2005 русифицированный акад. может это важно.

[Makswell]

Хмурый
Кстати, может какая-нибудь переменная за это отвечает?

[Alex II]

spaniel, da, eto vazhno

Сообщение от Хмурый смотря какая версия AutoCAD'а в 2004-ом опции "Слой" в команде _offset нет в 2006-ом- уже появилась

[Profan]

Ага, с 2006-го есть. Как-то упустил.

[Хмурый]

Makswell, переменной нет. если есть- то недокументированная.
spaniel, в 2005-ом, возможно, этой опции нет. у меня не установлен 2005-ый. проверить не могу.

[Profan]

А в 2005 точно нет.

[spaniel]

ни у кого нет идей?

[VVA]

Можно еще LISP. Подобие в обе стороны Последние варианты OFF2 и MOFF2

[Хмурый]

команда exoffset из комплекта Express Tools

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

[spaniel]

to VVA:

отличная вещь, только не знаю как исправить на 1 подобие. (там 2 штуки создается)

[ытя]

Макрос на кнопку
^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]