[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[Ingpro]

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

From the point of view of banal erudition, not every individual (teapot) is able to understand the trends of paradoxical explanations.

[Сергей812]

Offtop:

Сообщение от Ingpro From the point of view of banal erudition, not every individual (teapot) is able to understand the trends of paradoxical explanations.

вы когда правите текст - учитывайте, что на почту всем подписавшимся на тему приходит первичный вариант)

Мультитекст может содержать один и тот же текст, но с разными кодами форматирования. В Net это одна строчка для получения "чистого" текста, на лиспе люди тоже реализовывали - ищите.

[Ingpro]

Сообщение от Сергей812 Мультитекст может содержать один и тот же текст, но с разными кодами форматирования. В Net это одна строчка для получения "чистого" текста, на лиспе люди тоже реализовывали - ищите.

Ув. профи, которые реализовали на лиспе, поделитесь, плз...

[koMon]

без реализации, штатная функция

Код:

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

 
(getpropertyvalue (car (entsel "\nМТекст: ")) "text")

[Сергей812]

и аутодеск до сих пор игнорирует разметку верхних и нижних индексов при получении деформатированного значения)

[Ingpro]

Сообщение от koMon 1 (getpropertyvalue (car (entsel "\nМТекст: ")) "text")

Команда: (getpropertyvalue (car (entsel "\nМТекст: ")) "text")
выдает:
МТекст: "Строка текста 1.\r\nСтрока текста 2."
Как с помощью этой строки можно выделить все мтексты с таким содержанием?
Просто для сравнения, если вызвать ком. ПОЛЕ, потом - объект-мтекст, то в окне содержимое выглядит по-другому (как в свойствах мтекста).
или
Команда: _LIST
Выберите объекты: найдено: 1
MTEXT
..............................
..............................
Содержание: Строка текста 1.\PСтрока текста 2.

[koMon]

Сообщение от Сергей812 и аутодеск до сих пор игнорирует разметку верхних и нижних индексов при получении деформатированного значения)

для поиска идентичных текстов это не должно мешать.

Сообщение от Сергей812 В Net это одна строчка для получения "чистого" текста

там тоже с индексами аналогично?

----- добавлено через ~4 мин. -----

Сообщение от Ingpro Как с помощью этой строки можно выделить все мтексты с таким содержанием?

выбрать мтексты (все или выборочно) и проверять содержимое со [под]строкой поиска, например.

[Сергей812]

Сообщение от koMon там тоже с индексами аналогично?

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

[Ingpro]

Сообщение от koMon выбрать мтексты (все или выборочно) и проверять содержимое со [под]строкой поиска, например.

А как это записать на лисп? Мне просто нужно выбрать все мтексты с одинаковым содержанием, а потом я применю лисп Replace, например, или удалю выбранные мтексты...

[koMon]

можно напр. так

Код:

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

 
(setq pattern (getpropertyvalue (car (entsel "\nОбразец МТекста для фильтрации: ")) "text")
      mtext_filtered_sset (ssadd)
)
(if (setq mtext_sset (ssget '((0 . "mtext"))))
  (sssetfirst nil
	  (foreach mtext  
		  (vl-remove-if-not '(lambda (mtext) (vl-string-search pattern (getpropertyvalue mtext "text")))
		    		     (vl-remove-if 'listp (mapcar 'cadr (ssnamex mtext_sset)))
		  )
	    	  (ssadd mtext mtext_filtered_sset)
	  )
  )
)

[Ingpro]

Сообщение от koMon можно напр. так

koMon, спасибо! это отлично работает!!!

[===AAA===]

Всем привет!

Кто знает, для nanoCAD'а 23.1 семейство функций (dumpallproperties ...) вообще не реализовано?
Может быть, просто их синтаксис изменили... А вдруг? :-)

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

А чем тебе не нравится vlac-dump-object?

[===AAA===]

Дело в том, что в функции (dumpallproperties ...) Аутодеск напихал больше
свойств, чем они доступны по (vlax-dump-object).

Скажем, тот же самый "text" для MTEXT - отсутствует.

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

Т.е. тебе TextString уже не канает? )

[===AAA===]

Формально - нет, конечно. :-)

TextString - с кодами форматирования
Text - "чистое" содержание текста

Пока не слишком актуально, но вдруг захочется применить какое-нибудь
свойство, которое доступно по (dumpallproperties ...), но недоступно
по (vlax-dump-object) ... и под наником. Уже - увы - только под ним.

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

Offtop: Бросай лисп, на NET все это доступно из коробки

[Сергей812]

Сообщение от ===AAA=== Пока не слишком актуально, но вдруг захочется применить какое-нибудь свойство, которое доступно по (dumpallproperties ...), но недоступно по (vlax-dump-object) ... и под наником. Уже - увы - только под ним.

ну тогда придется перейти на тот же Net - если возможностей нанолиспа будет уже не хватать)

[===AAA===]

Offtop: Вот сейчас с Винды на Астра-Линукс перейдём, точно придётся бросить...

[koMon]

а что нк есть/будет под астра-линукс?