[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

_____________________________________________________________________________________________________________

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

[Oliver_88]

Ubivec81, спасибо за интересную (для меня) задачку.

Код:

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

 (mapcar
  '(lambda (x)
     (if (= 300 (car x))
       '(300 . "XXX")
       x
       )
     )
  sps_dxf
  )

Или

Код:

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

 ;(test sps_dxf)
(defun test (sps_dxf)
  (cond
    (
     (= 300 (setq a (caar sps_dxf)))
     (cons '(300 . "XXX")
	   (test (cdr sps_dxf))
	   )
     )
    (
     sps_dxf
     (cons (car sps_dxf) (test (cdr sps_dxf)))
     )
    )
  )

[dirge]

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

[VVA]

динамический параметр и имя блока

[dirge]

Ребят, подскажите пожалуйста! Сделал вставку во все листы динамического блока поверх старых блоков и нужно теперь изменить динамическое свойство блока в зависимости от имени старого блока.

(setq ss1 (ssget "_x" '((0 . "INSERT") (100 . "AcDbBlockReference"))))

(setq i 0)

(while (< i (SSLENGTH ss1))

(setq name (ssname ss1 i))

(setq conv (vlax-ename->vla-object name))


(if (= (vla-get-name conv) "Mp.Stamp")

(vla-put-value
(car (vlax-safearray->list
(vlax-variant-value
(vla-getdynamicblockproperties conv)
)
)
)
"Mp.StampSmall"
)
)

(setq i (1+ i))
)

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

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

Так у тебя и так проверяется имя блока. Правда, куда выполняется вставка, не очень понятно...

[dirge]

Сообщение от Кулик Алексей aka kpblc Так у тебя и так проверяется имя блока. Правда, куда выполняется вставка, не очень понятно...

Во всех листах вставлены два вида блоков динамический и обычный, нужно как то процедурно изменить динамическое свойство блока по имени старого блока. У меня только срабатывает на всех листах, я не пойму как написать условие сравнения имени двух блоков для какого-то листа и если имена имена в списке совпадают и совпадают листы, то выполнить выражение. Может путанно достаточно, но как-то так.

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

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

Код:

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

(vl-load-com)

(defun test (/ adoc blk old_name)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for layout (vla-get-layouts adoc)
    (vlax-for ent (vla-get-block layout)
      (if (= (vla-get-objectname ent) "AcDbBlockReference")
	(cond
	  ((= (vla-get-name ent) "Mp.Stamp")
	   (vlax-for ent1 (vla-get-block layout)
	     (if (and (= (vla-get-objectname ent) "AcDbBlockReference")
		      (= (vla-get-effectivename ent) "Mp.StampSmall")
		      ) ;_ end of and
	      ) ;_ end of if
	     ;; И здесь установка значения
	     ) ;_ end of vlax-for
	   )
	  ) ;_ end of cond
	) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Сам понимаешь, код не проверял

[dirge]

Кулик Алексей aka kpblc, отличный сетап, всё работает как часы! Ты так просто решил проблему над которой я неделю сидел. Огромная благодарность!

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

На самом деле логика элементарна Проходим по всем пространствам листов и модели (layouts). Из указателя на пространство извлекаем указатель на блок этого пространства (vla-get-block). Потом проходим по всем примитивам блока.
Не самое лучшее решение, если честно. Времени нормально посидеть не было, выдал только то, что в голову пришло. Если подключится VVA, код наверняка получится более компактным и быстрым.

[dirge]

Сообщение от Кулик Алексей aka kpblc На самом деле логика элементарна Проходим по всем пространствам листов и модели (layouts). Из указателя на пространство извлекаем указатель на блок этого пространства (vla-get-block). Потом проходим по всем примитивам блока. Не самое лучшее решение, если честно. Времени нормально посидеть не было, выдал только то, что в голову пришло. Если подключится VVA, код наверняка получится более компактным и быстрым.

Всё хорошо, но пока есть трудности с пониманием такого количества вложенных циклов. Для меня пока это высшая математика.

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

Ох, как не хочется разбирать изначально порочный код... Ну да ладно, корифеи (надеюсь!) простят...

Код:

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

 (vl-load-com)

(defun test (/ adoc blk old_name)
  (vla-startundomark
    (setq adoc ; Присвоение переменной adoc значения
           (vla-get-activedocument ; активного документа
             (vlax-get-acad-object) ; объекта AutoCAD.
             ) ;_ end of vla-get-activedocument
          ) ;_ end of setq
    ) ;_ end of vla-startundomark
  (vlax-for layout ; для каждого объекта
            (vla-get-layouts adoc); в коллекции Layout активного документа
    (vlax-for ent ; Перебираем все примитивы
              (vla-get-block layout) ; входящие внутрь блока, связанного с текущим Layout
      (if (= (vla-get-objectname ent) "AcDbBlockReference") ; Если объект - вхождение блока
        (cond ; то
          ((= (vla-get-name ent) "Mp.Stamp") ; Если его имя Mp.Stamp, то
           (vlax-for ent1 ; Повторно перебираем все примитивы
                     (vla-get-block layout) ; входящие внутрь блока, связанного с текущим Layout
             (if (and (= (vla-get-objectname ent) "AcDbBlockReference") ; Если примитив - вхождение блока
                      (= (vla-get-effectivename ent) "Mp.StampSmall"); и его эффективное имя Mp.StampSmall
                      ) ;_ end of and
              ) ;_ end of if
             ;; И здесь установка значения
             ) ;_ end of vlax-for
           )
          ) ;_ end of cond
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

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

Код:

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

 (vl-load-com)

(defun c:names (/ ent)
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (car (entsel "\nУкажи блок <Отмена> : "))
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (cdr (assoc 0 (entget ent))) "INSERT")
           ) ;_ end of and
    (alert (strcat "Имя блока: "
                   (vla-get-name (setq ent (vlax-ename->vla-object ent)))
                   "\nЭффективное имя блока : "
                   (vla-get-effectivename ent)
                   ) ;_ end of strcat
           ) ;_ end of alert
    ) ;_ end of if
  ) ;_ end of defun

[dirge]

Кулик Алексей aka kpblc, спасибо огромное ещё раз подробный разбор полётов! Буду разбираться потихоньку!

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

Да, совсем забыл написать... Конструкцию cond я использовал, чтобы код можно было масштабировать - например, для другого имени дин.блока надо менять другой параметр. А связь все равно со старым блоком. Если этого не надо, то cond безболезненно можно заменить на if. Или (что лучше) - объединить с предыдущим if.

[Ubivec81]

Сообщение от Дима_ ну попробуй разберись: Код: [Выделить все] (vla-addline (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) (vlax-3d-point '(0 0 0)) (vlax-3d-point '(100 100 0))) p.s. - с тебя два круга с однинаковыми центрами и радиусами 100 и 200 соответственно.

Долго все это пытался понять. Кое что стало доходить

Код:

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

 (vla-addcircle
 	(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
 	(setq stpt(vlax-3d-point '(0 0 0)))
 	200 
 
   )
(vla-addcircle
 	(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
 	stpt
 	300 
 
   )

Только так у меня 2 круга получаются, а вот как правильно не знаю . И еще

Код:

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

 (vla-addline 
  (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))

читать как создание линии в модели листа активного документа Акада?

[dirge]

Всем привет, уважаемые форумчане! Ребята, подскажите как можно прервать цикл выбора объектов клавишей Esc?

[gomer]

Сообщение от dirge как можно прервать цикл выбора объектов клавишей Esc?

Нажать Esc

[dirge]

Сообщение от gomer Нажать Esc

прикольно, но мне нужен корректный выход, а так выдаётся ошибка

[gomer]

Сообщение от dirge мне нужен корректный выход, а так выдаётся ошибка

и правильно выдается... фашисты вообще за побег расстреливали... Ескейп - кнопка выхода, а не прекращения... просто программа не может понять чего вам надо и считает такое нажатие ошибкой пользователя... о чем ему и сообщает а вам как программисту полезно знать о vl-catch-all-apply и иже с ней...
Здесь крыс уже настолько пропиарил свой сайт, что не наткнуться на него уже проблематично, а там все хорошенько разжевано. за что ему и реверанс

[Ubivec81]

Подскажите пожалуйста!
На чертеже созданы 2 таблицы и надо значение одной ячейки (F2) первой таблицы перенести в ячейку второй таблицы (tabl 5 4).
Делаю это через

Код:

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

 vla-settext tabl 5 4 (STRCAT "=Table("(itoa(vla-get-objectid tblsn))").F2"))

Все работает хорошо.
Далее в первой таблице меняю какие то цифры и согласно формуле в первой таблице значение F2 меняется а вот значение (tabl 5 4) почему то остается таким же как и было. В EXCEL это все вроде работает,а в АКАДЕ? Или нет вариантов это победить?

[TararykovDG]

Ubivec81, _regen или _updatefield