SIB
размещено: 17 Мая 2018
__Краткое описание__
Программа проверена на работоспособность в AutoCAD 2010, 2013, 2016.
После загрузки меню "ВЫНОСКА КООРДИНАТ" доступны две новые команды, вызываемые соответствующими кнопками панели. Одна рисует выноску с координатами указанной точки, вторая - то же самое, но первые две цифры координат заменяет на знак "*".
Выноска рисуется всегда параллельно горизонту, для этого во время работы автоматически устанавливается временная ПСК, параллельная текущему виду. По окончании работы команды, возвращается предыдущая ПСК. Поэтому работу команды лучше не прерывать. Сделано это было с целью преимущественного использования программы в видовом экране в пространстве Листа для оформления выносками уже сформированного плана. В этом случае выноски будут горизонтальными, т.е. паралелльными основной надписи и потом не придется их крутить. Тем не менее, в модели тоже можно работать, осознавая факт их горизонтальности независимо от поворота текущего вида.
При любой текущей ПСК пишутся координаты Мировой системы координат. При этом X и Y меняются местами.
0.09 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Цитата:Сообщение #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]
Цитата:Сообщение #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]
Добрый день! В 19 автокаде задает вопрос - подписывать координату Z? любой ответ выбираешь - пишет неправильное ключевое слово. Что я делаю не так?