[KEO]

Нужна помощь в написании функции на LISP.
Смысл вот в чем: Есть куча выбранных объектов (отрезков), можно ли как-то из этого выбора исключить отрезки, которые бы не удовлетворяли бы условию "Дельта Х = 0.000".
Другими словами: оставить выбранными только те отрезки, которые были бы вертикальными?

[Кулик Алексей aka kpblc]

Код:

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

(defun test (/ selset res)
  (if (setq selset (ssget '((0 . "LINE"))))
    (progn
      (setq res (ssadd))
      (mapcar (function
                (lambda (x)
                  (ssadd x res)
                  ) ;_ end of lambda
                ) ;_ end of function
              (vl-remove-if-not
                (function
                  (lambda (x)
                    (equal (cadr (assoc 10 (entget x))) (cadr (assoc 11 (entget x))) 1e-3)
                    ) ;_ end of lambda
                  ) ;_ end of function
                ((lambda (/ item tab)
                   (repeat (setq tab  nil
                                 item (sslength selset)
                                 ) ;_ end setq
                     (setq tab (cons (ssname selset (setq item (1- item))) tab))
                     ) ;_ end of repeat
                   ) ;_ end of lambda
                 )
                ) ;_ end of vl-remove-if-not
              ) ;_ end of mapcar
      (sssetfirst res res)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[KEO]

Спасибо большое! То, что надо!