Замер линейкой - простановка расстояния

Velik84 · 12.11.2010, 10:29

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

Yu_rok · 12.11.2010, 10:39

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

Velik84 · 12.11.2010, 10:49

Цитата:

Сообщение от Yu_rok

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

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

Yu_rok · 12.11.2010, 11:08

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

sbi · 12.11.2010, 11:12

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

Yu_rok · 12.11.2010, 11:24

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

Velik84 · 12.11.2010, 11:33

Цитата:

Сообщение от sbi

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

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

sbi · 12.11.2010, 11:37

Цитата:

Сообщение от Velik84

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

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

E-degtyarev · 12.11.2010, 11:39

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

Код:

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

(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 · 12.11.2010, 13:23

Цитата:

Сообщение от 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 · 12.11.2010, 15:07

Цитата:

Сообщение от 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 · 12.11.2010, 16:41

Код:

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

(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 · 12.11.2010, 16:59

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

sbi · 12.11.2010, 19:11

Цитата:

Сообщение от sbi

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

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

Disney · 13.11.2010, 05:43

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

E-degtyarev · 13.11.2010, 09:29

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 · 13.11.2010, 10:30

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

Disney · 13.11.2010, 11:29

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

Код:

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

(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 · 13.11.2010, 12:36

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

Velik84 · 13.11.2010, 12:58

Цитата:

Сообщение от Disney

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

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

А этот код учитывает или не учитывает Z все таки?))

E-degtyarev · 13.11.2010, 13:19

Координата Z учитывается, только вот текст может оказаться "не на той" плоскости.

Цитата:

distance
Returns the 3D distance between two points
(distance pt1 pt2)
Arguments
pt1
A 2D or 3D point list.
pt1
A 2D or 3D point list.
Return Values
The distance.
If one or both of the supplied points is a 2D point, then distance ignores the Z coordinates of any 3D points supplied and returns the 2D distance between the points as projected into the current construction plane.

Но если тебе нужны координаты только по одной из координатных осей (например по Z ) программу лучше выбросить,
так как здесь определяется расстояние между точками В ПРОСТРАНСТВЕ!

Velik84 · 13.11.2010, 13:54

Цитата:

Сообщение от E-degtyarev

Координата Z учитывается, только вот текст может оказаться "не на той" плоскости.

Но если тебе нужны координаты только по одной из координатных осей (например по Z ) программу лучше выбросить,
так как здесь определяется расстояние между точками В ПРОСТРАНСТВЕ!

Нет, мне достаточно в 2D пространстве

Disney · 13.11.2010, 14:16

Цитата:

Сообщение от Velik84

Нет, мне достаточно в 2D пространстве

Вот так, Z не учитывает

Код:

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

(defun c:rd_2D (/ 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 (list (car p_n)(cadr p_n))(list (car p_k)(cadr 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

Но тогда смысл, не применения стандартных размеров AutoCAD?

Velik84 · 13.11.2010, 14:28

Цитата:

Сообщение от Disney

[/code][/more]
Но тогда смысл, не применения стандартных размеров AutoCAD?

Просто зачем мне нужны размерные стили хоть и с не видимыми линиями, если мне достаточно там текста

sbi · 13.11.2010, 18:16

Цитата:

Сообщение от Velik84

Просто зачем мне нужны размерные стили хоть и с не видимыми линиями, если мне достаточно там текста

Хорошь вопрос, таков и весь ответ,
"которого в помыне нет" (Гурченко со шляпкой из соломы)

Velik84 · 13.11.2010, 20:47

Цитата:

Сообщение от sbi

Хорошь вопрос, таков и весь ответ,
"которого в помыне нет" (Гурченко со шляпкой из соломы)

12.11.2010, 10:29		#1
Замер линейкой - простановка расстояния Velik84 Генплан и транспорт Регистрация: 26.11.2008 Сообщений: 214 Ребята как можно сделать так чтобы при замере расстояния, значение расстояния проставлялось само в виде однострочного текста в том месте например посредине где производился замер? __________________ Hi people))):crazy:
Просмотров: 4790

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нарушение расстояния между фундаментом и инж.сетями. Какие необходимы мероприятия?	Koldni4	Инженерные сети	1	20.09.2010 21:57
Где найти максимальные расстояния между стальными нагелями при проектировании деревянных конструкций	maximumm	Поиск литературы, чертежей, моделей и прочих материалов	8	29.05.2010 02:59

	Реклама i