[МишаИнженер]

Существует ли способ редактирования масштаба типа линии блока из свойств этого блока? Этот способ необходим для быстрой и удобной настройки отображения штриховых и штрихпунктирных линий блока не заходя в блок. Масштаб типа линий должен назначаться цифрой в свойствах блока. Этот способ особенно необходим для настройки отображения штрихпунктирных и штриховых линий динамических блоков, так как "контекстное редактирование" динамических блоков не разрешается. И удобная настройка отображения штрихпунктирных и штриховых типов линий динамических блоков возможна только способом настроек свойств динамического блока.

[koui]

если таких масштабов несколько, может, через видимость?
а сам блок можно? может, через настройку масштаба и сделать для ассоциативной штриховки?

[skkkk]

Код:

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

 (defun C:CHLTSCALE ( / ltypescale ent vla_obj)
	(setq ltypescale 
		(getreal 
			(strcat 
				"\nВведите масштаб типа линии: "
				(if *LTYPESCALE* (strcat "<" (rtos *LTYPESCALE* 2 1) ">") "")
			)
		)
	)
	(if (null ltypescale)
		(setq ltypescale *LTYPESCALE*)
		(setq *LTYPESCALE* ltypescale)
	)
	(if ltypescale (setq ent (car (nentsel))))
	(if (and ltypescale ent)
		(progn
			(setq vla_obj (vlax-ename->vla-object ent))
			(if (and vla_obj (vlax-property-available-p vla_obj 'LinetypeScale T))
				(vla-put-LinetypeScale vla_obj ltypescale) 
				(princ "\nНевозможно изменить масштаб типа линий указанного объекта")
			)
		)
		(princ "\nОбъект не выбран")
	)
	(princ)
)

Правда, не понял пока, как победить необходимость регенерации после каждого назначения масштаба - без неё изменения не отображаются.

[МишаИнженер]

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

Замечательная программа! Просто супер!
Надо только немного доработать:
1)Начинаться программа должна запросом: "Выделите объект:"
2)Затем выводится сообщение: "Текущий масштаб типа линии 50, укажи новый масштаб типа линии <50>:
3)Затем надо выполнить изменение масштаба типа линии
4)и выполнить регенерацию чертежа.
Ничего страшного, что регенерация займет время, лучше сразу её выполнить в программе, чем вручную искать команду в меню для регенерации чертежа
Доработайте пожалуйста код этой программы по плану выше и я вам буду очень признателен

[skkkk]

Код:

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

 (defun C:CHLTSCALE ( / ltypescale ent vla_obj)
	(vl-load-com)
	(setq ent T)
	(while ent
		(setq ent (car (nentsel)))
		(cond
		  (	(and ent (= (type ent) 'ENAME))
			(setq vla_obj (vlax-ename->vla-object ent))
			(setq ltypescale 
				(getreal 
					(strcat
						"\nВведите масштаб типа линии (текущий "
						(rtos (vla-get-LinetypeScale vla_obj) 2 1)
						"): " 
						(if *LTYPESCALE* (strcat "<" (rtos *LTYPESCALE* 2 1) ">") "")
					)
				)
			)
			(if (null ltypescale)
				(setq ltypescale *LTYPESCALE*)
				(setq *LTYPESCALE* ltypescale)
			)
			(if ltypescale (vla-put-LinetypeScale vla_obj ltypescale))
		  )
		  ( T	
			(princ "\nОбъект не выбран")
		  )
		)
		(princ)
	)
	(vl-cmdf "_REGENALL")
)

Если не нужен зацикленный ввод (до нажатия правой кнопки на запрос выбора объекта), то надо удалить или закомментить строки 3, 4 и 30

[МишаИнженер]

Все замечательно skkkk!
Немного поменял запуск команды регенерации чертежа и все очень хошо работает!

Код:

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

 (defun C:CHLTSCALE ( / ltypescale ent vla_obj)
	(vl-load-com)
	(setq ent T)
	(while ent
		(setq ent (car (nentsel)))
		(cond
		  (	(and ent (= (type ent) 'ENAME))
			(setq vla_obj (vlax-ename->vla-object ent))
			(setq ltypescale 
				(getreal 
					(strcat
						"\nВведите масштаб типа линии (текущий "
						(rtos (vla-get-LinetypeScale vla_obj) 2 1)
						"): " 
						(if *LTYPESCALE* (strcat "<" (rtos *LTYPESCALE* 2 1) ">") "")
					)
				)
			)
			(if (null ltypescale)
				(setq ltypescale *LTYPESCALE*)
				(setq *LTYPESCALE* ltypescale)
			)
			(if ltypescale (vla-put-LinetypeScale vla_obj ltypescale))
		  (vl-cmdf "_REGENALL")
		  )
		  ( T	
			(princ "\nОбъект не выбран")
		  )
		)
		(princ)
	)
)

Но почему-то изменяется масштаб линии только в выбранном блоке, а остальные блоки с этим же именем отображаются со старыми масштабами этих же линий
Можно сделать так чтобы все блоки с одинаковым именем в чертеже меняли масштаб выбранной линии?
Посмотрите пример в прикреплённом файле.
Блоки одинаковые, а линии отображаются с разным масштабным коэффициентом. Это очень странный эффект AutoCAD. Наверное при обновлении блоков AutoCAD не задумывается над масштабными коэффициентами типов линий блока. Если зайти в редактор блоков и выйти с сохранением из редактора, то все линии начинают отображаться с одинаковым масштабом. Наверное только при выходе из редактора блоков AutoCAD один раз настраивает отображение типов линий в блоке, а потом на это не обращает внимания. Может я и не прав, не понятно

[skkkk]

Сообщение от МишаИнженер Но почему-то изменяется масштаб линии только в выбранном блоке, а остальные блоки с этим же именем отображаются со старыми масштабами этих же линий

Это странно, потому что у меня обновляется на всех (на обоих блоках в файле "План балок моста", третий там другой блок). Может, переменная подгаживает какая... Я причем оба варианта кода попробовал

Сообщение от МишаИнженер Немного поменял запуск команды регенерации чертежа и все очень хошо работает!

Думаю, зря. После каждого выбранного объекта в цикле будет регенерировать теперь, на загруженных чертежах будет жестко тупить. В том и смысл, чтоб реген был после всех выбранных блоков. Другой вопрос, что их неплохо было бы подсвечивать в таком случае, наверное, чтоб обозначить выбор. Либо просто убрать цикл, как я выше описал, и для каждого блока вызывать команду заново. Но реген в коде на каждой итерации цикла - это неправильно.