topic Re: using fence as selection in Visual LISP, AutoLISP and General Customization Forum

using fence as selection

Anonymous — Tue, 12 Jun 2018 12:53:00 GMT

Hi everyone,

Can anyone help me with a lisp that when I click on it it will let me FENCE the lines or objects that I want and select them ,so I can deside what to do with them delete or do something else with them.

Exactly like hiting the select-fence, but I want with one click on the lisp (I will turn it into an icon) , it will ask for fence and I can use it like the select tool.

Thank you

Re: using fence as selection

ВeekeeCZ — Tue, 12 Jun 2018 13:20:58 GMT

@Anonymous wrote:
Hi everyone,
Can anyone help me with a lisp that when I click on it it will let me FENCE the lines or objects that I want and select them ,so I can deside what to do with them delete or do something else with them.

Exactly like hiting the select-fence, ~~but I want with one click on the lisp~~ (I will turn it into an icon) , it will ask for fence and I can use it like the select tool.
Thank you

Simple macro like this does that.

^C^C_.PSELECT;_F

Re: using fence as selection

roland.r71 — Tue, 12 Jun 2018 13:36:22 GMT

I'm sure you will find some usefull code here.

At least 3 different functions to choose from (even 1 by Lee Mac!), and what the user/requester used in this case.

Re: using fence as selection

roland.r71 — Tue, 12 Jun 2018 13:48:21 GMT

I never heard of PSELECT, so i just gave it a try, but this only seems to select objects crossing the fence, not what's inside the fence...

Re: using fence as selection

ВeekeeCZ — Tue, 12 Jun 2018 14:04:11 GMT

@roland.r71 wrote:
I never heard of PSELECT, so i just gave it a try, but this only seems to select objects crossing the fence, not what's inside the fence...

Hmm, not sure what the OP is asking for...

My suggestion just uses the Fence method of the SELECT command and keeps selected objects highlighted (PSELECT is basically (sssetfirst)).

If the OP meant to select all objects inside selected polyline as a boundary... then I use this...

