[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]

Так есть определение блока или есть вхождение блока?

[VVA]

Сообщение от Red Nova можно проверить (вернуть T / nil) есть ли блок с определенным именем в файле (точнее проверить вставлен ли блок в файл)?

Другими словами есть ли описание блока в таблице блоков в файле.

Код:

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

(tblobjname "BLOCK" "TEST")

где "TEST" - имя блока

[Red Nova]

Уточняю. Определение блока мне не важно. Нужно проверить вхождение. Когда подкидываете нужных терминов становится проще

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

Отлично... Вхождение куда? В пространство модели? Листа? Другого блока?

[skkkk]

Сообщение от Red Nova Кок можно проверить (вернуть T / nil) есть ли блок с определенным именем в файле (точнее проверить вставлен ли блок в файл)?

Код:

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

(if (ssget "_X" '((0 . "INSERT") (2 . "TEST"))) T nil)

где "TEST" - имя блока

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

skkkk, если блок в блоке, то набор вернет nil

[Red Nova]

Вхождение в пространство модели. Блоков в блоках нет.

skkkk

Код:

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

 (defun test ()
  (if (ssget "_X" '((0 . "INSERT") (2 . "BMP Plan PT")))
    (princ "hello"))
  )

Command: (test ) nil

Что не так?
Блок прикрепил.

[VVA]

Сообщение от Red Nova Что не так?

Блок динамический

Код:

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

;; Returns list of the Anonymous names taken by a Dynamic Block (if any)  -  Lee Mac 2011  -  www.lee-mac.com
;; Arguments:  block  - name of Dynamic Block.

(defun AnonymousInstancesof ( block / def rec nme ref lst )
  (while (setq def (tblnext "BLOCK" (null def)))
    (if (= 1 (logand 1 (cdr (assoc 70 def))))
      (progn
        (setq rec
          (entget
            (cdr
              (assoc 330
                (entget
                  (tblobjname "BLOCK" (setq nme (cdr (assoc 2 def))))
                )
              )
            )
          )
        )
        (while (setq ref (assoc 331 rec))
          (if
            (and
              (eq block (vla-get-effectivename (vlax-ename->vla-object (cdr ref))))
              (not (member nme lst))
            )
            (setq lst (cons nme lst))
          )
          (setq rec (cdr (member (assoc 331 rec) rec)))
        )
      )
    )
  )
  (reverse lst)
)
(defun LM:BlockList->Str ( lst del / f )
  ;; © Lee Mac 2011

  (defun f ( s ) (if (wcmatch s "`**") (strcat "`" s) s))
  
  (if (cdr lst)
    (strcat (f (car lst)) del (LM:BlockList->Str (cdr lst) del))
    (f (car lst))
  )
)

Пример

Код:

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

(ssget "_X"
  (list
    (cons 0 "INSERT")
    (cons 2 (LM:BlockList->Str (cons "BMP Plan PT" (AnonymousInstancesof "BMP Plan PT")) ","))
    (cons 410 (getvar "CTAB"))
  )
)

[Red Nova]

Пока не работает

Код:

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

 (defun test ()
  (if
    (ssget "_X"
  (list
    (cons 0 "INSERT")
    (cons 2 (LM:BlockList->Str (cons "BMP Plan PT" (AnonymousInstancesof "BMP Plan PT")) ","))
    (cons 410 (getvar "CTAB"))
  )
)
    (princ "hello")
    )
  )

Command: (test) ; error: ActiveX Server returned the error: unknown name: EffectiveName

_____________________
Добавил.
Нашел решение

Код:

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

 (defun test ( / js)
      (setq js (strcat "`**," "BMP Plan PT"))
       (if (ssget "x" (list (cons 0 "INSERT") (cons 2 js))) 	; selecting entire drawing
	     (princ "hello")
	      )
  (princ)
  )

_____________________
Потестил еще и снова добавил
Нет вру, так всегда возвращает T

[skkkk]

Red Nova, памятуя о твоей любви к динамическим блокам я должен был сразу догадаться, что он будет именно таким. У меня даже проскочила такая мысль, но в моменте отвлекли, а когда вернулся, она уже потерялась.
Тут во втором посте тоже есть код, вроде как раз тот, что тебе нужен. Но этот вариант, по-моему, ничем не лучше предложенного VVA, правда, я не проверял.
Offtop:

Сообщение от Кулик Алексей aka kpblc skkkk, если блок в блоке, то набор вернет nil

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

[VVA]

Сообщение от Red Nova error: ActiveX Server returned the error: unknown name: EffectiveName

Попробуй этот рецепт

Команда: (test) hello"hello"

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

Offtop:

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

Ну, ситуации бывают разные

[Red Nova]

skkkk
Спасибо , код по твоей ссылке помог

VVA
Спасибо, хотя предложенное лечение так и не помогло

Кулик Алексей aka kpblc
Уж прости что я иногда не умею правильно объяснять. Зато ты умеешь над такими как я измываться

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

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

[Prosto100]

Подскажите почему при вызове mleader через (command) подавляется встроенный текстовый редактор, а ввод текста происходит через командную строку?

[Сергей812]

Сообщение от Prosto100 Подскажите почему при вызове mleader через (command) подавляется встроенный текстовый редактор, а ввод текста происходит через командную строку?

пример вызова покажите - в каком режиме хоть запускаете?

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

Вообще-то я остерегся бы командными методами строить мультивыноски: http://autolisp.ru/2015/01/21/mleader_create_order/

[Prosto100]

Сообщение от Сергей812 пример вызова покажите - в каком режиме хоть запускаете?

Проблема в том что если вызывать _mleader через командную строку - то все ОК, и окно встроенного текстового редактора открывается, а если в той же командной строке ввести (command "_mleader"), то AutoCad предлагает ввести текст выноски через командную строку.

[Сергей812]

Prosto100, да, есть такое) А почему через тот же Lisp ActiveX не построить выноску?

[Prosto100]

Сообщение от Сергей812 Prosto100, да, есть такое) А почему через тот же Lisp ActiveX не построить выноску?

Все, разобрался - для активации редактора при использовании command(_.mtext) нужно предварительно ввести (initdia), а для mleader подходит (initcommandversion)!