[Вовочка]

Возможно ли автоматизировать загрузку результата команды "ДИСТ" в буфер обмена? Интересует именно растояние.

[Krieger]

Штатно в лиспе нет функций для работы с буфером обмена. Как то решал такую задачи при помощи функций из DOSlib. Т.е. программно вычисляем расстояние между двумя точками и загоняем результат в буфер через функцию "dos_clipboard". Взять можно здесь http://download.rhino3d.com/download.asp?id=doslib

лови прогу

Код:

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

(defun kr_distance (/ p1 dist)
  (dos_clipboard (setq dist (distance (setq p1 (getpoint "начало отрезка")) (getpoint p1 "\nокончание отрезка\n"))))
  (strcat "длина: " (rtos dist 2 2))
  )

[Вовочка]

Спасибо за помощь, но почему то пишет:
Команда: (kr_distance)
; ошибка: слишком мало аргументов

[Krieger]

Еще раз скопируй, я там пробел забыл.

[Вовочка]

Спасибо Огромное. Будете в Киеве, пишите - с меня пиво.

[Krieger]

Да не за что.

[VVA]

Сообщение от Krieger Штатно в лиспе нет функций для работы с буфером обмена. Как то решал такую задачи при помощи функций из DOSlib

Можно с помощью объекта "InternetExplorer.Application" и "htmlfile" (предпочтительнее)
Программирование > Копирование в буфер обмена

[Krieger]

Спасибо, попробую. Не хочется привязываться к doslib.

[Krieger]

Вариант без doslib, в буфер загоняет 12 знаков после запятой.

Код:

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

 (defun kr_distance (/ p1 p2 dist *error*)
  (defun *error* (msg)
    (setq p1 nil))
  (if (setq p1 (getpoint "Начало отрезка"))
    (if (setq p2 (getpoint p1 "\nОкончание отрезка\n"))
      (progn (copyToclipboard (rtos (setq dist (distance p1 p2)) 2 12))
	(strcat "Длина: " (rtos dist 2 4)))
      );if
    );if
  );defun


;  ! ***************************************************************************
;; !                           copyToclipboard
;; ! ***************************************************************************
;; ! Function : Copy text to clipboard
;; ! Argument : 'str'     - String
;; ! Returns  : nil
;; see http://www.theswamp.org/index.php?topic=21764.new
;; ! ****************************************************************************

(defun copyToclipboard ( text / htmlfile result)
 (setq result
        (vlax-invoke
            (vlax-get
                (vlax-get
                    (setq htmlfile (vlax-create-object "htmlfile"))
                   'ParentWindow
                )
               'ClipBoardData
            )
           'SetData
            "Text"
            text
        )
    )

    (vlax-release-object htmlfile)
    result
)