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

Сообщение от Сергей812 Ну что-то типа этого

Это имеете в виду?

(command "_insert" "Vyn" po 1 1 0 bl_name V)
"_insert" – стандартная команда Автокад вставки блока;
"Vyn" – имя вставляемого блока;
(Если папка, в которой находится блок не прописана вспомогательных путях Автокад,
в качестве имя нужно указать полный путь к файлу “D:\MyLisp\Vyn.dwg”)
рo – базовая точка вставки блока;
1 – масштабный коэффициент по оси X;
1 – масштабный коэффициент по оси Y;
0 – угол поворота блока в радианах;
bl_name – значение верхнего атрибута;
V – значение нижнего атрибута;

Вот только вместо установки атрибутов при данном варианте вылазит окно редактирования атрибутов.

[Vladimir_Sergeevich]

может поможет _-insert?
хотя у меня окно вылетает только при вставке с палитры, а с инсерта в текстовом режиме. может какие то настройки системы влияют?

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

attreq в 0 - и используй командные методы
Или entmake / entmakex / ActiveX, ему фиолетово на эти переменные

[Сергей812]

Сообщение от mkung Это имеете в виду? Вот только вместо установки атрибутов при данном варианте вылазит окно редактирования атрибутов.

Ну, например, вот так

Код:

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

 (defun c:InsertMyBlock( / acad_object active_document model_space bl_Vs po atr1 atr2)
(vl-load-com)
; Получаем доступ к пространству модели
(setq acad_object (vlax-get-acad-object))                   
(setq active_document (vla-get-activedocument acad_object)) 
(setq model_space (vla-get-modelspace active_document)) 
;Вставляем блок с пустыми атрибутами
(setq po (getpoint "Точка вставки блока:"))
(setq bl_Vs (vla-insertblock model_space (vlax-3d-point po) "324532" 1.0 1.0 1.0 0))
; Получаем атрибуты вставленного блока
(setq atr1 (car(vlax-safearray->list(vlax-variant-value(vla-getattributes bl_Vs)))))     
(setq atr2 (car(cdr(vlax-safearray->list(vlax-variant-value(vla-getattributes bl_Vs))))))
;Изменяем значение атрибутов
(vlax-put-property atr1 'TextString "Value1")
(vlax-put-property atr2 'TextString "Value2")
)

где: "324532" - имя вставляемого блока с двумя атрибутами (к примеру)
"Value1" и "Value2" - значения атрибутов

[mkung]

Сообщение от Кулик Алексей aka kpblc attreq в 0 - и используй командные методы Или entmake / entmakex / ActiveX, ему фиолетово на эти переменные

Спасибо, но за окна отвечает ATTDIA (помогло).

----- добавлено через ~2 мин. -----

Сообщение от Сергей812 Ну, например, вот так Код: [Выделить все] (defun c:InsertMyBlock( / acad_object active_document model_space bl_Vs po atr1 atr2) (vl-load-com) ; Получаем доступ к пространству модели (setq acad_object (vlax-get-acad-object)) (setq active_document (vla-get-activedocument acad_object)) (setq model_space (vla-get-modelspace active_document)) ;Вставляем блок с пустыми атрибутами (setq po (getpoint "Точка вставки блока:")) (setq bl_Vs (vla-insertblock model_space (vlax-3d-point po) "324532" 1.0 1.0 1.0 0)) ; Получаем атрибуты вставленного блока (setq atr1 (car(vlax-safearray->list(vlax-variant-value(vla-getattributes bl_Vs))))) (setq atr2 (car(cdr(vlax-safearray->list(vlax-variant-value(vla-getattributes bl_Vs)))))) ;Изменяем значение атрибутов (vlax-put-property atr1 'TextString "Value1") (vlax-put-property atr2 'TextString "Value2") ) где: "324532" - имя вставляемого блока с двумя атрибутами (к примеру) "Value1" и "Value2" - значения атрибутов

Спасибо. Уже сделал командными методами, но этот вариант мне о-о-чень интересен!

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

mkung, attdia - за окно, а attreq - за запрос значений атрибутов.

[Konstruktiv54]

Вопрос к спецам по лиспу, как думаете...интересно просто в плане реализации (возможно/невозможно):

есть параметрический объект СПДС Графикса...арматурный стержень...фактически - отрезок, обладающий доп свойствами. Хотелось бы его удлинять и обрезать, но понятно что стандартные команды Автокада этого не делают. Возможно ли решить проблему с помощью лиспа?
Растягивание же работает...

[Сергей812]

Сообщение от Konstruktiv54 параметрический объект СПДС Графикса

это прокси объект, скорее всего. Lisp с ними не работает

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

Если СПДС GraphiCS установлена и загружена, то этот объект перестает быть прокси. Некоторые его свойства можно будет менять (ну или по крайней мере пытаться). Правда, для этого понадобится читать массу документации

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Если СПДС GraphiCS установлена и загружена, то этот объект перестает быть прокси

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

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

Не преобразовывает, это точно. Но "закрытые" свойства становятся доступными )

[Vladimir_Sergeevich]

Подскажите пожалуйста, как проще добраться до точки центра и радиуса дугового сегмента полилинии lwpolyline: через dxf (есть там свойство 42 bulge и что он показывает я не очень понял) или activX (к чему я больше склоняюсь)?
Для activeX скорее всего надо копать в сторону vlax-curve-getSecondDeriv. только вот есть ли вторая производная у круга? что то я слабоват в математике стал...

[skkkk]

Сообщение от Vladimir_Sergeevich ...есть там свойство 42 bulge и что он показывает я не очень понял...

О том, что такое bulge, неплохо написано здесь, например.

Сообщение от Vladimir_Sergeevich ...как проще добраться до точки центра и радиуса дугового сегмента полилинии...

Лисп. Полилиния

[Alexll]

Научите как из AutoLisp работать с базой данных.
Сам не программист, в AutoLisp то же новичок. Хотел написать программку облегчающую жизнь, данные сбрасывал в текстовый файл. Но очень уж неудобно работать с текстовым файл.
Просмотрел команды AutoLispa и не увидел в нем специальных команд для работы с базами данных. Подскажите с какими базами проще работать SQL, Excel? И если можно то ссылки или примеры. Спасибо.

[Сергей812]

Вы польстили Excel - он не разу БД не был)

А в целом-какая задача, в каком виде вводятся данные и выводятся. Кстати, текстовой документ с регулярной структурой можно легко импортировать в тот же эксель. И вы хоть что-то написали, или все закончилось на уровне хотелок?)

[Alexll]

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

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

[Сергей812]

хм.. а поля чем не угодили?)

[Alexll]

Какие поля? наверно я просто об этом ничего не знаю...

[Сергей812]

В костроке autocad наберите _field.

----- добавлено через ~8 мин. -----
Если нужно оформление одинаковое оформление - то подшивка и настроенные листы, например. Если нужно сразу во многих местах чертежа иметь одинаковые значения - то дублирующиеся значения в виде полей, ссылающихся на то же пользовательское свойство чертежа. Не надо считать-что только лисп и программирование в целом является панацеей от всего.

[Alexll]

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