[iiscienceii]

Подскажите пожалуйста гуру програмирования. Как програмно узнать длину дуги и полилинии????
Есть ли какой нибуть аналог vla-get-length для дуги и полилинии???

Извеняюсь сам решил эту задачу.
Возник следующий вопрос подскажите как проверить отрезок на ортогональность (тоесть на паралельность оси Х или Y)

[kakt00z]

для дуги vla-get-ArcLength
для полилинии vla-get-Length

[VVA]

Сообщение от iiscienceii как проверить отрезок на ортогональность (тоесть на паралельность оси Х или Y)

Код:

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

;;; PARALLELP
;;; Evaluates if p1 p2 segment is parallel to p3 p4 segment
;;;
;;; Arguments = 4 points
(defun parallelp (p1 p2 p3 p4)
  (and
    (not (inters p1 p2 p3 p4 nil))
    (or    (inters p1 p4 p3 p2 nil)
    (inters p1 p3 p4 p2 nil)
    )
  )
)

;;; PERPENDICULARP
;;; Evaluates if p1 p2 segment is perpendicular to p3 p4
;;;
;;; Arguments = 4 points
(defun perpendicularp (p1 p2 p3 p4)
  (equal (vxv (vec1 p1 p2) (vec1 p3 p4)) 0 1e-8)
)
;;; VUNIT
;;; Returns the single unit vector of a vector
;;;
;;; Argument = a vector
(defun vunit (v)
  ((lambda (l)
     (if (/= 0 l)
       (mapcar (function (lambda (x) (/ x l))) v)
     )
   )
    (distance '(0 0 0) v)
  )
)

;;; VEC1
;;; Returns the single unit vector from p1 to p2
;;;
;;; Arguments = two points
(defun vec1 (p1 p2)
  (vunit (mapcar '- p2 p1))
)

;;; VXV
;;; Returns the scalar product (dot product) of two vectors
;;;
;;; Arguments = 2 vectors
(defun vxv (v1 v2)
  (apply '+ (mapcar '* v1 v2))
)

[kakt00z]

(setq ang (vla-get-angle (setq obj (vlax-ename->vla-object (car (entsel))))))
(member ang (list (* 0 Pi) (* 0.5 Pi) (* 1 Pi) (* 1.5 Pi)))

[Do$]

kakt00z, с вещественными числами имеешь дело! Никаких прямых сравнений, только с учетом допуска! Например 1e-8, как у Владимира в коде в предыдущем сообщении. Так что не member, а vl-member-if + условие сравнения с допуском.

[kakt00z]

Сообщение от Do$ kakt00z, с вещественными числами имеешь дело! Никаких прямых сравнений, только с учетом допуска! Например 1e-8, как у Владимира в коде в предыдущем сообщении. Так что не member, а vl-member-if + условие сравнения с допуском.

что ж тогда за ортогональность с допусками??
в пустом чертеже в 14 акаде при рисовании с полярным отслеживанием - работает как надо
хотя понимаю что имеется ввиду (сталкивался уже в дин. блоках)
PS указывал путь а не решение

[Эдуард]

Привет. По моему так будет надежнее.

Код:

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

 
(apply 'mapcar
       (cons '=
	     (mapcar 'cdr
		     (vl-remove-if-not
		       '(lambda (x) (or (= (car x) 10) (= (car x) 11)))
		       (entget (car (entsel)))
		     )
	     )
       )
)