Leaderboard

If your doing pipe design "CIVIL SITE DESIGN" takes into account crossing obstructions and shows them on a design long section while you set levels, yes obstructions have a thickness like 150mm and are based on 3d lines.

Try this. (defun c:test (/ ss escvp strscale) (setvar 'cvport 1) ;goes into PAPERSPACE automatically (if (setq ss (ssget "_+.:E:S" '((0 . "VIEWPORT")))) ;only allows you to pick a viewport (progn (setq escvp (vla-get-customscale (setq vp (vlax-ename->vla-object (ssname SS 0)))) strscale (rtos (/ 1 escvp) 2 2) ) ;; You need to set the viewport ID after going into floating modelspace (setvar 'cvport (cdr (assoc 69 (entget (ssname SS 0))))) (prompt (strcat "\nLa escala de La Ventana es 1/" strscale " = " (rtos escvp 2))) ) ) (princ) )

Given that we're working with reals, I would suggest the use of the equal function with an appropriate tolerance - I would reserve zerop for when testing integer values. Hence: (vl-remove-if '(lambda ( x ) (or (equal (car x) 0.0 1e-8) (equal (cadr x) 0.0 1e-8))) lst) Or, for any coordinate: (vl-remove-if '(lambda ( x ) (vl-some '(lambda ( y ) (equal y 0.0 1e-8)) x)) lst)