[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

_____________________________________________________________________________________________________________

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

[La Persona]

Сообщение от AlexSheep AttachmentPoint - не координата, а способ выравнивания текста относительно координаты вставки (InsertionPoint)

Хм. Все становится сложнее...

[AlexSheep]

Сообщение от La Persona Хм. Все становится сложнее...

Хм. Почему? :-)
Какая цель-то?

[ShaggyDoc]

а можно ли как-нибудь в этом лиспе сделать так, чтобы задание "направления копирования" и "участка копирования" производилось в одно действие?

Функцией getpoint от начальной точки pnt1. Запрос точки pnt2 наподобие "Направление и дистанция копирования". По углу от начальной до полученной точки (angle pnt1 pnt2) получите направление, а функцией (distance pnt1 pnt2) - расстояние.

[Никита Ремизов]

Сообщение от ShaggyDoc Функцией getpoint от начальной точки pnt1. Запрос точки pnt2

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

[_mikka]

Народ подскажите, как удалить колонку из таблицы автокад ?

[ShaggyDoc]

нельзя задать угол и расстояние с клавиатуры

Как это нельзя, когда у всех льзя? Именно так моделируется построение отрезков, только надо опциями и проверками дополнять.

Код:

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

 Command: (setq pt1 (getpoint "Первая точка: "))

Первая точка:
Указали мышкой и получили результат

Код:

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

 (2240.0 970.0 0.0)

Запрос второй точки

Код:

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

 Command: (setq pt2 (getpoint pt1 "Вторая точка"))

Вторая точка
Вводим с клавиатуры расстояние и смещение
@300<0
и получаем результат:

Код:

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

 (2540.0 970.0 0.0)

Вычисляем угол:

Код:

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

 (setq ang (angle pt1 pt2))

0.0
Вычисляем расстояние:

Код:

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

 (setq dist (distance pt1 pt2))

300.0
"надеюсь объяснил более или менее поянтно"

[Дима_]

Сообщение от _mikka Народ подскажите, как удалить колонку из таблицы автокад ?

(vla-deletecolumns vla_представление_таблицы номер_столбца количество ) - а вобще лучше изучить как пользоваться справкой.

[Никита Ремизов]

ShaggyDoc

Сообщение от ShaggyDoc Как это нельзя, когда у всех льзя? Именно так моделируется построение отрезков, только надо опциями и проверками дополнять.

это все конечно здорово то, что вы написали, но мне нужно не это. я не хочу дополнительно вводить @ и <. Это не облегчает работу с начальным вариантом лиспа. Когда используется getpoint вводятся просто две отдельные точки, а хотелось бы иметь вот такую картинку: (см. приложение).
И чтобы между окошками ввода расстояния и угла можно было бы переключаться табом.
Кроме того в варианте с getpoint не воспользуешься привязками отслеживания.

[Frigate]

Подскажите, пожалуйста, есть ли где наработки по программной замене определения ДИНблока (не вставки, а именно определения) другим определением. Имена блоков одинаковые. Они определены в разных файлах. Такое делает дизайнцентр (Ctrl+2), но хотелось бы иметь возможность программно все делать. Что упрощает алгоритм - библиотечный файл с образцовым вариантом блока известен (как и его местоположение).
А замена вставок блоков вроде рассматривалась на форуме. Надеюсь, найду.

[Дима_]

То Frigate - а дин. блоки с параметром видимости в Вашем варианте не подходят?

[Frigate]

Дима_,

можно и на "ты" )))

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

Это нужно, когда хочешь использовать старые наработки, но динблоки уже "усовершенствованы". Каждый раз переопределять через Дизайн-центр - это не выход.

[pavelgeorgievich]

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

[ciril]

Для начала вот так:

