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

Содержание

Геодезические координаты на мультивыноски (Страница 1 из 2)

#1Тема от Disney22 мая 2009г. 12:28:44(изменено: Disney, 30 июня 2009г. 10:29:40)

  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 24

Тема: Геодезические координаты на мультивыноски

По просьбе Alex G.

(defun c:geo_koord_leader (/ pod_z koord y x z xyz) (initget "Да Нет Lf Ytn _ Y N Y N") (setq pod_z (getkword "nПодписывать Z [Да/Нет] <Нет>? : ") ) (while (and (setq koord (getpoint "nТочка <Выход>")) ) (setq y (strcat "X=" (rtos (nth 0 koord) 2 3)) x (strcat "Y=" (rtos (nth 1 koord) 2 3)) z (if (= pod_z "Y") (strcat "Z=" (rtos (nth 2 koord) 2 3)) "" ) ) (VL-cmdf "_leader" koord pause "" x y z "") ) ) (princ "Вызов фукции: geo_koord_leader")

#2Ответ от Grigarash23 мая 2009г. 10:04:05

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

огромнейшее спасибо. В конце концов то увидел то, что надо.
Только пришлось все же местами поменять X и Y (в математический вид) все же так привычней

#3Ответ от geo_rva21 августа 2009г. 06:06:13

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Насколько я сообразил, опции берутся из текущего размерного стиля?
Нельзя ли чтоб опции высоты надписей брались из переменной TEXTSIZE, а опции точности символов опосля запятой – из переменной LUPREC ?

#4Ответ от Grigarash21 августа 2009г. 06:50:38

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Ну нет. берется не из размерного стиля, а из СТИЛЯ МУЛЬТИВЫНОСКИ.

#5Ответ от geo_rva21 августа 2009г. 10:11:31

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Ну да, я ошибочно сообразил. Но редактировать стили мультивыносок не так комфортно, как изменять пару переменных. Не охото плодить стили.

#6Ответ от Black_7910 марта 2010г. 05:21:08(изменено: Alex, 10 марта 2010г. 05:23:32)

  • На форуме с 9 марта 2010г.
  • Сообщений: 4
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Скажите а можно ли сделать так, что бы линя вынгоски была меж координатоми?
    Х=125421
   ——–
/  У=214552
/
что то типа этого.
из мульти выноски берутся лишь опции стрелочки а текст с координатами постоянно пишется с верху линии

Читайте также  При инициализации диска ошибка. «Диск не инициализирован» как восстановить

#7Ответ от Disney10 марта 2010г. 06:55:55

  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 24

Re: Геодезические координаты на мультивыноски

Alex пишет:

из мульти выноски берутся лишь опции стрелочки а текст с координатами постоянно пишется с верху линии

Там вообщем ни чего же не берется из мультивыноски, там строиться с помощью обыкновенной выноски, т.к. мультивыносок не оказалось в ранешних версиях AutoCAD.
Вот с мультивыноской, ежели настроишь Присоединение текста – подчеркивание первой строки, то будет практически как хочешь, снова же размер полки должен быть установлен(фиксированный)

