• musa
  • Восстановленный участник
  • На форуме с 25 июля 2003г.
  • Сообщений: 28
  • Спасибо: 0

Тема: Как узнать площадь

Большая просьба, кто может сделать малюсенькую прогу Суть в том, что это будет как дополнение к команде Distance. То есть при активировании просит двумя кликами мышки обозначить измеряемый отрезок в метрах с точностью до 0,1, а потом умножает измеренную длину на заданную h и выводит результат.

обозначте длину отрезка

- 5.2

введите h

- 3.1

результат

- 16.1

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Как узнать площадь

Написал на email, все пояснения внутри файла (откройте как текстовый файл, например "блокнотом"). Только я не сделал округление, это усложнит программу.

  • На форуме с 23 июля 2003г.
  • Сообщений: 25
  • Спасибо: 0

Re: Как узнать площадь

(defun c:are (/ dis hx areax)
  (setvar "cmdecho" 0)
  (setq dis (getdist "Specify first point :"))
  (setq hx (getint "Enter H : "))
  (setq areax (* dis hx))
  (princ areax)
  (princ)
)

  • musa
  • Восстановленный участник
  • На форуме с 25 июля 2003г.
  • Сообщений: 28
  • Спасибо: 0

Re: Как узнать площадь

> Maxim T
Огромное спасибо, а возможно чтобы результат делился на 1000?

  • musa
  • Восстановленный участник
  • На форуме с 25 июля 2003г.
  • Сообщений: 28
  • Спасибо: 0

Re: Как узнать площадь

......и копировался в буфер обмена

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Как узнать площадь

musoчка, задание насчёт 1000 понял, пришлю новый вариант завтра (т.к. у меня инет только с 0.00 до 10.00), а для буфера обмена понадобится VBA, на Лиспе, по-моему, невозможно.

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Как узнать площадь

Лучше поздно, чем никогда.
(defun C:ar ( / p1 p2 h)
(setq p1 (getpoint "Введите первую точку: "))
(setq p2 (getpoint p1 "Введите вторую точку: "))
(setq h (getreal "Введите высоту h: "))
(alert (strcat "Площадь равна: " (rtos (/ (* (distance p1 p2) h) 1000) 2 2) " единиц АВтокада."))
(terpri) ;чтобы не мусорить в командную строку
)
Как видите, изменения только в той строке, где есть число 1000. А вообще купите книгу Н.Полещук "Visual LISP и секреты адаптации AutoCAD".

  • kos
  • Восстановленный участник
  • На форуме с 6 марта 2002г.
  • Сообщений: 637
  • Спасибо: 0

Re: Как узнать площадь

> Maxim
T
Интересная вырисовывается тема: "как средствами VisualLISP поместить в буфер обмена Windows значение переменной".
Кто силен?
Удачи.

  • leha
  • Восстановленный участник
  • На форуме с 24 июня 2002г.
  • Сообщений: 235
  • Спасибо: 0

Re: Как узнать площадь

> kos
Я бы, правда, не назвал это "средствами VisualLISP", и лучше делать по другому, но просто ради интереса:
(vl-cmdf "_.vbastmt"
    (strcat "Set MyData = New DataObject : MyData.Clear : MyData.SetText \"" string "\" : MyData.PutInClipboard"))

  • kos
  • Восстановленный участник
  • На форуме с 6 марта 2002г.
  • Сообщений: 637
  • Спасибо: 0

Re: Как узнать площадь

Лехе:
Да уж, термин "средствами LISP" здесь можно применить с бо-о-о-о-о-льшой натяжкой...
Удачи.

  • На форуме с 23 апреля 2003г.
  • Сообщений: 795
  • Спасибо: 0

Re: Как узнать площадь

> всем
Что-то я не пойму зачем Вам нужно значение
переменной в буфере?

  • Pilot
  • Восстановленный участник
  • На форуме с 31 января 2003г.
  • Сообщений: 349
  • Спасибо: 0

Re: Как узнать площадь

Текст в буфер и обратно можно поместить посредством
(dos_clipboard ...
из DOSLIB