[olga87]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как кодом выполнить следующее: открыть окно "Диспетчер атрибутов блоков", затем выбрать нужный блок, и далее для каждого атрибута в выбранном блоке выбрать "Редактировать" и сразу выход по "ОК". Т.е. как бы пройти по редактированию атрибутов без внесения изменений и сразу закрыть.

Это нужно для NanoCAD, в котором некорректно работает команда "атробновить". Если каждый атрибут через "Диспетчер атрибутов блоков" пройти по его редактированию и сразу выйти, то атрибуты встают на свое исходное правильное местоположение.

Заранее спасибо!

[Boxa]

ИМХО, правильным решением будет пересобрать вот этот код: https://web.archive.org/web/20190211...metki/attsynch под нанокад, но это не лисп....

[olga87]

NanoCAD вроде бы лишь лиспы поддерживает.

[koMon]

а разве нельзя передвинуть атрибуты на их положения в их описании программно?

[olga87]

Не знаю как программно.

[Boxa]

Сообщение от olga87 NanoCAD вроде бы лишь лиспы поддерживает.

Вас ввели в заблуждение. Я бы больше сказал, на сегодняшний день, если судить по количеству сообщений в разделах форума для разработчиков, лисп самый не популярный...

[Сергей812]

Сообщение от olga87 NanoCAD вроде бы лишь лиспы поддерживает.

тыц.

Просто лисп, как и vba, обладает большей "цитируемостью", так как наработано огромное количество примеров кода за это время под него. Но у лиспа c VBA и общий недостаток - развитие этих ЯП остановилось десятки лет назад, в результате чего вместо готового функционала более современных языков там надо придумывать свои реализации элементарнейших вещей (а потом их еще и отлаживать). Поэтому было бы очень странно, что разработчики наноКада делали упор именно на лисп как основного средства автоматизации)

[koMon]

Сообщение от olga87 программно

самый простейший случай

Код:

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

 (defun c:madp (/ insert_index ignore_empty_sset ignore_empty_sset command_terminated insert_sset insert_object insert_entity insert_attributes_list target_attribute)
	(repeat (sslength (setq insert_index -1
							ignore_empty_sset (and
												   (null command_terminated)
											  	   (while (null (setq insert_sset (vl-catch-all-apply 'ssget (list '((0 . "insert")))))))
											  )
							insert_sset (cond
											(
												(or
													(vl-catch-all-error-p insert_sset)
													command_terminated
												)
													(princ "\nОтмена команды")
													(ssadd)
											)
											(
												t
													insert_sset
											)
									  )
					   )
			)
			(if (minusp (vlax-get (setq insert_object (vlax-ename->vla-object (setq insert_entity (ssname insert_sset (setq insert_index (1+ insert_index)))))) 'hasattributes))
				(progn
				  	(setq insert_attributes_list (mapcar '(lambda (attribute) (cons (vla-get-tagstring attribute) attribute))
										   		  		  (vlax-invoke insert_object 'getattributes)
								  		 		 )
					)
		  			(vlax-for attribute_definition
							  (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (cdr (assoc 2 (entget insert_entity))))
							  (if (= "AcDbAttributeDefinition" (vla-get-objectname attribute_definition))

									(cond
										(
											(minusp (vlax-get (setq target_attribute (cdr (assoc (vla-get-tagstring attribute_definition) insert_attributes_list))) 'mtextattribute))
												(vla-move target_attribute
														  (vlax-3d-point (mapcar '- (vlax-get target_attribute 'textalignmentpoint) (vlax-get insert_object 'insertionpoint)))
														  (vla-get-textalignmentpoint attribute_definition)
												)
										)
										(
											t
												(vla-move target_attribute
														  (vlax-3d-point (mapcar '- (vlax-get target_attribute 'insertionpoint) (vlax-get insert_object 'insertionpoint)))
														  (vla-get-insertionpoint attribute_definition)
												)
										)
									)
							  )
					)
				)
			)
	)
)

[olga87]

После применения кода атрибуты разлетаются, т.е. не возвращаются на свое положение.

[koMon]

хорошо бы посмотреть пример блока

[olga87]

Прикладываю блок.

[koMon]

многострочные атрибуты... по-быстро-простому коррекция в #8

[olga87]

Спасибо Вам большое за помощь!