[SpillOver]

Здравствуйте, уважаемые форумчане!
Пытаюсь изучить ЛИСП, но не знаю с какого бока подобраться((
Помогите пожалуйста на конкретном примере,что б можно было разобрать все по полочкам

Есть конкретная задача:

-нужна программа на ЛИСП , генерирующая блоки
в виде
пожарного извещателя (прямоугольник 5х5 цвет контура - red, заливка -цвета 255,255,255, спец. символом внутри-"значок молнии");
в виде
ручного извещателя(по тому же принципу);

-чтобы выводилось диалоговое окно, в котором можно сделать выбор конкретного блока из списка, и затем вставить в пространство модели или листа;

-возможность указать точку вставки;

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

-возможность выбирать или не выбирать заливку блока цветом 255,255,255.

Это необходимо для того, чтобы не заниматься импортом готовых блоков(часто не работают настройки внутри блока на чужих компах), а генерировать их в любом имеющемся под рукой AutoCADе при помощи ЛИСП.

[Nike]

SpillOver
Вы часто меняете компы?
Не надо ничего генерировать, используйте готовые блоки, сделайте свою базу блоков и менюху с кнопками с командами вставки (как делается и по компам таскается - вопрос со всех сторон тыщу раз обсосанный, покопайтесь в форуме и я пороюсь, дам ссылку или свою менюху)
И вот эту штучку посмотри : "Сырая" прога для проектировщиков пожарной сигнализации. Размещение пожарных извещателей (дымовых)."

[SpillOver]

Не слишком часто...это верно
Но мои настройки в блоках(перетаскивание, зеркальное отражение и проч. не на всех компах работает)
Nike за ссылку спасибо, обязательно гляну
А можно взглянуть на менюху?очень хотелось бы своять, что-то подобное

[Nike]

давай мыло, скину, только попозже
И ты свои блоки покажи - я думаю некорректно делаешь

вот, например, такая менюха, графическая изи слайдов - http://dwg.ru/dnl/195 (спасибо, кстати, её автору - уважаемому земляку KSI), когда-то в ней что-то корректировал не менее уважаемый Profan - масштаб вставки добавлал, что-ли, не помню..

Можно ее попроще - панелями с кнопками оформить.
Большего и не нужно.

а, можно и еще проще, без всяких менюшек - с командной строки, например вставка дымового - команда "ДИП", теплового - "ИП" и т.п.

Вобщем, изучай Автокад, Автолисп - это офигенные вещи для увлечения с пользой для работы.

[SpillOver]

Мыло кинул в личку...
Примеры блоков отправлю на почту (NIKE нужно мыло )
Как выложить на форуме не знаю...подскажите плиз

[Supermax]

Скачал я 3D DWG архив фирмы Tour & Andersson (ТА) где-то около 300 файлов. Там 3D-солидами запорная арматура сделана. Хочу превратить их в динамические блоки со свойствами и атрибутами. Сделать так сказать "виртуальные изделия".
Каждый файл именуется 58940120.dwg, цифры - код изделия, и в PDF-е есть таблицы с этими кодами и свойствами этих изделий.
Я все эти таблицы перегоню в Exel и хочу написать программу, которая автоматом мне все конвертнет.

Так что пожелание создавать блоки и атрибуты туда тулить - весьма актуальная проблема. Только надо и динамические параметры тоже программно создавать.

[SpillOver]

В том то все и дело, что есть огромное желание создавать динамические блоки программно на ЛИСП, для большей гибкости

[zamtmn]

>>Это необходимо для того, чтобы не заниматься импортом готовых блоков
...
>>В том то все и дело, что есть огромное желание создавать динамические блоки программно на ЛИСП
Ты хочешь делать определение блока лиспом? Блоки на то и блоки чтоб создавать их без програмирования.

[Nike]

Сообщение от SpillOver Как выложить на форуме не знаю...подскажите плиз

В окне ответа в расширенном режиме есть возможность вкладывать файлы, ищи кнопку "Управление вложениями"
с подсказкой "Вложить файлы Разрешённые типы файлов: djvu doc dvb dwg flv gif jpeg jpg lsp pdf png rar tif tiff zip"

В том то все и дело, что есть огромное желание создавать динамические блоки программно на ЛИСП, для большей гибкости

По-моему, ты этим только усложнишь себе жизнь
Одно дело - динамический блок 3D-агрегата, другое - простейший условный значок датчика

[Supermax]

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

Первое - как создавать? Есть два варианта. Через команды и через функции Автолиспа.
Первый вариант подразумевает работу с функциями command или vl-cmdf. Практически, повторение действий пользователя. Но не всем это нравится.
Второй вариант с атрибутами прокатит, а с динамическими свойствами не уверен. Создавать я их программно научился, но вот в блок их вставить ПРАВИЛЬНО пока не получается.

Я буду в этом участвовать, если вместе со мной будут над этим думать еще какие-нибудь программисты.

[SpillOver]

Сообщение от NIKE И ты свои блоки покажи - я думаю некорректно делаешь

вот некоторые мои блоки на обозрение(во вложениях)...
насколько они корректно или некорректно выполнены

И еще вопрос такой ко всем уважаемым и поддержавшим разговор:

Можно ли в AutoCAD просмотреть файл-history последних действий пользователя( возможно на ЛИСП )или перечень команд выполненных тем же пользователем(естественно для того чтобы воссоздать всю картину происходящего в пространстве модели и/или листа и применить в своей программе)?
Скажем, я начертил прямоугольник с заливкой и хочу этот процесс возобновить,при этом даже ни разу не коснувшись средств рисования.
Где и что мне смотреть в этом случае?

[Nike]

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

Лови в почте мою методу.

По второму вопросу лучше создать новую тему, такую фигню на форуме обсуждать любят . Есть в последних версиях Автокада что-то типа записи последовательности действия в сценарий, типа макросов в MS Office, я правда не пробовал, ничего сказать не могу.

[Sleekka]

Можно ли в AutoCAD просмотреть файл-history последних действий пользователя( возможно на ЛИСП )или перечень команд выполненных тем же пользователем(естественно для того чтобы воссоздать всю картину происходящего в пространстве модели и/или листа и применить в своей программе)? Скажем, я начертил прямоугольник с заливкой и хочу этот процесс возобновить,при этом даже ни разу не коснувшись средств рисования. Где и что мне смотреть в этом случае?

Можно по F2. Но там многого не будет, в 2010 появилась возможность записывать макрос, но это не тот путь. ИМХО если уж владеете программированием лучше не трогать методы command а также не трогать, дин. блоки, там реактор на реакторе, во первых реализовано все криво, во-вторых ресурсоемко, в третьих динамизм 3д тел заложен в самом описании формата SAT. Там одну цифру меняешь и тело пошло редактироваться. Библиотек я вам не дам потому как нету, но я шел бы по этому пути.

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

Вот код создания (полностью программного) блока с одним атрибутом. Без динамики. Имя блока - dwgru-block.

Код:

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

(vl-load-com)

(defun test (/ *error* adoc blk_def name ent)

  (defun *error* (msg)
    (repeat 3 (vla-purgeall adoc))
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (vl-catch-all-error-p
        (vl-catch-all-apply
          (function
            (lambda ()
              (setq blk_def (vla-item (vla-get-blocks adoc)
                                      (setq name "dwgru-block")
                                      ) ;_ end of vla-item
                    ) ;_ end of setq
              ) ;_ end of lambda
            ) ;_ end of function
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of vl-catch-all-error-p
    (progn
      (setq blk_def (vla-add (vla-get-blocks adoc) (vlax-3d-point '(0. 0. 0.)) name))
      (vla-put-normal (vla-addcircle blk_def (vlax-3d-point '(0. 0. 0.)) 10.) (vlax-3d-point '(0. 0. 1.)))
      (vla-put-normal
        (setq ent (vla-addattribute
                    blk_def
                    2.5 ; height
                    acattributemodenormal ; mode
                    "Запрос" ; Prompt
                    (vlax-3d-point '(0. 0. 0.)) ; InsertionPoint
                    "tag" ; tag
                    "--" ; value
                    ) ;_ end of vla-AddAttribute
              ) ;_ end of setq
        (vlax-3d-point '(0. 0. 1.))
        ) ;_ end of vla-put-Normal
      (vla-put-alignment ent acalignmentmiddlecenter)
      (vla-put-textalignmentpoint ent (vlax-3d-point '(0. 0. 0.)))
      (vla-put-insertionpoint ent (vlax-3d-point '(0. 0. 0.)))
      (vlax-for ent blk_def
        (vla-put-color ent 0)
        (vla-put-lineweight ent aclnwtbyblock)
        (vla-put-linetype ent "ByBlock")
        ) ;_ end of vlax-for
      ) ;_ end of progn
    (alert "Такой блок уже есть!")

    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Вставка блока не выполняется.
ИМХО: создавать динамические блоки лучше все же не на лиспе, а на чем-нибудь типа .NET.

[zamtmn]

SpillOver
>>вот некоторые мои блоки на обозрение(во вложениях)...
как говорится каждый !"№;% как хочет, но Вы бы файл почистили перед выкладыванием, я думал там проект, а оказалось несколько блоков опсных в почти мегобайте трафика...

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

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

Sleekka
>>в третьих динамизм 3д тел заложен в самом описании формата SAT
при чем тут тела? и динамизма в описании формата SAT не больше чем описании DWG...

[SpillOver]

to Sleekka ИМХО если уж владеете программированием лучше не трогать методы command а также...

В том то все и дело, что не владею, пытаюсь влиться в сей процесс

to Кулик Алексей aka kpblc Вот код создания (полностью программного) блока с одним атрибутом. Без динамики. Имя блока - dwgru-block.

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

to zamtmn Не в том направлении думаете, нужно автоматизировать не повороты\отражения датчиков а построение схем и спецификаций.

А я в этом направлении вижу персппективы и как раз,напротив,готовлюсь автоматизировать построение кабельного журнала и таблицы шлейфов,но увы ЛИСП не знаю и хотел использовать только средства AutoCAD-и тут оказалось не все так просто...одними блоками с атрибутами и извлечениями последних в таблицы не обойтись...

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

Так там все просто как раз (правда, все сделано через ActiveX):
Сначала создается описание блока (это где (vla-add (vla-get-blocks...
Потом в описание блока добавляется окружность (vla-addcirce ...
Потом, туда же - атрибут (vla-addattribute) и настраивается для него выравнивание и точка вставки.
После этого - настраиваются все элементы блока (слой - "0"; тип, вес и цвет линии - ПоБлоку).
Вот и все...

[Nike]

Сообщение от SpillOver вот как бы еще разобраться в коде...можно для чайников немножечко комментариев

Это довольно сложный код для новичка, поверь. Начни с чего нибудь попроще Например с того, что я тебе выслал.
Могу материалов для изучения LISP подогнать - книжки, лекции, методички всякие..
Хотя я ничего из них толком не читал, просто читать вообще не люблю - занимаюсь разбором и заимствованием чужих кодов (kpblcятничаю иногда )

Сообщение от SpillOver вот как бы еще разобраться в коде...можно для чайников немножечко комментариев

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

[zamtmn]

Хоть ОПС по моему самый легко автоматизируемый раздел электротехнических проектов, но в голом автокаде его трудно автоматизировать. по одной причине - кабели эмулировать полилиниями и лиспом - геморой, вот был бы в автокаде примитив более пригодный для кабеля и кабельной трассы - небыло бы проблем. а так любая автоматизация сведется на нет возней с полилиниями в сложном проекте с разыетвленными трассами. Если делать чтото серъезное - лучше осваивать arx, на языке магистра Йоды законченая и удобная программа не получится.
Я ни с лиспом ни с arx не подружился и пошел своим путем.
во вложении видео проекта (от балды) на 2 шлейфа с генерацией схемы подключения извещателей (забыл ее крупно показать) и кабельным журналом

[SpillOver]

to Кулик Алексей aka kpblc Так там все просто как раз (правда, все сделано через ActiveX)...

Будем штурмовать потихоньку

to Nike Это довольно сложный код для новичка, поверь. Начни с чего нибудь попроще Например с того, что я тебе выслал.

Спасибо большущее тебе за такой подарочек...
Твои менюшки вообще полезнющая вещь- все здоровски сделано, молодец, какой просто.Мне понравилось
Единственное некоторые блоки(как например пожарный извещатель)вставляются с огромной точкой привязки(круг с крестиком посередине)...но это мелочь,но в целом ГУД!!!
ЛИСП я там еще не смотрел, попробую разобраться, может. что и получится!!!

to zamtmn Я ни с лиспом ни с arx не подружился и пошел своим путем. во вложении видео проекта (от балды) на 2 шлейфа с генерацией схемы подключения извещателей (забыл ее крупно показать) и кабельным журналом

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

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

Сообщение от SpillOver с огромной точкой привязки

Попробуй поиграться настройками отображения точки (команда _.ddptype, или системные переменные pdmode и pdsize).

[SpillOver]

to Кулик Алексей aka kpblc Попробуй поиграться настройками отображения точки (команда _.ddptype, или системные переменные pdmode и pdsize).

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

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

Сообщение от SpillOver подсказали

http://kpblc.blogspot.com/2010/01/blog-post.html

[SpillOver]

to Кулик Алексей aka kpblc Меня опять много

Почитал, забавно

to zamtmn Я ни с лиспом ни с arx не подружился и пошел своим путем. во вложении видео проекта (от балды) на 2 шлейфа с генерацией схемы подключения извещателей (забыл ее крупно показать) и кабельным журналом]

Посмотрел видео...а что это за прога, где это все происходит?!

[Nike]

Сообщение от SpillOver Спасибо большущее тебе за такой подарочек... Твои менюшки вообще полезнющая вещь- все здоровски сделано, молодец, какой просто.Мне понравилось Единственное некоторые блоки(как например пожарный извещатель)вставляются с огромной точкой привязки(круг с крестиком посередине)...но это мелочь,но в целом ГУД!!!

Да пожалуйста! Раз все так ГУД - то можно и в downloads выложить - только там код, если честно очень грязный что-ли, непричесанный и с недоработками - позорными тряпками закидают - обработка ошибок, локализация переменных не везде, еще там чего, чего и я не знаю, хотя это работе в целом не мешает.
Попробуй из командной строки набрать команды "rr", "cr", "mr", тыкай в блок и посмотри что будет.. Есть еще короткие быстрые функции редактирования, перемещения, задания размера текста атрибутов с командной строки, если интересно - поделюсь..

Точки, если где еще встретятся - из блоков можно удалить, они там не нужны - так, пережиток прошлого остался.. А про стиль отображения точек - kpblc уже подсказал - меню "Формат/Отображение точек"

[zamtmn]

SpillOver
программа самописная http://shamangrad.net/project.php?act=view&prj=zcad

[SpillOver]

to NIKE Попробуй из командной строки набрать команды "rr", "cr", "mr", тыкай в блок и посмотри что будет.. Есть еще короткие быстрые функции редактирования, перемещения, задания размера текста атрибутов с командной строки, если интересно - поделюсь..

Пощупал команды "rr", "cr", "mr", -великолепно!Шаманство просто
А что за такие "короткие быстрые функции "-можно в студию,плизе

[Nike]

Сообщение от SpillOver Шаманство просто

Шаманство - у zamtmn в Шаманграде, а у меня - так, баловство
Про атрибуты - функции в личку пришлю