Выноска координат Х и У в топографическом прочтении.
__Краткое описание__
Программа проверена на работоспособность в AutoCAD 2010, 2013, 2016.
После загрузки меню "ВЫНОСКА КООРДИНАТ" доступны две новые команды, вызываемые соответствующими кнопками панели. Одна рисует выноску с координатами указанной точки, вторая - то же самое, но первые две цифры координат заменяет на знак "*".
Выноска рисуется всегда параллельно горизонту, для этого во время работы автоматически устанавливается временная ПСК, параллельная текущему виду. По окончании работы команды, возвращается предыдущая ПСК. Поэтому работу команды лучше не прерывать. Сделано это было с целью преимущественного использования программы в видовом экране в пространстве Листа для оформления выносками уже сформированного плана. В этом случае выноски будут горизонтальными, т.е. паралелльными основной надписи и потом не придется их крутить. Тем не менее, в модели тоже можно работать, осознавая факт их горизонтальности независимо от поворота текущего вида.
При любой текущей ПСК пишутся координаты Мировой системы координат. При этом X и Y меняются местами.
Программа проверена на работоспособность в AutoCAD 2010, 2013, 2016.
После загрузки меню "ВЫНОСКА КООРДИНАТ" доступны две новые команды, вызываемые соответствующими кнопками панели. Одна рисует выноску с координатами указанной точки, вторая - то же самое, но первые две цифры координат заменяет на знак "*".
Выноска рисуется всегда параллельно горизонту, для этого во время работы автоматически устанавливается временная ПСК, параллельная текущему виду. По окончании работы команды, возвращается предыдущая ПСК. Поэтому работу команды лучше не прерывать. Сделано это было с целью преимущественного использования программы в видовом экране в пространстве Листа для оформления выносками уже сформированного плана. В этом случае выноски будут горизонтальными, т.е. паралелльными основной надписи и потом не придется их крутить. Тем не менее, в модели тоже можно работать, осознавая факт их горизонтальности независимо от поворота текущего вида.
При любой текущей ПСК пишутся координаты Мировой системы координат. При этом X и Y меняются местами.
Комментарии
Авторизоваться
Вот лисп. Писал не я. Но я поменял в Х и 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]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему
Штука просто отличная, спасибо. Вот если бы она выноску формировала а не группу примитивов, цены бы ей не было)))
Пожалуйста! Вещь древняя, переделывать под выноску не хочется да и не совсем просто. Тягать ее можно командой Растянуть, и если ее можно быстро отрисовать заново, то нет особого смысла в гибкости мультивыноски. А в акадовской Выноске будут проблемы с подчеркиванием между строками, насколько помню, там либо сверху, либо снизу, либо сбоку.
И параметр скрытия заднего плана текста не помешал.
На задний план никогда не жаловались))) Если только маскировкой, но это объект коварный))) Скорре всего этим не займусь, увы.
Есть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и 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м сразу не заработал. Поковыряю...
http://forum.dwg.ru/showthread.php?t=4371
А исходник повидимому здесь создавали
http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=46534
Вот и тема на форуме
http://forum.dwg.ru/showthread.php?t=4371
А исходник повидимому здесь создавали
http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=46534
Спасибо!
Есть уже такая которая выноску формирует
Вот лисп. Писал не я. Но я поменял в Х и 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]
Создал для лиспа кнопочку и давно уже пользуюсь. не знаю кто автор но спасибо ему
Здравствуйте! Совсем недавно нашла этот лисп и им пользуюсь. Очень крутой ) Может вы мне подскажете, как сделать, чтобы можно было им пользоваться и в своей ПСК? В ней он координаты ставит под углом.
Заранее спасибо )