Change Polylines that are over a specific length

[Anonymous]

I am in need of a lsp which would change all 2d polylines in a selection
over 10ft long to a layer called "over-10ft"
I realize I can use proerties & filters but a lsp would be quicker.

Thanks!
kd

[Anonymous]

Hi, here is some code that could help:

;;;==============================

(if (setq sset (ssget "x" '((0 .
"*POLYLINE"))))
  (foreach
   
entity
    (vl-remove-if
     
'listp
      (mapcar 'cadr (ssnamex
sset))
    )
    (setq obj
(vlax-ename->vla-object entity))
   
(if
     
(>
       
(vlax-curve-getdistatpoint
         
(vlax-ename->vla-object
entity)
         
(vlax-curve-getendpoint
           
(vlax-ename->vla-object
entity)
         
)
       
)
       
10
      )
     
(vlax-put obj 'layer "over-10ft")
    )
 
)
)

;;;==============================

HTH

--
Humans are born with a wide horizon.
As
time goes by, the horizon narrows and
narrows, until it becomes a point of
view.

"kDispoto" <
href="mailto:kdispoto@burnsmcd.com">
size=2>kdispoto@burnsmcd.com> a écrit dans
le message de news:
href="mailto:6172790@discussion.autodesk.com">
size=2>6172790@discussion.autodesk.com
size=2>...

I am in need of a lsp which would
change all 2d polylines in a selection
over 10ft long to a layer called
"over-10ft"
I realize I can use proerties & filters but a lsp would be
quicker.

Thanks!
kd

[Anonymous]

Thanks for responding

Using acad 2008 I get the following
error.....

Command: (LOAD
"C:/KD/Kd-acad/kd-Lisp/over10ft.lsp") ; error:
AutoCAD.Application: Key not
found

Any help would be
appreciated

[Anonymous]

The code as posted by me, works here, in AutoCAD
2008. I don't know what is in over10ft.lsp. Is there
only my code, or there is something else too ? Can you post it ?

--
Humans are born with a wide horizon.
As time goes by, the
horizon narrows and
narrows, until it becomes a point of view.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"kDispoto" <
href="mailto:kdispoto@burnsmcd.com">kdispoto@burnsmcd.com> a écrit dans
le message de news:
href="mailto:6172958@discussion.autodesk.com">6172958@discussion.autodesk.com...

Thanks for responding

Using acad 2008 I get the following
error.....

Command: (LOAD
"C:/KD/Kd-acad/kd-Lisp/over10ft.lsp") ; error:
AutoCAD.Application: Key
not found

Any help would be
appreciated

[Anonymous]

(defun c:over10ft ()
(if (setq sset (ssget "x"
'((0 . "*POLYLINE"))))
  (foreach
   
entity
    (vl-remove-if
     
'listp
      (mapcar 'cadr (ssnamex
sset))
    )
    (setq obj
(vlax-ename->vla-object entity))
   
(if
     
(>
       
(vlax-curve-getdistatpoint
         
(vlax-ename->vla-object
entity)
         
(vlax-curve-getendpoint
           
(vlax-ename->vla-object
entity)
         
)
       
)
       
10
      )
     
(vlax-put obj 'layer "over-10ft")
    )
 
)
)
);;;

[Kent1Cooper]

Some interesting things I learned from earlier exchanges here, about lengths of objects using (vla...) functions, if 'path' is the entity name:

(vlax-curve-getDistAtPoint path (vlax-curve-getEndPoint path))

unexpectedly returns 0 for *closed* entities, but

(vlax-curve-getDistAtParam path (vlax-curve-getEndParam path))

doesn't. So if you might ever have *closed* Polylines, the end-parameter approach is better than the end-point approach. But,

(vla-get-length (vlax-ename->vla-object path))

gives the total length for Lines and Polylines [though NOT for Arcs or Circles], and would be a more code-efficient way to find lengths in this case.

Perhaps something as simple as this:

{code}
(setq plset (ssget "x" '((0 . "*POLYLINE"))))
(while (> (sslength plset) 0)
(setq plobj (ssname plset 0))
(if (> (vla-get-length (vlax-ename->vla-object plobj)) 120)
(command "_.chprop" plobj "" "_layer" "over-10ft" "")
); end if
); end while
{code}

If you might have any *3D* Polylines that you don't want changed, you'd have to account for that. If you don't, and also never have any 2D "heavy" Polylines, you can change "*POLYLINE" to "LWPOLYLINE". If you're doing Civil work and a drawing unit is a foot rather than an inch, change the 120 to 10.

--Kent Cooper


kDispoto wrote...
I am in need of a lsp which would change all 2d polylines in a selection over 10ft long to a layer called "over-10ft".
....

[Anonymous]

Try the next one:

;;;================================

(defun c:over10ft (/ sset obj)
 
(vl-load-com)
  (if (setq sset (ssget "x" '((0 .
"*POLYLINE"))))
    (foreach
     
entity
     
(vl-remove-if
       
'listp
        (mapcar 'cadr (ssnamex
sset))
      )
     
(setq obj (vlax-ename->vla-object entity))
     
(if
       
(>
         
(vlax-curve-getdistatpoint
           
obj
           
(vlax-curve-getendpoint
obj)
         
)
         
10
       
)
       
(if
         
(vla-item
           
(vla-get-layers
             
(vla-get-activedocument
               
(vlax-get-acad-object)
             
)
           
)
           
"over-10ft"
         
)
          (vlax-put obj 'layer
"over-10ft")
          (alert
"Layer 'over-10ft' not found.")
       
)
      )
    )
 
)
  (princ)
)

;;;================================

HTH

--
Humans are born with a wide
horizon.
As time goes by, the horizon narrows and
narrows, until it
becomes a point of view.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"kDispoto" <
href="mailto:kdispoto@burnsmcd.com">kdispoto@burnsmcd.com> a écrit dans
le message de news:
href="mailto:6173077@discussion.autodesk.com">6173077@discussion.autodesk.com...

(defun c:over10ft ()
(if (setq sset (ssget "x"
'((0 . "*POLYLINE"))))
  (foreach
   
entity
    (vl-remove-if
     
'listp
      (mapcar 'cadr (ssnamex
sset))
    )
    (setq obj
(vlax-ename->vla-object entity))
   
(if
     
(>
       
(vlax-curve-getdistatpoint
         
(vlax-ename->vla-object
entity)
         
(vlax-curve-getendpoint
           
(vlax-ename->vla-object
entity)
         
)
       
)
       
10
      )
     
(vlax-put obj 'layer "over-10ft")
    )
 
)
)
);;;

[Anonymous]

I tried it out and it seems to work as
needed.

Thank you!

[Kent1Cooper]

You're welcome! [It's always nice to have something work the first time without testing it -- that's certainly not always the case....]
--
KC