Помогите создать макрос на кнопку (выделить все по маске и переместить вверх)

ssn · 14.12.2020, 14:05

помогите пожалуйста макросом.. одна и та же повторяющаяся процедура (для пространства модели)

1. выбрать все блоки, переместить на передний план (draworder)
2. выбрать все размеры, переместить на передний план
3. выбрать все мультилинии, включить фон для текста (background mask), переместить на передний план.

спасибо

Boxa · 14.12.2020, 16:21

Цитата:

Сообщение от ssn

спасибо

https://forum.dwg.ru/showpost.php?p=...1&postcount=76
Удачи.

ssn · 14.12.2020, 18:00

спасибо.

skkkk · 16.12.2020, 08:07

Код:

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

 (defun C:TEST ( / ss1 ss2 ss3 i)
	(vl-load-com)
	; 1. выбрать все блоки, переместить на передний план (draworder)
	(if (setq ss1 (ssget "_X" '((0 . "INSERT")(410 . "Model"))))
		(vl-cmdf "_DRAWORDER" ss1 "" "_F")
	)
	; 2. выбрать все размеры, переместить на передний план
	(if (setq ss2 (ssget "_X" '((0 . "DIMENSION")(410 . "Model"))))
		(vl-cmdf "_DRAWORDER" ss2 "" "_F")
	)
	; 3. выбрать все мультилинии, включить фон для текста (background mask), переместить на передний план.
	(if (setq ss3 (ssget "_X" '((0 . "MULTILEADER")(410 . "Model")))) 
		(progn
			(repeat (setq i (sslength ss3))
				(vla-put-TextBackgroundFill (vlax-ename->vla-object (ssname ss3 (setq i (1- i)))) 1)
			)
			(vl-cmdf "_DRAWORDER" ss3 "" "_F")
		)
	)
	(vl-cmdf "_REGENALL")
)

koMon · 16.12.2020, 09:19

unexpectable turnout!-)

ssn · 16.12.2020, 11:13

Цитата:

Сообщение от skkkk

Код:

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

 (defun C:TEST ( / ss1 ss2 ss3 i)
	; 1. выбрать все блоки, переместить на передний план (draworder)
	(if (setq ss1 (ssget "_X" '((0 . "INSERT")(410 . "Model"))))
		(vl-cmdf "_DRAWORDER" ss1 "" "_F")
	)
	; 2. выбрать все размеры, переместить на передний план
	(if (setq ss2 (ssget "_X" '((0 . "DIMENSION")(410 . "Model"))))
		(vl-cmdf "_DRAWORDER" ss2 "" "_F")
	)
	; 3. выбрать все мультилинии, включить фон для текста (background mask), переместить на передний план.
	(if (setq ss3 (ssget "_X" '((0 . "MULTILEADER")(410 . "Model")))) 
		(progn
			(repeat (setq i (sslength ss3))
				(vla-put-TextBackgroundFill (vlax-ename->vla-object (ssname ss3 (setq i (1- i)))) 1)
			)
			(vl-cmdf "_DRAWORDER" ss3 "" "_F")
		)
	)
	(vl-cmdf "_REGENALL")
)

спасибо огромное. помчался пробовать

что то пошло не так

Command: TEST
; error: no function definition: VLAX-ENAME->VLA-OBJECT

skkkk · 17.12.2020, 01:39

Цитата:

Сообщение от ssn

; error: no function definition: VLAX-ENAME->VLA-OBJECT

Забываю порой в кодах для форума вставить подгрузку vla-функций, т.к. она у меня добавлена по умолчанию при запуске Автокада.
Добавил

Код:

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

(vl-load-com)

Отредактировал #4.

ssn · 17.12.2020, 08:30

спасибо.
все работает.

14.12.2020, 14:05		#1
Помогите создать макрос на кнопку (выделить все по маске и переместить вверх) ssn Инженер проектировщик (раздел ТМ - фриланс) Геленджик Регистрация: 06.12.2003 Сообщений: 1,794 помогите пожалуйста макросом.. одна и та же повторяющаяся процедура (для пространства модели) 1. выбрать все блоки, переместить на передний план (draworder) 2. выбрать все размеры, переместить на передний план 3. выбрать все мультилинии, включить фон для текста (background mask), переместить на передний план. спасибо
Просмотров: 4465

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите создать кнопку на переключение слоев.	dreammyykeke	AutoCAD	2	14.01.2020 11:26
SPDS макрос на кнопку масштаб нужна помощь	dextron3	ПО от CSoft	18	20.05.2019 13:37
Помогите создать блок масштабирование на VBA.	sashafedorov82	Программирование	4	25.06.2016 14:56
Помогите. В акаде 13: не могу выделить подрезанное растровое изображение	Ridder	AutoCAD	3	21.05.2015 10:50
Помогите создать лисп выделяющий несколько объектов по шаблону	Аристарх Северный	LISP	13	15.08.2014 08:03