[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

_____________________________________________________________________________________________________________

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

[mkung]

Сообщение от Кулик Алексей aka kpblc mkung, а чем не нравится (setvar "ctab")?

Ну, мне кажется это немного не то...
Вот получил я наконец-то активный вьюпорт на листе:

Код:

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

 (vla-get-ActivePViewport (vla-get-ActiveDocument (vlax-get-acad-object)))

Теперь пытаюсь понять - как переключать на нем пространства...
ActiveSpace к нему не применяется видимо.
Хочется сделать как-то поаккуратнее, поскольку командный вариант:

Код:

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

 (vl-cmdf "_.PSPACE")
(setq nvyn (getpoint "\nУкажите начало выноски:"))

Приводит вот к такой ошибке:
Команда: Выберите дугу:_PSPACE
Команда:
Укажите начало выноски:
Повторный вход в LISP невозможен.
Неверная точка.
Укажите начало выноски:

[Vladimir_Sergeevich]

получил !BLKDEF
#<VLA-OBJECT IAcadBlock 21b35494>
далее (vla-GetAttributes BlkDef)
; ошибка: ActiveX Server возвратил ошибку: неизвестное имя: GetAttributes
...
что то не понял, как добраться до описания отрибута внутри описания блока?
одна из мыслей: описание блока - это коллекция примитивов, поэтому надо vlax-for item?
...
где то в строках 12-18 пишет ; ошибка: слишком мало аргументов
не могу понять где. хотя понял (wcmatch (strcase (vla-get-objectname ent) "*ATTR*"))
такогй функции не знал - закоментил - заработало

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

Ну правильно, писал без проверок (не успевал). Вот более верный вариант:

Код:

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

 (defun tt (/ blkref blkdef)
 (if (and (setq blkref (car (entsel "Выбери блок:")))
          (setq
            blkdef (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                             (if (vlax-property-available-p (setq blkref (vlax-ename->vla-object blkref)) 'effectivename)
                               (vla-get-effectivename blkref)
                               (vla-get-name blkref)
                               ) ;_ end of if
                             ) ;_ end of vla-item
            ) ;_ end of setq
          ) ;_ end of and
   (vlax-for ent blkdef
     (if (and (wcmatch (strcase (vla-get-objectname ent)) "*ATTR*")
              (vlax-property-available-p ent 'scalefactor)
              ) ;_ end of and
       (vla-put-scalefactor ent 0.75)
       ) ;_ end of if
     ) ;_ end of vlax-for
   ) ;_ end of if
 ) ;_ end of defun

[Vladimir_Sergeevich]

ага, лишняя скобка потерялась
только в таком виде мне все равно не надо, у меня в файле надо было обработсть под 2 стони блоков, что благополучно и сделал.
Спасибо за помощь

[mkung]

Добрый день.

Пытаюсь посчитать количество вьюпортов на активном листе. Написал:

Код:

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

 (setq name_lay (vla-get-name (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))) 
(setq xx (strcat "\"" name_lay "\""))
(setq nabor_vp (ssget "_x" '((0 . "VIEWPORT") (67 . 1) (cons 410 xx))))
(princ (sslength nabor_vp))

Получаю в ответ: ; ошибка: неверный список SSGET
Пробовал разные варианты: со скобками и без, подставлять переменную, предварительно созданную CONS - ничего не помогает.
Если подставить тупо (410 . "Первый лист") - то все нормально.
В чем тут дело?

И второй вопрос.
У меня на одном листе 2 экрана, на втором еще 3.
Если моя программка отрабатывает, то длину набора выбора пишет для первого листа 3, а для всего чертежа 8.
Чего туда еще добавляется?
Ну и, может быть, как получить именно количество вьюпортов?

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

(ssget "_x" (list '(0 . "VIEWPORT") '(67 . 1) (cons 410 xx)))

[mkung]

Сообщение от Кулик Алексей aka kpblc (ssget "_x" (list '(0 . "VIEWPORT") '(67 . 1) (cons 410 xx)))

Спасибо. Тупо, но апостроф в исходнике не заметил... Очки пора носить.

А чего еще в набор кроме самих вьюпортов попадает не подскажешь?
А то для меня пока потрошить наборы непросто...

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

При таких условиях, как в коде, только VIEWPORT и попадут.

[mkung]

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

Повторюсь.
У меня на одном листе 2 экрана, на втором еще 3.
Если моя программка отрабатывает, то длину набора выбора пишет для первого листа 3, для второго 4, а для всего чертежа (без имени листа) 8.
Получаю из набора по условию в коде (через sslength)

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

Если хочешь получить все ВЭ - убери группу 410. См.DXF Reference

[mkung]

Сообщение от Кулик Алексей aka kpblc Если хочешь получить все ВЭ - убери группу 410. См.DXF Reference

Алексей, под (без имени листа) я и имел в виду без условия по коду 410.
Но при подсчете по программе для одного листа получаемое значение на 1 больше реального количества ВЭ, а для всего чертежа - на 3.
На листе без ВЭ показывает 1.

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

Насколько я помню, один "виртуальный" ВЭ создается при активации пространства. Но не уверен - надо в справке копаться, а у меня сейчас нет времени

[Wolkodaw]

Сообщение от Кулик Алексей aka kpblc Wolkodaw, пять минут: http://forum.dwg.ru/showthread.php?t=20823

Спасибо! Несколько дней копаюсь с этими кодами (код kakt00z в предыдущем посте не понял как работает), а по ссылке код

(setq object_block (vlax-ename->vla-object (car (entsel))))
(setq object_block (vlax-safearray->list (vlax-variant-value (vla-GetDynamicBlockProperties object_block))))
(setq temp (vlax-variant-value (vla-get-value (nth 0 object_block))))

разобрал полностью, и по моей логике если последнюю строчку изменить на:

(vla-put-value (nth 0 object_block) 2000)

динамический блок должен стать не 1000 как исходный, а 2000 мм. Но он не становится таким. Выдает ошибку ; ошибка: Ошибка Automation. Неверный ввод.

Что я неправильно понимаю в изменении свойства?

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

Скорее всего, первый параметр не может принимать значение 2000. И посмотри http://www.caduser.ru/forum/index.ph...D=44&TID=36703 (сейчас перекину те коды на autolisp.ru - поскольку на caduser.ru уже черт-те сколько не появляюсь).
---
Перекинул: http://autolisp.ru/2014/06/27/dynblocks-parameters/

[Wolkodaw]

Сообщение от Кулик Алексей aka kpblc Скорее всего, первый параметр не может принимать значение 2000. И посмотри http://www.caduser.ru/forum/index.ph...D=44&TID=36703 (сейчас перекину те коды на autolisp.ru - поскольку на caduser.ru уже черт-те сколько не появляюсь). --- Перекинул: http://autolisp.ru/2014/06/27/dynblocks-parameters/

а пример использования можно? Как запустить в командой строке, какие аргументы в каком виде ввести...

[mkung]

Добрый день.
При печати из модели по умолчанию Автокад устанавливает масштаб печати "Вписать".
Есть пользователи, которые печатают "не глядя" (благо просмотр удобоваримый).
Можно ли программно установить скажем 1:100? Чтобы отметка "Вписать" была уже осознанным действием.
Заранее благодарен.

[kha]

Добрый день!

Подскажите, пожалуйста, как получить путь к папке из которой был запущен лисп?

Допустим, есть лисп D:\LISP\Lisp.lsp

Мне нужно, чтобы после запуска лиспа он смог определить своё местоположение. На выходе нужно "D:\LISP"

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

Сообщение от kha Подскажите, пожалуйста, как получить путь к папке из которой был запущен лисп?

Средствами lisp'a - нереально. Александр Ривилис когда-то писал приложение GetLispInfo, но оно было для бог знает какого ACAD'a, и потом не развивалось (уточню: приложение писалось по моей просьбе; но потом надобность в нем отпала. Я и не стал Александра попусту терроризировать).

[skkkk]

Код:

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

(setq path (findfile "Lisp.lsp"))

и далее с помощью функций обработки строк приводить к нужному виду. Не то?

[Дима_]

Крайне сложно - в теории лисп вобще не факт что откуда-то загружен (он может быть сгененирован другим лиспом). Самим лиспом никак (если только сделать специальный лисп который будет следить за системой). Поищи - уже обсуждалось.
з.ы. - ух уже понаписали...