recognition of a polylinea

[Angelo2449]

Hello everyone,
I would like to check the selection of a polylinea and I wrote this:

(while (= ed1 nil)
                (setq ed1 (entsel "\nseleziona la polilinea esterna : "))
            );;while

            (setq ed11 (entget (entlast)))
            (setq ed111 (cdr (assoc 0 ed11)))

            (princ "\n")
            (princ "ed111 >>>>>>>>>>>>>>>>>>>>>>>>>> ")
            (princ ed111)
            (princ "\n")

            (if (or (/= ed111 "lwpolyline") (/= ed111 "polyline"))
            (progn
                    (alert "non hai selezionato una polilinea!")
                (vl-exit-with-error "uscita dal programma")
            );;progn
            );;if

the code not by mistake, recognizes the wrong selection but does not make me pass"
This is the result:
select the external polyline :
e111 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
Thank you.

 

[Cristallo]

first and 11 you do not have to take it by entlast, but by its name (entlast is the last entity created, not the last selected).
as you do, always pick up the last created entity that (presuming) is a polyline.

Secondly education or lwpline - beads always returns you true because even when the value is lwpline it is different from beads.
replacing the or with a and management becomes correct. in fact the condition returns true only if the value is different piss from lwpline that from pline. if instead the value is a lwpline or a pline the condition and turns out nothing and therefore does not activate the alrt.

(setq ed1 nil ed11 nil ed111 nil)
(while (= ed1 nil)
                (setq ed1 (entsel "\nseleziona la polilinea esterna : "))
            );;while

            (setq ed11 (entget (car ed1)))
            (setq ed111 (cdr (assoc 0 ed11)))

            (princ "\n")
            (princ "ed111 >>>>>>>>>>>>>>>>>>>>>>>>>> ")
            (princ ed111)
            (princ "\n")

            (if (and (/= ed111 "lwpolyline")(/= ed111 "polyline"))
            (progn
                    (alert "non hai selezionato una polilinea!")
                (vl-exit-with-error "uscita dal programma")
            );;progn
            );;if

 

[Angelo2449]

Perfect!
Thank you crystal.

 

[Angelo2449]

Crystal, I still have a question,
a polylinear with :

 (command "_pline" spigextsinup spigextdesup spigextdesdown spigextsindown spigextsinup "")
 (setq pl1 (entlast))

later with this other code:

 (if) (tof heightambientedes) (tof heightambientesin)
(progn)
(command "_extend" pl1 "" murasinsopra "")
(princ)
);
);

I would like to extend wallsinsopra (provided line) up to > pl1 <, this causes error, enlighten me, thank you.
Angel.

 

[Cristallo]

If I remember well you can't extend with the extend command, because it asks for a video pick that you can't pass.
you have to geometrically find the intersection (I think the lisp function is inters) and then point to the point found.

 

[Angelo2449]

Therefore I should first draw a provisional line to > pl1 <, find the intersection through the inters command, possibly cancel the provisional line and trace a new one up to the point found.
here it is good but I should also truncate a line compared to > pl1 <, I hope the command "_breack" fictions!
Thank you.

 

[Cristallo]

look at the syntax of the inters function
no need for the line, just the points that define it. and you can also search for a continuation intersection (flag onseg). check through the help.