[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

_____________________________________________________________________________________________________________

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

[koMon]

Сообщение от Browning Zed как будет выглядеть подобный алгоритм для обратной операции - демаскировки Мтекста?

похоже, что демаскировку нереально сделать просто удалив/заменив dxf группы примитва. видимо самым нелучшим вариантом будет создание копии мтекста без маски с удалением оригинала.

[skkkk]

Код:

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

(vlax-put (vlax-ename->vla-object (car (entsel))) 'BackgroundFill 0)

[koMon]

[Browning Zed]

Есть вот такой, более изощренный код. Но как я не пробовал играться с функцией mip:entsel ничего не выходит, не получается заставить прогу указывать объект точечно-циклично, только рамкой.

Код:

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

 (defun c:bmoff(/ ss mts vl_mts )
	  (setq ss (ssget '((0 . "MTEXT"))));выбор мтекстов в чертеже
	  (setq mts (ssnamex ss))
	  (setq ss nil)
	  (setq mts (mapcar 'cadr mts));выкидывание номеров набора из списка
	  (setq mts (vl-remove-if-not '(lambda (x) (eq (type x) 'ENAME)) mts))   ;выкидывание способов набора из списка
	 
	  (setq vl_mts (mapcar 'vlax-ename->vla-object mts))
	 
	  (mapcar '(lambda (x) (vla-put-BackgroundFill x :vlax-false)) vl_mts)
)

[koMon]

Изощрённость - это хорошо. А если сделать в одном флаконе?

[Browning Zed]

Любой вариант подошел бы. Главный вопрос - как сделать выбор/подтверждение кликом на объекте, чтобы не рамкой выбирать.

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

Код:

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

 (vl-load-com)
(defun c:bmoff1 (/ ent)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (while (= (type (setq ent (vl-catch-all-apply (function (lambda () (ssget "_+.:S:E:L" '((0 . "MTEXT"))))))))
            'pickset
            ) ;_ end of =
    (vla-put-backgroundfill (vlax-ename->vla-object (ssname ent 0)) :vlax-false)
    ) ;_ end of while
  (princ)
  ) ;_ end of defun
(defun c:bmoff2 (/ ent)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (while (= (type
              (setq ent (vl-catch-all-apply (function (lambda () (car (entsel "\nSelect MTEXT <Cancel> : "))))))
              ) ;_ end of type
            'ename
            ) ;_ end of =
    (if (= (cdr (assoc 0 (entget ent))) "MTEXT")
      (vl-catch-all-apply
        (function (lambda () (vla-put-backgroundfill (vlax-ename->vla-object ent) :vlax-false)))
        ) ;_ end of vl-catch-all-apply
      (princ "\nSelected object is not MTEXT")
      ) ;_ end of if
    ) ;_ end of while
  (princ)
  ) ;_ end of defun

[Browning Zed]

Кулик Алексей aka kpblc, спасибо, работает. Но теперь пропала возможность снятия маски со всех ранее выбранных Мтекстов.
Цель была такая: если до выполнения команды, Мтексты выбраны не были, запускается алгоритм точечного цикла выбора объектов. Но, если, до выполнения команды, ранее был осуществлен выбор Мтекстов программа снимает с них маскировку и завершается.

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

Browning Zed, да бога ради. Пиши свое ветвление, кто запрещает? Все данные у тебя есть
Смотри ключи ssget, анализируй значение pickfirst, и пиши свой код.

[Vladimir_Sergeevich]

Доброго времени...
Вопрос странноватый: есть жуткое желание редактировать IAcadLWPolyline. Есть замечательный метод AddVertex, но одновременно с ним мне надо пересчитать смежные точки... тут только в лоб ковырять свойство Coordinates, которое еще и и хранится как вариант, и править список как мне надо и назад в вариант паковать?
Али есть более элегантное решение?

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

Ты еще забыл про кривизну и возможные переназначения ширины. Так-то создаешь vlax-variant из Double и устанавливаешь свойство Coordinates. А вот с остальным придется ковыряться.
А на фига вообще такое надо?

[Vladimir_Sergeevich]

Сообщение от Кулик Алексей aka kpblc Ты еще забыл про кривизну и возможные переназначения ширины.

Не забыл, в моей задаче такого нет

Сообщение от Кулик Алексей aka kpblc А на фига вообще такое надо?

Все как всегда, свести тыканье мышкой к минимуму. Уже затыкался (создать/сместить два раза/еще раз создать/ снова сместить/ полученное сопряч / лишее зачистить)

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

Так есть же уже "Набор утилит для работы с полилиниями" от VVA - не подходит?

[Vladimir_Sergeevich]

Сообщение от Кулик Алексей aka kpblc Так есть же уже "Набор утилит для работы с полилиниями" от VVA - не подходит?

это который pl-tools?
Если про него речь, то мне тяжеловато его анализировать, что бы выцеплять нужное, а в чистом виде неприменимо.

p.s.
сделал пока так и в общем получается то что хочется

Код:

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

 (defun sad-change-lwPlinePoint (obj par pt / ptLst) ;| редактирование заданной точки в полилинии
args
	* obj - vla-object
	* par - number of Vertex
	* pt - new point (three real)
rez
	* obj - vla-object
|;
	(setq 
		ptLst (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates obj)))
		ptLst (subst (car pt) (nth (fix (* 2 par)) ptLst) ptLst)
		ptLst (subst (cadr pt) (nth (fix (1+ (* 2 par))) ptLst) ptLst)
		ptLst (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble (cons 0 (1- (length ptLst)))) ptLst))
	)
	(vla-put-Coordinates obj ptLst)
	obj
)

осознаю косяк, но не знаю как подступиться... Ежели каким то чудом координата совпадет у нескольких точек, случится полный ахтунг...
неужто надо как-то поштучно перебирать весь список до заданной вершины, подставлять нужную и дальше собирать хвост? хотя в моем случае хвоста то нет, всегда EndParam подставляется.

[Browning Zed]

Привет. Составил простенький код, который меняет цвет определенных слоев, а также меняет ширину и сглаживание полилиний на этих слоях. И вроде все хорошо, программа работает, но ровно до того момента, как в названии слоя не появляется кириллица. И, если, в названии встретится хотя бы один кириллический символ - код ломается. Что можно придумать в данной ситуации?
UPD. Разобрался, в файле lsp была установлена не та кодировка.

[koMon]

Сообщение от Browning Zed Любой вариант подошел бы.

компилированный вариант aio.

[Browning Zed]

Сообщение от koMon компилированный вариант aio.

Спасибо! Круто придумал.
А нельзя ли еще сделать вариант, где по умолчанию в параметрах будет выставлена маска в цвет экрана, и в выпадающем окошке (где выбираем маскировать или демаскировать текст) добавить опцию "Выход"?

[koMon]

Сообщение от Browning Zed А нельзя ли

можно -> #3876

[Browning Zed]

Спасибо, гуру. Замечательная прога вышла по итогу. Думаю, можно смело вписать в список мастхэва для всех юзеров автокада.