Подскажите, как найти на плане участок трассы с заданной КНС?
Только перебором и просмотром свойств?
Добрый день!
Можно искать по слою, через мастер проверки. В 3D глазами или через IFC (выгружается IFC, накладывается поверх чертежа, поиск по свойствам IFC даст расположение трассы)
Спасибо, через IFC получилось.
Найти кусок гофрированной трубы 16мм в тысяче трасс 20-ой, та еще задача))
Вот еще lisp от Алисы который находит указанные КНС и строит к ним линии из нуля, крайне коряво, но работает. Быстрее чем по всем кликать. КНС можно поменять на нужные, а линии удалить
(defun c:FindKNS_D16_Line (/ ss i ent props p val pt found)
(setq ss (ssget '((0 . “WL_Connector_DXF_NAME”))))
(if (null ss)
(princ “\nНет объектов WL_Connector_DXF_NAME на чертеже.”)
(progn
(princ “\nПоиск коннекторов с d16мм и отрисовка линии от 0,0,0…”)
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq props (entget ent))
(setq found nil)
;; ---------------------------------------------------------
;; МЕНЯТЬ ТОЛЬКО ЭТУ СТРОКУ ПОД НУЖНЫЙ ДИАМЕТР
;; ---------------------------------------------------------
(foreach p props
(setq val (cdr p))
(if (and (= (car p) 300) (eq (type val) 'STR))
(if (wcmatch val “*d16мм*”) ;; ← сюда вписывай свой диаметр
(setq found t)
)
)
)
;; ---------------------------------------------------------
(if found
(progn
(setq pt (cdr (assoc 10 (entget ent))))
(if pt
(progn
(princ (strcat "\nНайден коннектор в точке: " (rtos (car pt) 2 2) “,” (rtos (cadr pt) 2 2)))
(command “_.LINE” '(0 0 0) pt)
(princ “\nЛиния построена — смотрите на план.”)
)
(princ “\nНе удалось получить координаты этого коннектора.”)
)
)
)
(setq i (1+ i))
)
(princ “\nГотово.”)
)
)
(princ)
)