Код:

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

 (defun c:layoutcreate  (/ x00 x01 x02 x03 x04 x05 x06 x07)
  (setvar 'ctab "Model")
  (while (not (and (setq x00 (getpoint "\nУкажите первый угол рамки..."))
                   (setq x01 (getcorner x00 "\nУкажите второй угол рамки или <отменить>..."))))
    (princ "\nПовторите..."))
  (setq x02 (getfiled "\nВыбор файла с шаблонами листов"
                      (vl-registry-read
                        (strcat (setq x02 (strcat (setq x02 (strcat "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R" (substr (getvar 'acadver) 1 4)))
                                                  "\\"
                                                  (vl-registry-read x02 "CurVer")
                                                  "\\Profiles"))
                                "\\"
                                (vl-registry-read x02)
                                "\\General")
                        "TemplatePath")
                      "dwt"
                      16))
  (vl-load-com)
  (and (vl-catch-all-error-p
         (setq x03 (vl-catch-all-apply
                     'vla-open
                     (list (setq x04 (vla-getinterfaceobject
                                       (vlax-get-acad-object)
                                       (strcat "ObjectDBX.AxDbDocument."
                                               (if (>= (setq x04 (substr (getvar 'acadver) 1 2)) "16")
                                                 x04
                                                 ""))))
                           x02))))
       (vl-catch-all-error-message x03))
  (setq x02 ""
        x03 (vla-item (vla-get-dictionaries x04) "ACAD_LAYOUT")
        x05 (list)
        x06 -1)
  (repeat (length
            (setq x05 (cdr
                        (reverse
                          (while (not (vl-catch-all-error-p (setq x07 (vl-catch-all-apply 'vla-item (list x03 (setq x06 (1+ x06)))))))
                            (setq x05 (append x05 (list (vla-get-name x07)))))))))
    (setq x02 (strcat x02 (car x05) " ")
          x05 (cdr x05)))
  (initget 1 x02)
  (setq x05 (getkword (strcat "\nШаблоны листов: " x02 "\nВведите имя шаблона листа для вставки: ")))
  (while (or (zerop (setq x06 (1- x06)))
             (not (eq x05 (vla-get-name (setq x07 (vla-item x03 x06)))))))
  (and (vl-catch-all-error-p
         (setq x03 (vl-catch-all-apply
                     'vla-copyfrom
                     (list (setq x02 (vla-add (vla-get-layouts (vla-get-activedocument (vla-get-application (vlax-get-acad-object))))
                                              x05))
                           x07))))
       (vl-catch-all-error-message x03))
  (vlax-release-object x04)
  (vla-getpapersize x02 'x03 'x04)
  (gc)
  (setvar 'ctab x05)
  (setview (list (cons 0 "VIEW")
                 (cons 2 "calc")
                 (cons 70 0)
                 (list 10 (/ x04 2) (/ x03 2))
                 (cons 40 x04)
                 (cons 41 100.0)
                 (list 11 0.0 0.0 1.0)
                 (list 12 0.0 0.0 0.0)
                 (cons 42 1.0)
                 (cons 43 0.0)
                 (cons 44 0.0)
                 (cons 50 0.0)
                 (cons 71 0)
                 (cons 72 1)
                 (list 110 0.0 0.0 0.0)
                 (list 111 1.0 0.0 0.0)
                 (list 112 0.0 1.0 0.0)
                 (cons 79 0)
                 (cons 146 0.0))
           0)
  (princ))

Совершенно непонятно, что нужно с масштабами, иначе говоря, что куда вписывается. И не очень понятно, что в шаблоне: только установки печати или еще какие-то примитивы.

[ashas-]

Здравия всем!
У меня следующий вопрос, где можно взять, узнать, вытащить, координаты последних точек??? Всю справку перелопатил... Например когда делаешь какой нибудь выбор объекта с помощью команды select, как после ее окончания достать координату точки того места куда ты тыкнул курсором? Конечная цель получить переменную с координатами. Единственный известный мне способ это с помощью стрелочек... Но где это храниться? (((
Заранее всех БлагоДарю.

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

(getvar "lastpoint") катит?

[aso3]

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

[pavelgeorgievich]

Сообщение от ciril Совершенно непонятно, что нужно с масштабами, иначе говоря, что куда вписывается. И не очень понятно, что в шаблоне: только установки печати или еще какие-то примитивы.

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

[ashas-]

Благодарю ). Катит.
Теперь бы любопытство свое успокоить, было бы вообще шикарно ... Когда выбираешь команду "отрезок" она предлогает указать первую точку, если в место этого нажимать стрелку вверх (на клавиатуре) то автокад дает несколько последних координат. Эти координаты можно где нибудь достать? Где они хранятся ? (((

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

aso3, оно?

Код:

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

(defun c:пг (/ *error* sysvar)

  (defun *error* (msg)
    (if sysvar
      (setvar "cecolor" sysvar)
      ) ;_ end of if
    (princ msg)
    (princ)
    ) ;_ end of defun

  (setq sysvar (getvar "cecolor"))
  (setvar "cecolor" "1")
  (while (vl-cmdf "._xline" "_h" pause))
  (if sysvar
    (setvar "cecolor" sysvar)
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[ciril]

Сообщение от pavelgeorgievich по масштабам: необходимо, чтобы выделенная область появлялась в созданном ВЭ с масштабом, которыы мы задаем в шаблоне лист с заданными параметрами печати. из примитивов если только рамка с основной надписью (которые уже храняться в шаблоне)

Масштабы целочисленные? Проверка на превышения размеров ВЭ при заданном масштабе на выбранном шаблоне листа нужна? Примитивы с листа шаблона клонировать все или выборочно? На каком слое создавать ВЭ?