(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 "Y=" (rtos (nth 0 koord) 2 3)"nX=" (rtos (nth 1 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")

#8Ответ от kma10 марта 2010г. 20:20:01

  • На форуме с 25 мая 2009г.
  • Сообщений: 38
  • Спасибо: 2

Re: Геодезические координаты на мультивыноски

сделай мультивыноску со своим блоком динамическим+att, блок будет демонстрировать указывает XY (у меня еще можно отдать номер точки)

#9Ответ от Black_7911 марта 2010г. 04:18:23

  • На форуме с 9 марта 2010г.
  • Сообщений: 4
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

kma .,
сделай, это не про меня. я чайник в этом деле. модифицированная программа у меня не работает, наверняка поэтому, что я использую 2006 версию.

#10Ответ от geo_rva9 декабря 2011г. 03:31:06

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Возможно ли ввести масштабный коэффициент в числовое значение координат? Часто чертежи – в миллиметрах, а подписи координат требуются в метрах.
АКАД – 2011 РУС (Civil 3D)

#11Ответ от Grigarash10 декабря 2011г. 06:40:12

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

присоединяюсь к пожеланию ❗
автор отзовись плиз 😀

#12Ответ от VVA13 декабря 2011г. 10:12:52

  • VVA
  • Активный участник
  • Откуда: Беларусь / Минск
  • На форуме с 29 марта 2006г.
  • Сообщений: 1,859
  • Спасибо: 22

Re: Геодезические координаты на мультивыноски

(defun C:GKM1 nil (C:geo_koord_mleader1)) (defun c:geo_koord_mleader1 (/ pod_z koord xyz scale) (initget "Да Нет Lf Ytn _ Y N Y N") (setq pod_z (getkword "nПодписывать Z [Да/Нет] <Нет>? : ")) (or (numberp *SCALE*)(setq *SCALE* 1)) (princ "nМасштабный коэффициент < ")(princ *SCALE*)(princ " >:") (if (setq scale (getdist))(setq *SCALE* scale)) (while (setq koord (getpoint "nТочка координирования <Выход>")) (setq xyz (strcat "Y=" (rtos (* *SCALE* (nth 0 koord)) 2 3)"nX=" (rtos (* *SCALE* (nth 1 koord)) 2 3)(if (= pod_z "Y") (strcat "nZ=" (rtos (* *SCALE* (nth 2 koord)) 2 3)) "" )) ) (VL-cmdf "_mleader" koord pause xyz "") ) ) (princ "Вызов фукции: geo_koord_mleader1 либо GKM1")

#13Ответ от Grigarash13 декабря 2011г. 22:41:34

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Все бы ничего. Но при указании первой точки координирования как раз масштабирование использовать не хотелось бы. а все  следующие точки расчитывались  бы исходя из первой начальной точки имеющую определенную координату в МСК

например имеем отрезок длинноватой 5000мм начало имеет X=100 Y=1000 и конец X=100 Y=1005
по вашему коду выходит что отрезок имеет начало X=0.1 Y=1 и конец X=0.1 Y=6

тут наверняка верно было бы чтобы он масштабировал не систему координат а выслеживал курсор исходя от первой точки и исходя из расстояния по по осям X и Y вычислял бы уже текущую координатку

#14Ответ от geo_rva14 декабря 2011г. 02:32:42

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Владимир Азарко,
Спасибо. Все работает конкретно так как нужно.
Alex G.,
если координаты про факту (конструктив вычерчен в миллиметрах)
Х= 12526
Y= 23124
Z= 52621
то при K=0.001 получается
Х= 12.526
Y= 23.124
Z= 52.621
что мне и требовалось.

Читайте также  Engineering mode android что это. Engineer Mode что это за программа на Андроид?

#15Ответ от geo_rva14 декабря 2011г. 05:51:29

  • Откуда: Хабаровский / Комсомольск-на-А
  • На форуме с 17 ноября 2006г.
  • Сообщений: 40
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Немного переработал для работы с выноской.
Получилось то же что в первом посте, но с добавлением масштаба.

(defun c:GKL (/ pod_z koord xyz scale) (initget "Да Нет Lf Ytn _ Y N Y N") (setq pod_z (getkword "nПодписывать Z [Да/Нет] <Нет>? : ")) (or (numberp *SCALE*)(setq *SCALE* 1)) (princ "nМасштабный коэффициент < ")(princ *SCALE*)(princ " >:") (if (setq scale (getdist))(setq *SCALE* scale)) (while (setq koord (getpoint "nТочка координирования <Выход>")) (setq y (strcat "Y=" (rtos (* *SCALE* (nth 0 koord)) 2 3)) x (strcat "X=" (rtos (* *SCALE* (nth 1 koord)) 2 3)) z (if (= pod_z "Y") (strcat "H=" (rtos (* *SCALE* (nth 2 koord)) 2 3)) "" ) ) (VL-cmdf "_leader" koord pause "" x y z "") ) ) (princ "Вызов фукции: GKL")

#16Ответ от Disney23 января 2012г. 11:18:47

  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 24

Re: Геодезические координаты на мультивыноски

Что-то издавна не заглядывал, спасибо Владимиру, что откликнулся за меня.
Тема незначительно подробнее развилась на DWG.ru
там и видео пример работы команды, с конфигурацией Систем Координат, и вариант с учётом масштабного коэффициента текущего размерного стиля.

#17Ответ от Grigarash25 января 2012г. 06:42:09

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Люди а не могли бы вы чуток переработать вот этот код:

(defun c:geo_koord_leader (/ pod_z dim_fac koord y x z xyz) (vl-load-com) (setvar "DIMZIN" 0) (initget "Да Нет Lf Ytn _ Y N Y N") (setq pod_z (getkword "nПодписывать Z [Да/Нет] <Нет>? : " ) dim_fac (getvar 'DIMLFAC) ) (while (and (setq koord (getpoint "nТочка <Выход>")) ) (setq y (strcat "nY=" (rtos (* (car koord) dim_fac) 2 ) ) x (strcat "nX=" (rtos (* (cadr koord) dim_fac) 2) ) z (if (= pod_z "Y") (strcat "nZ=" (rtos (* (caddr koord) dim_fac) 2) ) "" ) ) (VL-cmdf "_leader" "none" koord pause "" (strcat x y z) "" ) ) ) (princ "Вызов фукции: geo_koord_leader")

надо чтобы по этому коду координаты писались на МУЛЬТИВЫНОСКЕ

#18Ответ от Disney25 января 2012г. 06:51:07

  • Откуда: Сибирь / Новосибирск
  • На форуме с 28 февраля 2007г.
  • Сообщений: 471
  • Спасибо: 24

Re: Геодезические координаты на мультивыноски

Alex G. пишет:

надо чтобы по этому коду координаты писались на МУЛЬТИВЫНОСКЕ

замени

(VL-cmdf "_leader" "none" koord pause "" (strcat x y z) "" )

на

(VL-cmdf "_mleader" "none" koord pause (strcat x y z) "" )

#19Ответ от Grigarash25 января 2012г. 07:03:19

  • На форуме с 24 сентября 2005г.
  • Сообщений: 136
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

😀  💡  😉
круто спасибо
Уважаемый "Disney" лицезрел Ваши ролики со всякими примудростями в автокаде.
Обратил внимание что у вас в акаде установлена своя панелька с своими кнопами.

А где и мне поиметь Ваши все дополнения к акаду чтобы в панели были

#20Ответ от Scorpy3 августа 2012г. 14:31:58(изменено: Scorpy, 3 августа 2012г. 15:23:43)

  • На форуме с 2 августа 2006г.
  • Сообщений: 12
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

В лиспе из поста 17 сделал замену:
(VL-cmdf "_mleader"
          "none"
          koord
          pause           
          (strcat x y z)
          ""
     )

Почему то на мультивыноске прописывается 1-ая строчка пустая, необходимо входить вручную и ее удолять. Как поправить?

#21Ответ от Vildar30 июля 2015г. 10:35:42

  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Геодезические координаты на мультивыноски

Всем привет,
А есть вариант с построением выноски из отрезков, а не из мультивыноски?
Спасибо!

#22Ответ от Alan7 августа 2015г. 10:18:18

  • Alan
  • Активный участник
  • Откуда: Украина / Киев
  • На форуме с 2 апреля 2002г.
  • Сообщений: 1,337
  • Спасибо: 15

Re: Геодезические координаты на мультивыноски

Вильдар пишет:

А есть вариант с построением выноски из отрезков, а не из мультивыноски?

Я думаю воспользовавшись Поиском ты найдёшь такие решения.
Если нет, не трудно такое и написать для практики в программировании.

Читайте также  Как настроить роутер huawei e5330. huawei e5330 настройка сети

#23Ответ от Vildar12 августа 2015г. 07:37:01

  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Геодезические координаты на мультивыноски

Приспособил вариант с мультивыноской.
Просто не хотелось зависить от стиля мультивыноски.

#24Ответ от Alan12 августа 2015г. 16:36:46

  • Alan
  • Активный участник
  • Откуда: Украина / Киев
  • На форуме с 2 апреля 2002г.
  • Сообщений: 1,337
  • Спасибо: 15

Re: Геодезические координаты на мультивыноски

Вильдар пишет:

Просто не хотелось зависить от стиля мультивыноски.

Я мультивыноску тоже не люблю, обычная ИМХО надёжнее

#25Ответ от lllsplatlll30 июня 2016г. 12:13:55

  • На форуме с 30 июня 2016г.
  • Сообщений: 1
  • Спасибо: 0

Re: Геодезические координаты на мультивыноски

Здравствуйте, подскажите пожалуйста, есть вот этот код с добавлением мультивыноски, но почему то координаты х и у пишутся в одну строку. подскажите плиз как исправить

(defun c:GKL (/ pod_z koord  xyz scale)
(initget "Да Нет Lf Ytn _ Y N Y N")
(setq pod_z (getkword "nПодписывать Z [Да/Нет] <Нет>? : "))
(or (numberp *SCALE*)(setq *SCALE* 1))
(princ "nМасштабный коэффициент < ")(princ *SCALE*)(princ " >:")
(if (setq scale (getdist))(setq *SCALE* scale))
  (while (setq koord (getpoint "nТочка координирования <Выход>"))
    (setq
         y   (strcat "Y=" (rtos (* *SCALE* (nth 0 koord)) 2 3))
      x   (strcat "X=" (rtos (* *SCALE* (nth 1 koord)) 2 3))
      z   (if
     (= pod_z "Y")
      (strcat "H=" (rtos (* *SCALE* (nth 2 koord)) 2 3))
      ""
   )
    )
(VL-cmdf "_mleader"
          "none"
          koord
          pause           
          (strcat x y z)
          ""
     )
  )
)

(princ "Вызов фукции: GKL")

Сообщения с 1 по 25 из 26

Тему читают: 1 гость

Страницы12Далее

Чтобы выслать ответ, вы должны войти либо зарегистрироваться

Мультивыноска в Автокаде

Выноска в Автокаде – неотклонимый элемент дизайна чертежа. Чтоб не чертить ее вручную, правильно употреблять команду «МВыноска». Она находится на вкладке «Аннотации», панель «Выноска». Мультивыноска соединяет в для себя конкретно саму выноску (состоящую из отрезков либо сплайнов) и примечание, в виде многострочного текста либо блока с атрибутами. Данный объект представляет собой единый цельный непростой примитив.

При оформлении чертежа особенное внимание заслуживает стиль мультивыноски, который описывает ее наружный вид (см. рис.).

Как сделать выноску в Автокаде?

Воспользуйтесь командой «Мультивыноска» и укажите две точки в графическом пространстве, которые будут определять ее положение и размер. Опосля чего введите нужное примечание в виде цифр, букв и т.д. Для опции стиля вызовите диспетчер стиля мультивыносок и нажмите «Редактировать» (или сделать Новый…).

В появившемся диалоговом окне можно настроить формат и структуру выноски. В формате выноски можно выбрать последующие главные параметры:

– тип выноски: ровная либо сплайн;

– цвет, тип полосы и ее толщина;

– знак стрелки, определяющий ее наружный вид, значение размера.

Во вкладке «Структура выноски» есть принципиальный параметр – величина полки. Варьируя данное значение, можно созидать, как будет изменяться наружный вид объекта в миниатюре. Можно управлять масштабом мультивыноски.

Во вкладке «Содержимое» можно настраивать тип мультивыноки: МТекст либо Блок. Ежели избран многострочный текст, то ниже отобразятся бессчетные характеристики по его настройке. Особенное внимание заслуживает «Соединение выноски», где в разделе Присоединение слева/справа можно настраивать положение текст.

Если типом мультивыноски избран «Блок», то опции изменяются. Для вас предлагается выбрать блок-источник, определяющий графический вид примечания. Все блоки заданы с атрибутами, т.е. при вставке таковой выноски для вас будет предложено указать текстовое либо цифровое значение (читать подробнее про атрибуты блока в AutoCAD). Также предусмотрена возможность создавать собственные блоки (пользовательские) для большей маневренности.

Таким образом, выноска в AutoCAD дозволяет заавтоматизировать процесс дизайна чертежей, а необъятные.

Оставьте комментарий