[shartal]

Возможно ли заложить в лисп, чтоб радиуса сопряжения зависел от слоя объекта ?
Например: для Слой 1 -20
для Слой 2 -30

[Do$]

Сопряжение - это FILLET? Возможно. Варианты решений, которые приходят в голову:
1. Предвыбор-обработка-сопряжение.
2. Командный реактор на FILLET.

[shartal]

Реактор может быть на определенный слой?
Радиус должен подставляться после выбора объекта. Команда пошла- указали объект- сопряглось с нужным радиусом.

[skkkk]

Сообщение от shartal Команда пошла- указали объект- сопряглось с нужным радиусом

Объект или все же два объекта? А если они на разных слоях? То программа должна брать слой первого или ругаться, что, мол, объекты на разных слоях? Опыт показывает, что во избежание разночтений желательно приложить файл с примером.
Плюс создание слоев должно быть в какой-то мере стандартизированным. Ошибка в одном символе имени слоя - и программа не сработает. А так - задачка довольно проста: вводится переменная (радиус), которая принимает значение в зависимости от слоя выбранного объекта и подставляется в (command "_.fillet" ......) на запрос радиуса.

[Елпанов Евгений]

Сообщение от skkkk (command "_.fillet" ......) на запрос радиуса.

можно просто менять системную переменную FILLETRAD

[Do$]

Сообщение от shartal Реактор может быть на определенный слой?

Реактор на запуск команды FILLET. Не вариант, судя по знаниям

[shartal]

В качестве объектов всегда будут участвовать сегменты полилинии, поэтому вопрос о разности слоев стоять не будет. Слои абсолютно стандартизированы.
Но моих знаний на написание кода не хватает, особенно как взять имя слоя с объекта.

[Дима_]

Сообщение от shartal Но моих знаний на написание кода не хватает, особенно как взять имя слоя с объекта.

ну если только в этом проблема:

Код:

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

 (defun lay-name(ent)(cdr (assoc 8 (entget ent))))

[skkkk]

Сообщение от shartal Возможно ли заложить в лисп, чтоб радиуса сопряжения зависел от слоя объекта ? Например: для Слой 1 -20 для Слой 2 -30

Код:

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

(defun C:FilletRadByLayer ( / ent lay-name rad)
	(while (null ent) 
		(setq ent (car (entsel "\nВыберите 2D полилинию: "))) 
		(if (and ent (not (eq (cdr (assoc 0 (entget ent))) "LWPOLYLINE")))
			(progn
				(setq ent nil)
				(princ "Выбранный объект не является 2D полилинией")
			)
			ent
		)
	)
	(setq lay-name (cdr (assoc 8 (entget ent))))
	(cond 
		((eq lay-name "Слой 1")(setvar "FILLETRAD" 20.0))
		((eq lay-name "Слой 2")(setvar "FILLETRAD" 30.0))
		((princ "\nНе тот слой!")
		 (initget 4)
		 (or
			(setq rad (getreal (strcat "\nРадиус сопряжения: <" (rtos (getvar "FILLETRAD") 2 1) ">")))
			(setq rad (getvar "FILLETRAD"))
		 )
		 (setvar "FILLETRAD" rad)
		)

	)
	(command "_.fillet" "_P" ent)
	(princ)
)

Значения, которые надо поменять на свои, выделены зеленым. По аналогии можно добавить/убрать сколько угодно имен слоев и значений радиуса, добавляя/удаляя строку:

Код:

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

((eq lay-name "<Имя слоя>")(setvar "FILLETRAD" <Радиус сопряжения>))

Если полилиния не принадлежит ни к одному из перечисленных слоев, значение радиуса запросится у пользователя.