• Luda
  • Участник
  • На форуме с 24 мая 2018г.
  • Сообщений: 1
  • Спасибо: 0

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

Disney,

спасибо вам огромнейшее за вашу программку!
Работаю в генплане и мучилась до сегодняшнего дня с координатами. Теперь координаты стало ставить так же просто, как любой другой размер. Я просто счастлива! :D  :D

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

Спасибо! :D

  • На форуме с 13 января 2023г.
  • Сообщений: 1
  • Спасибо: 0

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

Здравствуйте, а может кто-нибудь помочь исправить вот этот код только чтобы x был сверху.
пробую сама исправить код, не получается
(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")