[Baires]

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

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

Ага, возможно. Например, так:

Код:

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

(vl-load-com)

(defun c:area-to-clip (/ ent fun_copytoclipboard)

  (defun fun_copytoclipboard (text / htmlfile result)
    ;; http://forum.dwg.ru/showpost.php?p=146664&postcount=75
    (setq result
           (vlax-invoke
             (vlax-get
               (vlax-get
                 (setq htmlfile (vlax-create-object "htmlfile"))
                 'parentwindow
                 ) ;_ end of vlax-get
               'clipboarddata
               ) ;_ end of vlax-get
             'setdata
             "Text"
             text
             ) ;_ end of vlax-invoke
          ) ;_ end of setq

    (vlax-release-object htmlfile)
    result
    ) ;_ end of defun

  (if (= (type (setq ent (vl-catch-all-apply
                           (function
                             (lambda ()
                               (ssname (ssget "_:S" '((0 . "LWPOLYLINE,REGION"))) 0)
                               ) ;_ end of lambda
                             ) ;_ end of function
                           ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'ename
         ) ;_ end of =
    (fun_copytoclipboard (rtos (vla-get-area (vlax-ename->vla-object ent)) 2))
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Baires]

Сообщение от Кулик Алексей aka kpblc Ага, возможно. Например, так:

.....

Предыдущий вопрос снят - на форуме нашёл инструкцию как запустить этот лисп, огромное спасибо!

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

Так оно работает как должно? Может, все же проще будет, например, в какой-то сторонний текстовый файл результаты писать? Ну или сразу поле в dwg делать