[Velik84]

Ребята как можно сделать так чтобы при замере расстояния, значение расстояния проставлялось само в виде однострочного текста в том месте например посредине где производился замер?

[Yu_rok]

Можно стиль размера создать без линий. Будет только текст, но не как однострочный.

[Velik84]

Сообщение от Yu_rok Можно стиль размера создать без линий. Будет только текст, но не как однострочный.

А можно подробнее? это в настройках как то надо отключить размерные линии?

[Yu_rok]

Диспетчер размерных стилей - редактировать/новый - вкладка линии - поставить галочки подавить 1ю ВЛ, 2юВЛ, 1юРЛ, 2юРЛ

[sbi]

Нет ничего невозможного Ватсон! Ставишь размер, _explode (все лишнее удаляем).
Для особо одаренных: цвет размерных линии равен цвету фона.(останется один бедняга текст)

[Yu_rok]

А можно и без создания стиля размера. Одному линии поодключать в свойствах, а на остальные применять его свойства.

[Velik84]

Сообщение от sbi Нет ничего невозможного Ватсон! Ставишь размер, _explode (все лишнее удаляем). Для особо одаренных: цвет размерных линии равен цвету фона.(останется один бедняга текст)

Это будет дольше чем я померяю и поставлю текст потом сам)))

[sbi]

Сообщение от Velik84 Это будет дольше чем я померяю и поставлю текст потом сам)))

Каждому свое- это было где-то написано. Желаю удачи!

[E-degtyarev]

Попробуй этот лиспик:

Код:

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

(defun c:rd (/ p_n p_k rasst ugol p_c p_t ug_txt)
  (setq	p_n    (getpoint "\nОт точки:")
	p_k    (getpoint p_n "\nДо точки:")
	rasst  (distance p_n p_k)
	ugol   (angle p_n p_k)
	p_c    (polar p_n ugol (* 0.5 rasst))
	p_t    (polar p_c (+ (* pi 0.5) ugol) 2)
	ug_txt (* (/ ugol pi) 180)
  ) ;_ конец setq
  (vl-cmdf "_text" "_ce" "_non" p_t "5" ug_txt (rtos rasst 2 2))
) ;_ конец defun

Примитив, но работает.

[Disney]

Сообщение от Velik84 А можно подробнее?

[IMG]http://i040.***********/1011/09/cbe31796f0e3.gif[/IMG]

[IMG]http://s010.***********/i314/1011/ff/cba74c3125a8.gif[/IMG]

Но уж если сильно хочется именно текст, то потом можно и расчленить, и "это будет гораздо быстрее, чем ты померишь и поставишь текст потом сам)))"

[IMG]http://s57.***********/i158/1011/42/2a921cb2ddec.gif[/IMG]

Опять же, если тем не менее, тебе нужен тупо текст, то быстрее всего будет использовать программу, предоставленную E-degtyarev

[Velik84]

Сообщение от E-degtyarev Попробуй этот лиспик: Код: [Выделить все] (defun c:rd (/ p_n p_k rasst ugol p_c p_t ug_txt) (setq p_n (getpoint "\nОт точки:") p_k (getpoint p_n "\nДо точки:") rasst (distance p_n p_k) ugol (angle p_n p_k) p_c (polar p_n ugol (* 0.5 rasst)) p_t (polar p_c (+ (* pi 0.5) ugol) 2) ug_txt (* (/ ugol pi) 180) ) ;_ конец setq (vl-cmdf "_text" "_ce" "_non" p_t "5" ug_txt (rtos rasst 2 2)) ) ;_ конец defun Примитив, но работает.

то что нужно!!!!! спасибо. только еще бы высоту текста выставлять можно бы было, например один раз ввел и по умолчанию она такая бы и оставалась, когда надо поменял высоту и опять не запрашивая высоты мерять и выставлять))))

[E-degtyarev]

Код:

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

(defun c:rd (/ p_n p_k rasst ugol p_c p_t ug_txt)
    (setq	p_n    (getpoint "\nОт точки:")
	p_k    (getpoint p_n "\nДо точки:")
	rasst  (distance p_n p_k)
	ugol   (angle p_n p_k)
	p_c    (polar p_n ugol (* 0.5 rasst))
	p_t    (polar p_c (+ (* pi 0.5) ugol) 2)
	ug_txt (* (/ ugol pi) 180)
  ) ;_ конец setq
  (vl-cmdf "_text" "_ce" "_non" p_t pause ug_txt (rtos rasst 2 2))
) ;_ конец defun

