Рассылка
"Новости проекта"











Выноска координат Х и У в топографическом прочтении.

Добавлено: 17 Мая 2018   SIB
   0 оценок

__Краткое описание__

Программа проверена на работоспособность в AutoCAD 2010, 2013, 2016.

После загрузки меню "ВЫНОСКА КООРДИНАТ" доступны две новые команды, вызываемые соответствующими кнопками панели. Одна рисует выноску с координатами указанной точки, вторая - то же самое, но первые две цифры координат заменяет на знак "*".

Выноска рисуется всегда параллельно горизонту, для этого во время работы автоматически устанавливается временная ПСК, параллельная текущему виду. По окончании работы команды, возвращается предыдущая ПСК. Поэтому работу команды лучше не прерывать. Сделано это было с целью преимущественного использования программы в видовом экране в пространстве Листа для оформления выносками уже сформированного плана. В этом случае выноски будут горизонтальными, т.е. паралелльными основной надписи и потом не придется их крутить. Тем не менее, в модели тоже можно работать, осознавая факт их горизонтальности независимо от поворота текущего вида.

При любой текущей ПСК пишутся координаты Мировой системы координат. При этом X и Y меняются местами.

Комментарии

Комментарии 1-11 из 11
SIB
, 04 июня 2018 в 13:27
#11
Цитата:
Сообщение #10 от Vikulassuk
Цитата:Сообщение #3 от CHESNOKЕсть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и Y местами т.к. в исходном коде X и Y геодезические
[CODE](defun c:geo_koord_mleader (/ pod_z koord xyz)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq
pod_z (getkword "\nПодписывать Z [Да/Нет] ? : ")
)
(while (and
(setq koord (getpoint "\nТочка "))
)
(setq
xyz (strcat "X=" (rtos (nth 1 koord) 2 3) "\nY=" (rtos (nth 0 koord) 2 3)(if
(= pod_z "Y")
(strcat "\nZ=" (rtos (nth 2 koord) 2 3))
""
))
)
(VL-cmdf "_mleader" koord pause xyz "")
)
)

(princ "Вызов фукции: geo_koord_mleader")[/CODE]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему


Здравствуйте! Совсем недавно нашла этот лисп и им пользуюсь. Очень крутой ) Может вы мне подскажете, как сделать, чтобы можно было им пользоваться и в своей ПСК? В ней он координаты ставит под углом.
Заранее спасибо )


Здравствуйте! Раз CHESNOKE не отвечает, позвольте мне. Не совсем понял вашу проблему. Буду считать так: вы меняете ПСК, поворачиваете чертеж по ней как "Вид в плане", потом включаете опять МСК, потому что координаты вам нужны мировые и начинаете ставить выноски, они естественно рисуются параллельно текущей оси Х, т.е. МСК, т.е. не под тем угом как вам нужно. Моя выноска как раз рисует всегда(!) горизонтально, но не мультивыноской. Если вас правильно понял, то попробуйте применить, что напишу ниже: при любой ПСК будет писать мировые координаты, полку при этом рисуя параллельно текущей оси Х. Кстати, настройки стиля мультивыноски должны включать: "Максимум точек выноски": 2; "Автоматически добавлять полку" - нет, а если Да, то поставить галку и в "Задать величину полки".
[CODE](defun c:geo_koord_mleader
(/ pod_z koord xyz)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq
pod_z (getkword "\nПодписывать Z [Да/Нет] ? : ")
)
(while (and
(setq koord (getpoint "\nТочка "))
)
(setq
koord (trans koord 1 0)
xyz (strcat "X="
(rtos (nth 1 koord) 2 3)
"\nY="
(rtos (nth 0 koord) 2 3)
(if
(= pod_z "Y")
(strcat "\nZ=" (rtos (nth 2 koord) 2 3))
""
)
)
)
(VL-cmdf "_mleader" (trans koord 0 1) pause xyz )
)
)[/CODE]
Vikulassuk
, 30 мая 2018 в 10:54
#10
Цитата:
Сообщение #3 от CHESNOK
Есть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и Y местами т.к. в исходном коде X и Y геодезические
[CODE](defun c:geo_koord_mleader (/ pod_z koord xyz)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq
pod_z (getkword "\nПодписывать Z [Да/Нет] ? : ")
)
(while (and
(setq koord (getpoint "\nТочка "))
)
(setq
xyz (strcat "X=" (rtos (nth 1 koord) 2 3) "\nY=" (rtos (nth 0 koord) 2 3)(if
(= pod_z "Y")
(strcat "\nZ=" (rtos (nth 2 koord) 2 3))
""
))
)
(VL-cmdf "_mleader" koord pause xyz "")
)
)

