[sergeev_2005]

Требуется создать поле PlotDate (ДатаВывода), вставить это поле в пространстве листа.
При этом задать координаты X и Y, имя слоя, стиль текста и угол поворота текста.
Если поле PlotDate в данном пространстве листа уже существует, то ничего не делать.
Всё на лиспе. На самом деле я понятия не имею, как проверить существование поля.
Остальное (вставить поле, правда, не с координатами, а в существующий текст) нашел на форуме
Особая благодарность VVA.

[Кулик Алексей aka kpblc]

Ничего не понял. Если это запрос на разработку - то ошибся с разделом. Если затык в коде - то где собственно код?

[sergeev_2005]

Не буду спорить. Может и ошибся с разделом.
Запрос на разработку - это сильно сказано.
На самом деле нужна подсказка: как на лиспе: IF (FIELD "PLotDate" NOT EXIST) THEN DO (.......) ELSE ("ничего не делать").
Можно другую подсказку не по полю, а по слою: IF (LAYER "name" NOT EXIST) THEN DO (...) ELSE ("ничего не делать").
И то, и другое подойдёт.
Алексей, если это разработка, то готов обратится Куда? Ну не силён в лиспе, что делать?

[Boxa]

Для Автокад можно писать на достаточно большом количестве языков и судя по

Сообщение от sergeev_2005 IF (FIELD "PLotDate" NOT EXIST) THEN DO (.......) ELSE ("ничего не делать").

не проще ли Вам на VBA написать то, что Вам нужно? У Лисп все несколько по другому...

[koMon]

Сообщение от sergeev_2005 подсказка

Код:

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

 (defun c:plot_date (/ layout_collectio plot_date_exists)
	(if (= "*Paper_Space" (vla-get-name (setq layout_collection (vla-get-block
											  						(vla-get-activelayout
																		(vla-get-ActiveDocument
																			(vlax-get-acad-object)
																		)
																	)
											  					)
										)
						  )
		)
			(progn
				(vlax-map-collection layout_collection
					'(lambda (layout_item)
						(if (and
								 (not plot_date_exists)
								 (= "AcDbText" (vla-get-objectname layout_item))
								 (wcmatch (vla-fieldcode layout_item) "*AcVar PlotDate*")
							)
								(if (null plot_date_exists)
										(setq plot_date_exists t)
								)
						)
					 )
				)
				(if plot_date_exists
					(print "Текст с полем найден")
					(print "Создаём текст с полем")
				)
			)
			(print "Это не лист")
	)
	(princ)
)

[sergeev_2005]

Спасибо большое, koMon, попробую.

----- добавлено через ~22 мин. -----
koMon, выдаёт "Создаём текст с полем" и... тишина. Командная строка автокада встала в исходную позицию. Это первое, что получилось.

----- добавлено через ~51 мин. -----
При наличии поля PlotDate на листе выдает то же самое.

[Boxa]

Сообщение от sergeev_2005 выдаёт "Создаём текст с полем" и... тишина.

А что должно произойти? Вы просили подсказку, что Вам дали подсказку. Дальше сами допишите туда то, что у Вас уже есть (Вы об этом в 1 сообщение написали). Странно, по какой то причине Вы решили, что Вам дали готовое решение.... даже с моим незнанием Лиспа, по коду видно что это именно подсказка и именно только условие, которое Вы просили.

Сообщение от sergeev_2005 При наличии поля PlotDate на листе выдает то же самое.

Еще раз, этот код, это

Сообщение от koMon подсказка

а не готовое решение, нужно доработать напильником и как минимум проверять типы объектов и прочие, сопутствующие, обстоятельства.

ЗЫ.
По дате регистрации, вроде не студент, а задача учебная. В работе эта задача решается штатными инструментами авткада, через переопределение блока и синхронизацию атрибутов. И главное требование, неприменно на Лисп... Странно.

[koMon]

Сообщение от sergeev_2005 выдаёт "Создаём текст с полем" и...

ну, как правильно написал Boxa, фрагмент проверяет ТЕКСТЫ в пространстве текущего листа и как бы всё) а создать новый текст и впихнуть в него поле - это уже как фантазия у кого работает!

Сообщение от sergeev_2005 При наличии поля PlotDate на листе выдает то же самое.

поле PlotDate можно вставить также в МТЕКСТ и т.д. возможно у вас так и есть... выложите лист на посмотреть...

[sergeev_2005]

koMon, спасибо ещё раз! Ну да, сразу не сообразил. Добавил в Вашу программу проверку на MText - всё получилось.
Boxa, во-первых, тон! Вам бы по импортным форумам поползать. Есть чему поучиться в манере общения, хотя Вы также не студент.
Во-вторых, Вы же не знаете мою общую задачу. Так зачем же предлагать её решать разными языками и методами автокада?
Это тривиально, и, если бы это было приемлемо, то я бы и тему не поднимал.

Для Автокад можно писать на достаточно большом количестве языков и судя по

Не надо судить. Это было всего лишь нечто похожее на алгоритмическую нотацию, принятую ещё в 80-х прошлого столетия, когда ещё не было VBA. да и VB тоже.

[Boxa]

Сообщение от sergeev_2005 во-первых, тон!

И что не так с моим тоном!?

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

Спасибо. Регулярно.

Сообщение от sergeev_2005 Во-вторых, Вы же не знаете мою общую задачу. Так зачем же предлагать её решать разными языками и методами автокада?

Не знаю, но вижу Ваш вопрос и Вашу

Сообщение от sergeev_2005 алгоритмическую нотацию

и понимаю, что с этой нотацией, Вам сложнее будет работать в функциональном стиле лиспа и потому предлагаю сразу посмотреть в сторону того, что более соответствует Вашей алгоритмической нотации. Предлагаю, но выбор делать Вам.

По Вашим словам, складывается впечатление, что Вы считаете, что Вас кто то хочет обидеть или задеть. Отнюдь, я не сильно ошибусь, если напишу, что участникам дискуссии... все равно и никто не ставит своей целью Вас обидеть или задеть.

[sergeev_2005]

ОК, ВОХА, принято. На самом деле всем большое спасибо! Всё исчерпывающе.