[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

_____________________________________________________________________________________________________________

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

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

Во-первых, не путай BlockDefinition и BlockReference. Во-вторых, твою задачу легче решать через обычный lisp, без применения ActiveX. ПРимерно так:

Код:

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

 (defun test (/ ss)
  (if (= (type (setq ss (vl-catch-all-apply (function (lambda () (ssget '((0 . "INSERT")))))))) 'pickset)
    (vl-sort ((lambda (/ tab item)
                (repeat (setq tab  nil
                              item (sslength ss)
                              ) ;_ end setq
                  (setq tab (cons (ssname ss (setq item (1- item))) tab))
                  ) ;_ end repeat
                ) ;_ end of LAMBDA
              )
             (function (lambda (a b) (< (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b))))))
             ) ;_ end of vl-sort
    ) ;_ end of if
  ) ;_ end of defun

Код писал "насухую", без проверок.

[Neo]

как получить имя блока через его атрибут?
выбираю на экране атрибут: (car (nentsel "\nSelect block:")), далее хочу получить значение другого атрибута ("tag") этого блока.
спасибо

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

Может, проще будет сначала все же вхождение блока получить?

[skkkk]

В возвращаемом списке (nentsel) один из элементов как раз - объект блока.
Прошу прощения, был неправ (с учетом следующего поста) - совершенно позабыл.

[P_S]

В возвращаемом списке (nentsel) один из элементов как раз - объект блока.

Неправда ваша (если выбирать именно атрибут, а не блок). Если выбирать атрибут, то нужно раскручивать вопрос с именами как-то так:

Код:

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

 (vlax-vla-object->ename 
(vla-ObjectIDtoObject(vla-get-ActiveDocument(vlax-get-acad-object))
(vla-get-OwnerID(vlax-ename->vla-object(car (nentsel "\nSelect block:"))))))

[Neo]

идея такая, что мышкой указываю на атрибут, а в отчет (электрические схемы подключения ) будет уходить "tag"+"указанный атрибут". два выбора мышкой не хочу, т.к. возможно ошибиться. пока решил, для всех блоков, создать ассоциативный список всех Handle атрибутов и самого блока, а там искать по Handle

В возвращаемом списке (nentsel) один из элементов как раз - объект блока.

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

UPD: to P_S OwnerID подходит лучше, спасибо

[Сергей812]

Сообщение от Neo идея такая, что мышкой указываю на атрибут, а в отчет (электрические схемы подключения ) будет уходить "tag"+"указанный атрибут". два выбора мышкой не хочу, т.к. возможно ошибиться. пока решил, для всех блоков, создать ассоциативный список всех Handle атрибутов и самого блока, а там искать по Handle

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

[Neo]

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

тут идея создать отчет в последовательности указанной пользователем

[Сергей812]

Сообщение от Neo тут идея создать отчет в последовательности указанной пользователем

Тогда опять же - при унифицированной системе атрибутов достаточно выбирать блоки, а уже макрос - в зависимости от его назначения - выдергивает нужные значения. И вероятность человеческого фактора меньше - это надо вообще мимо блока промахнуться в целом)

[Сет]

Я некоторые атрибуты делаю скрытыми и храню в них какие-то данные, связанные с конкретным экземпляром блока. Например атрибут "ДЛИНА", где записывается какое-то число. Чтобы извлечь это значение я получаю атрибуты блока, прохожусь по ним в цикле и если таг очередного атрибута "ДЛИНА" - считываю его значение. Немного напрягает такой способ своей нерациональностью. Было бы гораздо проще, если бы вот это числовое значение извлекалось по какому-то ключу или заранее определенному индексу. Можно ли цеплять к блокам такие данные?

[Сергей812]

Расширенные данные?

[Сет]

Сообщение от Сергей812 Расширенные данные?

Ну я не знаю, потому и спрашиваю. Поясните простым примером.

[Сергей812]

так поищите в инете.. lisp работа с расширенными данными. А еще словари есть

[George_D]

Добрый день, список представляет собой следующий вид ( (сила ( координаты точки приложения) (сила ( координаты точки приложения) и тд. ......). Не получается отсортировать его по возрастанию суммы координат (x+y) точек приложения.
Т.е. Из такого списка ((5.5 (3000.0 3000.0 0.0)) (10.0 (4500.0 3000.0 0.0)) (7.6 (1500.0 3000.0 0.0))) должен получиться ((7.6 (1500.0 3000.0 0.0)) (5.5 (3000.0 3000.0 0.0)) (10.0 (4500.0 3000.0 0.0)))

Пробую

Код:

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

 (setq list_tochek_sil ( list ( list  5.5 ( list 3000.0 3000.0 0.0)) ( list 10.0 ( list 4500.0 3000.0 0.0)) (list 7.6 (list 1500.0 3000.0 0.0))) )
(vl-sort  list_tochek_sil (function ( lambda ( e1 e2) (>
   (+(nth 0 (nth 0 (cdr e1))) (nth 1 (nth 0 e1))))
   (+(nth 0 (nth 0 (cdr e2))) (nth 1 (nth 0 (cdr e2))))				     
		)))

не выходит . Подскажите , пожалуйста, как это сделать?

[Neo]

to Сет : да и я тоже так делаю. В принципе у меня в блоках атрибутов не так и много, и пройтись циклом по каждому много времени не займет, но согласен, что рационально как-то. А если "ДЛИНА" будет не в атрибуте, то как её задавать на чертеже?

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

Код:

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

 (defun test (/ list_tochek_sil)
  (setq list_tochek_sil
         (list (list 5.5 (list 3000.0 3000.0 0.0))
               (list 10.0 (list 4500.0 3000.0 0.0))
               (list 7.6 (list 1500.0 3000.0 0.0))
               ) ;_ end of list
        ) ;_ end of setq
  (vl-sort list_tochek_sil (function (lambda (a b) (> (apply '+ (cadr a)) (apply '+ (cadr b))))))
  ) ;_ end of defun

[George_D]

Спасибо

[Сет]

Сообщение от Neo А если "ДЛИНА" будет не в атрибуте, то как её задавать на чертеже?

Как задавать - способов много. У меня, например, блок строки спецификации включает в себя различные данные, формируемые на стадии создания этой самой строки спецификации. Затем эти невизуальные данные используются для групповых спецификаций и прочего. Проходить циклом по каждому атрибуту и сравнивать каждый атрибут с требуемым именем в поисках нужного - довольно корявое решение. Тут даже дело не в затратах машинного времени (в данном случае это не критично), а, я бы сказал, в эстетике программирования Тупой перебор выглядит весьма топорно.

[Neo]

Сообщение от Сет Проходить циклом по каждому атрибуту и сравнивать каждый атрибут с требуемым именем в поисках нужного - довольно корявое решение.

как я понял, в vlisp нету хеш-таблиц, и assoc тоже работает перебором, правильно?

[Дима_]

Сообщение от Neo как я понял, в vlisp нету хеш-таблиц, и assoc тоже работает перебором, правильно?

Да правильно, я где-то здесь (может даже и в этой теме) выкладывал реализацию словарей (Map) на основе двоичных деревьев.