(princ "Вызов фукции: geo_koord_mleader")[/CODE]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему



Здравствуйте! Совсем недавно нашла этот лисп и им пользуюсь. Очень крутой ) Может вы мне подскажете, как сделать, чтобы можно было им пользоваться и в своей ПСК? В ней он координаты ставит под углом.
Заранее спасибо )
SIB
, 21 мая 2018 в 01:03
#9
Цитата:
Сообщение #8 от CHESNOK
Вот и тема на форуме
http://forum.dwg.ru/showthread.php?t=4371

А исходник повидимому здесь создавали
http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=46534


Спасибо!
CHESNOK
, 18 мая 2018 в 17:19
#8
Вот и тема на форуме
http://forum.dwg.ru/showthread.php?t=4371

А исходник повидимому здесь создавали
http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=46534
SIB
, 18 мая 2018 в 13:21
#7
Цитата:
Сообщение #3 от CHESNOK
Есть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и Y местами т.к. в исходном коде X и Y геодезические
[CODE](defun c:geo_koord_mleader (/ pod_z koord xyz)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq
pod_z (getkword "\nПодписывать Z [Да/Нет] ? : ")
)
(while (and
(setq koord (getpoint "\nТочка "))
)
(setq
xyz (strcat "X=" (rtos (nth 1 koord) 2 3) "\nY=" (rtos (nth 0 koord) 2 3)(if
(= pod_z "Y")
(strcat "\nZ=" (rtos (nth 2 koord) 2 3))
""
))
)
(VL-cmdf "_mleader" koord pause xyz "")
)
)

(princ "Вызов фукции: geo_koord_mleader")[/CODE]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему

Спасибо! Код короткий, изящный, но в 2010м сразу не заработал. Поковыряю...
SIB
, 18 мая 2018 в 13:17
#6
Цитата:
Сообщение #2 от s4am
И параметр скрытия заднего плана текста не помешал.

На задний план никогда не жаловались))) Если только маскировкой, но это объект коварный))) Скорре всего этим не займусь, увы.
SIB
, 18 мая 2018 в 13:15
#5
Цитата:
Сообщение #1 от s4am
Штука просто отличная, спасибо. Вот если бы она выноску формировала а не группу примитивов, цены бы ей не было)))

Пожалуйста! Вещь древняя, переделывать под выноску не хочется да и не совсем просто. Тягать ее можно командой Растянуть, и если ее можно быстро отрисовать заново, то нет особого смысла в гибкости мультивыноски. А в акадовской Выноске будут проблемы с подчеркиванием между строками, насколько помню, там либо сверху, либо снизу, либо сбоку.
CHESNOK
, 18 мая 2018 в 11:23
#4
то есть наоборот в исходном коде X и Y были НЕ географические.
CHESNOK
, 18 мая 2018 в 11:20
#3
Есть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и Y местами т.к. в исходном коде X и Y геодезические
[CODE](defun c:geo_koord_mleader (/ pod_z koord xyz)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq
pod_z (getkword "\nПодписывать Z [Да/Нет] ? : ")
)
(while (and
(setq koord (getpoint "\nТочка "))
)
(setq
xyz (strcat "X=" (rtos (nth 1 koord) 2 3) "\nY=" (rtos (nth 0 koord) 2 3)(if
(= pod_z "Y")
(strcat "\nZ=" (rtos (nth 2 koord) 2 3))
""
))
)
(VL-cmdf "_mleader" koord pause xyz "")
)
)

(princ "Вызов фукции: geo_koord_mleader")[/CODE]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему
s4am
, 18 мая 2018 в 10:10
#2
И параметр скрытия заднего плана текста не помешал.
s4am
, 18 мая 2018 в 10:08
#1
Штука просто отличная, спасибо. Вот если бы она выноску формировала а не группу примитивов, цены бы ей не было)))
Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Применение косоугольной системы координат в динамике тела с неподвижной точкой2014 г.

С. П. Шадрина

Применение косоугольной системы координат в динамике тела с неподвижной точкой

92 руб.
Cкидки на VetCAD++
Размещение рекламы