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

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

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

Там вообще ни чего не берется из мультивыноски, там строиться с помощью обычной выноски, т.к. мультивыносок не оказалось в ранних версиях 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")

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

присоединяюсь к пожеланию :!:
автор отзовись плиз :D

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

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

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

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

(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")

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

(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")

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

:D  :idea:  ;)
круто спасибо
Уважаемый "Disney" видел Ваши ролики со всякими примудростями в автокаде.
Обратил внимание что у вас в акаде установлена своя панелька с своими кнопами.

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

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

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