[Velik84]

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

[E-degtyarev]

Координата 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]

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

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

[Disney]

Сообщение от 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]

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

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

[sbi]

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

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

[Velik84]

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