Polyline e LWpolyline

[Anonymous]

Que alteração faço nesta rotina para que ela selecione qualquer tipo de poligono (POLYLINE, LWPOLYLINE)?
Desde já, agradeço a ajuda.

(defun c:POL (/ EntName^ EntPick@)
(setvar "CMDECHO" 0)
(if (setq EntPick@ (entsel "\nSelect Polyline: "))
(if (= (cdr (assoc 0 (entget (car EntPick@)))) "LWPOLYLINE")
(progn
(setq EntName^ (cdr (assoc -1 (entget (car EntPick@)))))
(DimPL EntName^)
);progn
);if
);if
(if (not EntName^)
(princ "\nNo Polyline selected.")
);if
(princ)
)

[f_santana]

voce precisa entrar com uma condicional OR na verificação de tipo de entidade
(if
(or (equal....)
(equal....)
)
(progn
)
)

[Anonymous]

f_santana,

Fiz alteração que sugeriu e mesmo assim não funcionou:

(defun c:POL (/ EntName^ EntPick@)
(setvar "CMDECHO" 0)
(if (setq EntPick@ (entsel "\nSelect Polyline: "))
(if (or (= (= (cdr (assoc 0 (entget (car EntPick@)))) "LWPOLYLINE") "POLYLINE"))
(progn
(setq EntName^ (cdr (assoc -1 (entget (car EntPick@)))))
(DimPL EntName^)
);progn
);if
);if
(if (not EntName^)
(princ "\nNo Polyline selected.")
);if
(princ)
)

[f_santana · Accepted solution]

não funcionou porque voce não fez da forma correta

(if
(or (= (cdr (assoc 0 (entget (car EntPick@)))) "LWPOLYLINE")
(= (cdr (assoc 0 (entget (car EntPick@)))) "POLYLINE")
)
(progn
)
)

era assim que eu disse para voce fazer

[Anonymous]

Santana,

Obrigado pela ajuda.