Попрбуй так, может это лучше, хотя не совсем то, что нужно.

Можно вместо PAUSE поставить две двойных кавычки "" , тогда высота будет просто по умолчанию и запроса высоты не будет.

[Velik84]

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

[sbi]

Сообщение от sbi .(останется один бедняга текст)

Вот и приходится кликать, кто больше и кто быстрее?

[Disney]

Velik84, а мне вот честно, очень интересно, а зачем тебе такие тексты с размерами?
Иногда бывает ставишь размер, а он привязываться куда-нибудь рядом, и это видно и можно поправить ручки размера, а соответственно измениться и значение размера.
И так же использование программ, что она там считает? как округляет?

[E-degtyarev]

Velik84. Можно немножко изменить код, но это тоже не очень красивое решение:

Код:

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

(defun c:rd (/ p_n p_k rasst ugol p_c p_t ug_txt)
  (if (= v_t nil)
    (progn
      (setq v_t (getreal "\n Высота текста: "))
      (setvar "textsize" v_t)
    ) ;_ конец progn
  ) ;_ конец if
  (setq	p_n    (getpoint "\nОт точки: ")
	p_k    (getpoint p_n "\nДо точки: ")
	rasst  (distance p_n p_k)
	ugol   (angle p_n p_k)
	p_c    (polar p_n ugol (* 0.5 rasst))
	p_t    (polar p_c (+ (* pi 0.5) ugol) 2)
	ug_txt (* (/ ugol pi) 180)
  ) ;_ конец setq
  (princ)
  (command "_text" "_ce" "_non" p_t "" ug_txt (rtos rasst 2 2))
) ;_ конец defun

А высоту набивать не нужно, просто жмякнуть Enter. (или правую кнопку м.)

[sbi]

Disney Скорей всего действует принцип "доверяй, но проверяй" В прошлом, установил лебедку на уровне мачты (выше пятиэтажки) только через два года заметили эту координату Z в нагрузках. Надо было увеличить остойчивость корабля. А так - это что за размер! Подать мне Тяпкина-Ляпника!

[Disney]

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

Код:

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

(defun c:rd (/ p_n p_k rasst ugol p_c p_t ug_txt v_t_2)
  (setq	v_t   (if v_t
		v_t
		(getvar "textsize")
	      )
	v_t_2 (getreal (strcat "\n Высота текста <" (rtos v_t 2) ">: "))
	v_t   (if v_t_2
		v_t_2
		v_t
	      )
  )
  (while
    (and
      (setq p_n (getpoint "\nОт точки <Выход>: "))
      (setq p_k (getpoint p_n "\nДо точки <Выход>: "))
    )
     (setq
       rasst (distance p_n p_k)
       ugol  (angle p_n p_k)
     )
     (if (> (* 1.5 pi) ugol (/ pi 2))
       (setq p_n  p_k
	     ugol (+ pi ugol)
       )
     )
     (setq
       p_c    (polar p_n ugol (* 0.5 rasst))
       p_t    (polar p_c (+ (* pi 0.5) ugol) (/ v_t 2))
       ug_txt (* (/ ugol pi) 180)
     ) ;_ конец setq
     (princ)
     (command "_text"
	      "_ce"
	      "_non"
	      p_t
	      v_t
	      ug_txt
	      (rtos rasst 2 2)
     )
  )
) ;_ конец defun

[IMG]http://i035.***********/1011/5c/808c9711cda6.gif[/IMG]

sbi, а... т.е. ты думаешь суть в том, чтоб получить не плоский размер, а натуральное расстояние с учётом Z координаты?
Ну это ещё опаснее, как известно velik84 у нас генпланист, а "генпланят" они как правило по топосъёмке от геодезистов, а она в свою очередь очень даже бывает трёхмерной, причём сами геодезисты об этом ни всегда догадываться. Соответственно там такого можно понамерить...

[sbi]

Disney Вот и кумекаю на кой леший это расстояние ... (наказать виновного геодезиста?) Пусть автор рассекретится.

[Velik84]

Сообщение от Disney Velik84, а мне вот честно, очень интересно, а зачем тебе такие тексты с размерами? Иногда бывает ставишь размер, а он привязываться куда-нибудь рядом, и это видно и можно поправить ручки размера, а соответственно измениться и значение размера. И так же использование программ, что она там считает? как округляет?

Все намного проще господа. Просто у меня около 30 поперечников нужно сделать, вот и надоедает мерять расстояния между отметками земли и между отметками проектными. А так померял - бац и уже рассстояние стоит
А этот код учитывает или не учитывает Z все таки?))