VetCAD

Измерение площади и периметра

    1 оценка

serzh

размещено: 28 Сентября 2005
обновлено: 28 Ноября 2006
После того как вы загрузите файл zx-area-len-r.VLX становится доступно три команды

1. zxar - требует нарисовать прямоугольник(если нужна полилиния, необходимо нажать интер или пробел), после нажатия правой кнопки мыши (или enter) значения площади и длины полилинии висят на курсоре и появляются в командной строке. Можно прерватся - полилиния и текст на курсоре удаляются. Можно вставить текст в чертеж. Далее в зависимости от настроек: текст вставляется в чертеж, а полилиния удаляется, или текст вставляется в чертеж, полилиния остается, а значение ее площади и длины привязываются к тексту. Т.е. если редактировать полилинию, в соответствии со значением ее площади и длины, будут изменятся значения текста.
2. zxarall - выделяются полилинии, после нажатия правой кнопки мыши (или enter) на курсоре и в командной строке появляются значения площади и длины.Далее в зависимости от настроек. Можно просто вставить текст в чертеж или вставить в чертеж и связать его значение с параметрами (площадью и длиной) выбранных полилиний. При дальнейшем редактировании любой из полилиний значение текста будет меняться в зависимости от общей площади и длины полилиний вошедших в набор, при этом все полилинии и текст будут подсвечены.

3. zxarparam - появляется окно настроек программы. Можно настроить ширину и цвет полилинии; высоту, цвет и стиль текста; окончания для значений длины и площади; коэффициенты для значений длины и площади; что выводить - площадь, длину или все вместе; создавать ли связь полилинии с текстом.

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 41-41 из 41
filedia , 22 мая 2017 в 11:53
#41
Очень удобно.
Единственное!
Можно данную функцию изменить? (очень надо)
1-нащелкнул по полилинии
2-щелкнул по атрибуту в блоке и в актибут заносится площадь выбранной полилинии

Я не программер ... очень давно "написал" под себя
*^C^C_area;o;\(setq p2 (getvar "area"));userr1;(rtos (setq p1 (* p2 0.000001)) 2 2);-attedit;;;;;\;v;r;$M=$(getvar,userr1);;
zip

0.01 МБ

СКАЧАТЬ