[ИН}|{ЕНЕР]

Здравствуйте. Есть задача проставить кучу координат на генплане. Для этих целей скачал lisp geo_koord_mleader. Все классно работает, но есть одно неудобство. Работаю на различных видовых экранах в произвольной ПСК, а координаты нужно проставить в мировой системе. Не люблю клацать каждый раз руками (очень я ленивый человек), решил попробовать макрос. Вот что сделал сам: ^C^C_ucs;м;;^C^C^P_geo_koord_mleader;. Сделал кнопку, при нажатии на которую, система координат меняется на МСК и запускается команда проставления координат. Но как я не крутил, не смог сделать так, чтобы по окончании простановки координат и выходе из команды система координат менялась на первоначальную ПСК. Если это возможно, то подскажите, как это сделать!

[alex101000]

Сохранение и восстановление именованных определений ПСК.
Возможно, стоит сначала сохранить первую ПСК, далее - выполнить требуемое, а затем восстановить сохраненную вначале ПСК ?

[ИН}|{ЕНЕР]

Сообщение от alex101000 Сохранение и восстановление именованных определений ПСК. Возможно, стоит сначала сохранить первую ПСК, далее - выполнить требуемое, а затем восстановить сохраненную вначале ПСК ?

Это не совсем то. Мне-то не сложно нажать кнопку "Вид" на панели ПСК после того, как проставлены координаты, но хочется, чтоб за меня это сделала машина

[engngr]

_ucs _p

[ИН}|{ЕНЕР]

engngr, не все так просто. Координаты ставятся бесконечно, т.е. чтобы завершить команду, нужно нажать esc. В макросе нужно как-то это отразить.

[frostmourn]

(command "_ucs" "_p") в конце программы?

[koMon]

Сообщение от ИН}|{ЕНЕР Работаю на различных видовых экранах в произвольной ПСК, а координаты нужно проставить в мировой системе.

вероятнее проще всего добавить в лисп пересчёт координат из ПСК в МСК -> заменить (setq koord (getpoint "\nТочка <Выход>")) на (setq koord (trans (getpoint "\nТочка <Выход>") 1 0))
хотя нужно код лиспа посмотреть, я увидел для leader. для mleader так же.

[ИН}|{ЕНЕР]

koMon, идея хорошая, но в ПСК ставит выноску, начало которой уходит куда-то в бесконечность. Видимо в коде нужно что-то изменить

[koMon]

этот код?

Код:

[Выделить все]

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

----- добавлено через ~5 мин. -----
так должно работать

Код:

[Выделить все]

 (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 (trans koord 1 0)) 2 3)
	  	              "\nX=" (rtos (nth 1 (trans koord 1 0)) 2 3)
		  		      (if (= pod_z "Y")
					  		(strcat "\nZ=" (rtos (nth 2 (trans koord 1 0)) 2 3))
							""
					  )
			  )
    )
    (VL-cmdf "_mleader" koord pause  xyz "")
  )
)
(princ "Вызов команды: geo_koord_mleader")
(princ)

[ИН}|{ЕНЕР]

Не пойму почему, но с таким кодом у меня вообще автокад ругается на неизвестную команду

----- добавлено через ~7 мин. -----
Ага, разобрался уже))

----- добавлено через ~15 мин. -----
koMon, спасибо тебе огромное, это даже лучше, чем я себе представлял! Все отлично работает!