(defun c:SI (/ en ss lst ssall tmp head) 	;;Select Inside of contour
  						;;!!!! REQUIRED EXPRESS TOOLS

  (if (and (setq en (car (entsel "\nSelect contour: ")))
           (wcmatch (cdr (assoc 0 (entget en))) "*POLYLINE")
      )
    (progn
      (setq lst (ACET-GEOM-OBJECT-POINT-LIST en 1e-3)
            lst (mapcar '(lambda (x) (list (car x) (cadr x))) lst))
      (while lst
        (setq head (car lst)
              tmp  (cons head tmp)
              lst  (vl-remove-if
                     '(lambda (pt) (equal pt head 1e-6))
                     (cdr lst))))
      (setq lst (reverse tmp))
      (ACET-SS-ZOOM-EXTENTS (ACET-LIST-TO-SS (list en)))
      (command "_.Zoom" "0.95x")
      (if (setq ss (ssget "_CP" lst))   ;or WP vs CP
        (sssetfirst ss ss))))
  (princ)
)

Re: using fence as selection

cadffm — Tue, 12 Jun 2018 15:54:38 GMT

Yes,

pselect is "equal" (sssetfirst nil (ssget))

and not in automation it is the same like PickAdd=2 and Select

and the command isn't alltime available, it loads with the first time properties palette (or only acopm.arx),

but not in LT versions.

Re: using fence as selection

Kent1Cooper — Tue, 12 Jun 2018 17:57:20 GMT

@roland.r71 wrote:

I never heard of PSELECT, so i just gave it a try, but this only seems to select objects crossing the fence, not what's inside the fence...

That's how Fence selection works. It sounds like you want CP [Crossing-Polygon] selection instead.

Re: using fence as selection

roland.r71 — Tue, 12 Jun 2018 18:19:50 GMT

@Kent1Cooper wrote:
@roland.r71 wrote:
I never heard of PSELECT, so i just gave it a try, but this only seems to select objects crossing the fence, not what's inside the fence...
That's how Fence selection works. It sounds like you want CP [Crossing-Polygon] selection instead.

No not what i want, i expected a more 'window' like behaviour, which is clearly not the case.

I'll leave the 'wanting' to the OP

Re: using fence as selection

Kent1Cooper — Tue, 12 Jun 2018 18:43:52 GMT

@roland.r71 wrote:

No not what i want, i expected a more 'window' like behaviour, which is clearly not the case. ....

Fence selection doesn't work that way because there are more window-like behaviors already available, with irregular paths such as one can use in Fence selection, using either CP or WP modes. Which one to use depends on whether you want anything inside or crossing the outline [CP] or only things fully within it [WP] -- the same distinction as between C and W modes, but without the limitation to rectangular outlines.

Re: using fence as selection

roland.r71 — Tue, 12 Jun 2018 18:55:10 GMT

WP is what i meant with "more window like". = select all within, not crossing.

Re: using fence as selection

john.uhden — Tue, 12 Jun 2018 23:31:28 GMT

What, there are no bulged segments in the CZ?

Either that or I missed something, as usual.

Re: using fence as selection

ВeekeeCZ — Wed, 13 Jun 2018 09:03:06 GMT

@john.uhden wrote:
What, there are no bulged segments in the CZ?
Either that or I missed something, as usual.

Ohh yeah, there are. Sometimes, but mostly not or negligible. Sometimes the boundary has so so many vertices....

Well, thinking of that, it would be so nice if I once fixed all the routines I have. In this case it could test the selected boundary for bulges, and then use the nice simple and quick algorithm if there are none, or some comprehensive but slow if there are. For now I just know, that I need to search for different routine that can handle bulges. I guess I can live with that... The question is if the OP can either.

Re: using fence as selection

Anonymous — Wed, 13 Jun 2018 10:35:47 GMT

Try this

(defun c:wp ( / pt1 pt2)
(setq pt1 (getpoint "pick 1st point"))
(setq pt2 (getpoint pt1 "pick 2nd point"))
(setq ss (ssget "wp" (list pt1 pt2))
)

'ss

Re: using fence as selection

roland.r71 — Wed, 13 Jun 2018 10:58:54 GMT

@Anonymous wrote:

Try this

(defun c:wp ( / pt1 pt2)
(setq pt1 (getpoint "pick 1st point"))
(setq pt2 (getpoint pt1 "pick 2nd point"))
(setq ss (ssget "wp" (list pt1 pt2))
)

'ss

Thnx.

...but all i mean to say is i expected the "fence" to be similar to the window selection, in that it selects everything inside. BUT with a polygon made up out of as many points as one wishes. aka "WP".

That's what the functions do i posted in my first reply.

After trying the PSELECT _F option as posted by @ВeekeeCZ i noticed this was not the case. Instead it selects only the lines crossing the fence. aka "CP".

So i learned something new here

...but i'm not looking for any code.

The OP is, but as he's not been back yet, it's not completely clear what behaviour HE (or she?) is looking for. Probably the macro will do.

Re: using fence as selection

john.uhden — Thu, 14 Jun 2018 14:44:23 GMT

I've been working on (actually just thinking of) a new and improved @Anonymous
function for years. When I get it working I will share it with you.

Re: using fence as selection

Anonymous — Thu, 14 Jun 2018 16:03:24 GMT

Hi All,

Thank you all , but I think I miss explained myself , I found exactly what I wanted, I didn't know that there is a default command in Autocad already, it called: SELECT FENCE , after I click on erase,or copy or move I click on SELECT FENCE icon and it allow me to fence by line the entities that I want to do the manipulation on.

Thank you again,

Eyal

Re: using fence as selection

john.uhden — Fri, 12 Apr 2024 22:18:33 GMT

@ВeekeeCZ ,

While digging around for (ssget "_F" pts filter) examples, I ran across this not-too-old thread.

I created that function we wanted to convert a polyline with bulged segments into a non-bulged list of points (see below). I use it like (setq pts (@fencepts plineobj 1.0))

I can .PLINE (mapcar 'command pts) "" and it checks out just fine.

But (ssget "_F" pts filter) gets nothing most of the time. The filter just restricts the selection to curve objects.
Might there be a limit to the number of pts you can supply? Or is there any other caveat when using the fence option?

;;-------------------------------------------------------------- ;; This function adds fence points along bulged segments, if any. (defun @fencepts (fence M / start end param bulge d1 d2 incs d dd p plist L) ;; where: ;; fence is the polyline fence vla-object or ename ;; M is the mid-ordinate for calculating additional points along an arced segment (or (= (type fence) 'vla-object)(setq fence (vlax-ename->vla-object fence))) (setq start (vlax-curve-getstartparam fence)) (setq end (vlax-curve-getendparam fence)) (setq param start) (while (< param end) (setq plist (cons (@2d (vlax-curve-getpointatparam fence param)) plist)) (and (not (zerop (setq bulge (vla-getbulge fence param)))) (setq delta (* 4 (atan (abs bulge)))) (setq chord (distance (vlax-curve-getpointatparam fence param)(vlax-curve-getpointatparam fence (1+ param)))) (setq R (/ chord (sin (/ delta 2)))) (setq x (- 1 (/ M R))) (setq L (* 2 R (@acos x))) (setq d1 (vlax-curve-getdistatparam fence param) d d1 d2 (vlax-curve-getdistatparam fence (1+ param)) incs (max 5 (fix (/ (- d2 d1) L))) dd (/ (- d2 d1) incs) ) (while (< (setq d (+ d dd)) d2) (setq p (@2d (vlax-curve-getpointatdist fence d))) (setq plist (cons p plist)) ) ) (setq param (1+ param)) ) (reverse (cons (@2d (vlax-curve-getpointatparam fence end)) plist)) ) ;;;;;;; OOPS. Almost forget 2 supporting functions... (defun @2d (p)(mapcar '* p '(1 1))) (defun @acos (x) (atan (sqrt (- 1 (* x x))) x))

Re: using fence as selection

daniel_cadext — Fri, 12 Apr 2024 22:27:23 GMT

“Might there be a limit to the number of pts you can supply?”

I wondered about that, I was playing with curve.getSamplePoints to generate a fence.

If there is a limit, it’s a lot!

https://www.theswamp.org/index.php?topic=59425.msg620237#msg620237

Re: using fence as selection

john.uhden — Fri, 12 Apr 2024 22:39:49 GMT

@daniel_cadext ,

Many thanks, but I got nothing out of that. I am ignorant of programming languages other than AutoLisp and Excel DIY functions. Anyway, a lot of your circles seemed to be way off the mark.

Another anyway, my @fencepts function appears to work as wanted; it's the ssget that's not working.

Re: using fence as selection

daniel_cadext — Fri, 12 Apr 2024 23:04:23 GMT

Ah, the goal was to select only the circles that the fence crossed through

Just like fencepts divides the polyline. The API has a function to do this for you (getSamplePoints)

getSamplePoints excepts a value of how many point you want, ssget "_F" pts seems to take 1000s