[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

_____________________________________________________________________________________________________________

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

[Michael!]

Спасибо всем!
сделал так:

Код:

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

 (setq obj (vlax-ename->vla-object (entlast)))
(vla-GetBoundingBox obj 'minpoint 'maxpoint)
(setq minb(vlax-safearray->list minpoint))
(setq maxb(vlax-safearray->list maxpoint))

работает

[gomer]

Если

Сообщение от Michael! он создается копированием

через ActiveX, то первая строка не нужна

[Michael!]

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

Код:

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

 
(command "saveas" "dxf" "objects" "w" pause pause pause "version" ver "16" filename)

(тут version и filename переменные)
но как то неправильно тут, потому прога не ждет пока я закончу с выделениями и нажму enter или правую кнопку, а сразу переходит на шаг вперед, в результате неправильное выполнение команды.
подскажите, как написать чтобы программа ожидала окончания работ по выделению или снятия выделения с примитивов.
спасибо!

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

(setq ss (ssget))
(command "_.-saveas" "dxf" "_objects" ss "" "version" ver "16" filename)

Наверное, так...

[Michael!]

спасибо! то что нужно.

[Vladimir_Sergeevich]

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

"<p align=\"center\" style=\" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;\"><span style=\" font-family:'Arial'; font-size:10pt; color:#000000;\">176,98</span></p></td>"

вытащить число 176,98?
Опыта пока нет, мозг пасует...

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

Как вариант - преобразовать строку в список по разделите span и вытащить второй элемент.
Пишу с телефона, так что кода не будет

[Дима_]

Как html получили? Быть может применить методы "долиспового" распознавания, ведь совсем не факт, что форматирование "там" никогда не изменится.
Там </td> виднеется - я б через таблицы пошел.

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

Судя по стилю html-кода, он сформирован автоматически чем-нибудь типа MS Word. Или FrontPage. Так что "долисповое" распознавание вряд ли сработает

[Дима_]

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

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

Дима_, да в Word'e просто наколотили текст, а потом страницу сохранили как html... Тоже вариант (с)

[Дима_]

Если так - то для чего это сделано (может - чтоб лиспом можно было вытащить - бывают и такие "деятели" встречаются). Разбирать из-за вылавливания пары чисел весь синтаксис HTML автолиспом я бы точно не стал (а не разбирая ВЕСЬ гарантий никаких не будет). Вариантов масса - обратится к первоисточнику (если это действительно Word), WebBrowser.Document.All... выбираем нужную табличку (пусть даже многократновложенную)... нужную ячейку...OuterText(или как он там - суть понятна) - короче вариантов масса.

[gomer]

Сообщение от Vladimir_Sergeevich Подскажите пожалуйста, можно ли из такого бреда:

Ctrl+A
Ctrl+C
Ctrl+V
Ctrl+S

[Vladimir_Sergeevich]

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

[Дима_]

Твоя ведомость "на ура" открывается excel'ем - а уж как из него вытщить данные страниц 500 на форуме.
p.s. Offtop: По просьбе из лички

Код:

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

 (vl-load-com)
(defun html-export(path)
  ((lambda (excel)
     (vlax-invoke-method (vlax-get-property excel 'Workbooks) 'Open path)
     ((lambda (ret)
        (vlax-invoke-method excel 'Quit)
        ret)
      (mapcar '(lambda (row) (mapcar 'vlax-variant-value row))
              (vlax-safearray->list
               (vlax-variant-value
                (vlax-get-property
                 (vlax-get-property
                  (vlax-get-property
                   (vlax-get-property excel 'Worksheets) 'Item 1) 'UsedRange) 'Value))))))
   (vlax-create-object "excel.application")))

пример запуска

Код:

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

 ((lambda (path) (if path (html-export path)))
  (getfiled "Выберите файл" "" "html" 0))

Функция не конечная (не для юзера) - никаких проверок на наличие файла и пр - нет (сам делай).

[Michael!]

доброго времени суток!
образовался такой вопрос: как присвоить значение имеющееся в данный момент в буфере обмена виндовс (например "тест109") переменной в лиспе?
спасибо!

[VVA]

>Michael!
Воспользоваться поиском по сочетанию "буфер обмена"

[Дима_]

"Прямого" метода доступа к буферу обмена в автолиспе нет, есть команды для вставки в рисунок содержимого буфера (не обязательно текста) - то есть можно попробывать что-то вроде:

Код:

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

 (defun get-text-clipboard ()
  ((lambda (ent-last)
     (command "_.pasteclip" '(0 0))
     (if (not (equal ent-last (entlast)))
         ((lambda (text)
            (entdel (entlast))
            text)
          (cdr (assoc 1 (entget (entlast)))))))
   (entlast)))

но, метод этот скажем прямо - только если от безисходности, как вариант погуглить (а они 100% были) специальные COM dll'ки для работы с буфером обмена и использовать их через vla, ну или загружать net сборку:

Код:

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

module Clipboard.Clip
  open System.Windows.Forms
  open Autodesk.AutoCAD.DatabaseServices
  open Autodesk.AutoCAD.Runtime
  [<LispFunction("GetTextClipboard")>]
  let Test (x:ResultBuffer) =
      TypedValue(5005,Clipboard.GetText())

это F# - могу скомпилировать только под 2010 (другого сейчас нет - как скомпилировать самому - без труда найдешь в сети) - после загрузки появиться lisp команда (GetTextClipboard) возвращающая текстовое содержимое буфера обмена (или "" - если пусто).

как присвоить значение имеющееся в данный момент в буфере обмена виндовс (например "тест109") переменной в лиспе?

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

[VVA]

Сообщение от Дима_ после загрузки появиться lisp команда (GetTextClipboard) возвращающая текстовое содержимое буфера обмена (или "" - если пусто)

Можно и без F# До текста в буфере обмена можно добраться с помощь объекта InternetExplorer.Application (хуже) и htmlfile (предпочтительнее)

[Дима_]

Сообщение от VVA InternetExplorer.Application (хуже) и htmlfile (предпочтительнее)

то VVA - Да сам я этот Net (в разрезе автокада) недолюбливаю, но иногда "приходиться", ежели у Вас есть набор ссылок на "интересные" COM'ы (которые и так предустановленны "на каждом" компьютере) - сбростье мне (можно сюда), а то иной раз не хочется ни к чему "дополнительному" привязываться, да и на лиспе "городить" типа кода из предыдущего поста.