Author Topic: selection of blocks (Read 4960 times)

TAIKI · « **on:** May 10, 2014, 03:56:05 PM »

Hello

First I’m sorry for my English, I’m French.

Just i want to pick a polyline and the result is a selection of all blocks who have the insertion point on this polyline.

After all bloc selected move on the layer of the polyline.

And do it on all polyline on the same layer.

Thanks

ymg · « **Reply #1 on:** May 10, 2014, 07:48:59 PM »

TAIKI,

Use your polyline as a fence for a selection and filter for block only.

Code: [Select]

(defun c:test (/ fence)
   (setq fence (listpol (car (entsel "\nSelectionnez le polyligne: "))))
   (sssetfirst nil (ssget "_F" fence '((0 . "INSERT"))))	 
)

;;; listpol   by Gille Chanteau                                               ;
;;; Returns the vertices list of any type of polyline (WCS coordinates)       ;
;;;                                                                           ;
;;; Argument                                                                  ;
;;; en, a polyline (ename or vla-object)                                      ;

(defun listpol (en / i p l)  
  (setq	i (if (vlax-curve-IsClosed en)
  	     (vlax-curve-getEndParam en)
	     (+ (vlax-curve-getEndParam en) 1)
	  )
  )	      
  (while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
      (setq l (cons (trans p 0 1 ) l))
  )
)

ymg

TAIKI · « **Reply #2 on:** May 11, 2014, 02:10:07 AM »

Thank you

It’s a good start, just it is possible that filtered more to not take attributes on blocks but just the insertion point or all object.

And the most important do it on all polyline on the same layer, so when lisp prompt to select a polyline the code take all polyline in the same layer that the polyline you pick. To displace all blocks on all polyline on the same layers.

Thanks for your time.

snownut2 · « **Reply #3 on:** May 11, 2014, 07:41:44 AM »

Another drive-thru lisp order.

mailmaverick · « **Reply #4 on:** May 11, 2014, 01:03:24 PM »

Assuming your polyline is 2D, you can use (vla-getboundingbox ....) method to find out the bounding box of the polyline.
Then you can do (ssget "_CP" (list Pt1 Pt2 Pt3 Pt4) (list (cons 0 "INSERT"))) .... of all block entities within this bounding box.
where Pt1, Pt2, Pt3 and Pt4 are the vertices of this bounding box. Note to do (vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point pt1) (vlax-3d-point pt3)) before you do above ssget because it is important that the vertices of the polygon within which you want to get entities must be zoomed in on screen. Here Pt1 and Pt3 are (minx, miny) and (maxx, maxy) coordinates of the bounding box.

Then you can iterate through all the objects to find their insertion point and check whether the point lies on the polyline or not using (vlax-curve-getDistAtPoint..... method.

ymg · « **Reply #5 on:** May 11, 2014, 03:06:05 PM »

TAIKI,

Assuming you assign the Selection Set to variable ss.

Now iterate through it, the insertion point will be given by:

Code: [Select]

(repeat (setq i (sslength ss))
    (setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
)

ymg

TAIKI · « **Reply #6 on:** May 11, 2014, 03:44:49 PM »

thanks a lot

Sorry i'm starting with autolisp.

YMG your first code worked fine, but can you explain me how you create a variable ss to intergrate the code who give the insertion point for filtered.

if it take too time i would know if it possible to intergate a code like that:

Code - Auto/Visual Lisp: [Select]

[/  (cond
    (js
      (sssetfirst nil js)
      (initget "Existant Nouveau _Existent New")
      (if (eq (getkword "\nTraiter jeu de sélection [Existant/Nouveau] <Existant>: ") "New")
        (progn (sssetfirst nil nil) (setq js (ssadd) js (ssget)))
      )
    )
    (T (setq js (ssget)))
  )
]
 

ymg · « **Reply #7 on:** May 11, 2014, 04:04:59 PM »

Code: [Select]

(defun c:test (/ fence)
   (setq fence (listpol (car (entsel "\nSelectionnez le polyligne: "))))
   (setq ss (ssget "_F" fence '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
       (setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
   )	 
)

;;; listpol   by Gille Chanteau                                               ;
;;; Returns the vertices list of any type of polyline (WCS coordinates)       ;
;;;                                                                           ;
;;; Argument                                                                  ;
;;; en, a polyline (ename or vla-object)                                      ;

(defun listpol (en / i p l)  
  (setq	i (if (vlax-curve-IsClosed en)
  	     (vlax-curve-getEndParam en)
	     (+ (vlax-curve-getEndParam en) 1)
	  )
  )	      
  (while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
      (setq l (cons (trans p 0 1 ) l))
  )
)

(setq ss (ssget "_F" fence '((0 . "INSERT")))) you are assigning your selection set to variable ss

TAIKI · « **Reply #8 on:** May 11, 2014, 04:27:05 PM »

okay

it work fine but not easy to use. For me if your first code can do the job on many polyline at once it would be fantastique.

thank you for your help.

ymg · « **Reply #9 on:** May 11, 2014, 04:44:11 PM »

TAIKI,

All the ingredients are there.

Now you need to create a selection set of all the polylines.

Iterates the solution for as many polyline as you have.
Basically the same thing as when we go through the block.

Wrap your head around it, try to come up with the solution.

Post your code and If you need help, will do.

ymg

Bhull1985 · « **Reply #10 on:** May 12, 2014, 02:21:04 PM »

Hint:
'((0 . "LINE,LWPOLYLINE"))))

TAIKI · « **Reply #11 on:** May 12, 2014, 04:13:25 PM »

i think i have a bug:

(

Code - C#: [Select]

defun c:test (/ js fence ss i pl)
(or
    (setq js (ssget "_I"))
    (setq js (ssget "_P"))
  )
  (cond
    (js
      (sssetfirst nil js)
      (initget "Existant Nouveau _Existent New")
      (if (eq (getkword "\nTraiter jeu de sélection [Existant/Nouveau] <Existant>: ") "New")
        (progn (sssetfirst nil nil) (setq js (ssadd) js (ssget)))
      )
    )
 (cond
    (js
(setq fence (listpol(car js)))
         setq ss (ssget "_F" fence '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
       (setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
    )
   )     
)
 
;;; listpol   by Gille Chanteau                                               ;
;;; Returns the vertices list of any type of polyline (WCS coordinates)       ;
;;;                                                                           ;
;;; Argument                                                                  ;
;;; en, a polyline (ename or vla-object)                                      ;
 
(defun listpol (en / i p l)  
  (setq i (if (vlax-curve-IsClosed en)
             (vlax-curve-getEndParam en)
             (+ (vlax-curve-getEndParam en) 1)
          )
  )           
  (while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
      (setq l (cons (trans p 0 1 ) l))
  )
)
 
 
 
 

ymg · « **Reply #12 on:** May 12, 2014, 04:38:50 PM »

TAIKI,

You got more than one bug.

First and foremost subfunction listpol is expecting
an ename as argument. You are supplying (car js).

Variable js is a selection set, you have to iterate through it,
or transform it in a list of ename.

ymg

TAIKI · « **Reply #13 on:** May 13, 2014, 03:16:51 PM »

it's better but idon't understand;

Code - Auto/Visual Lisp: [Select]

(defun c:test (/ js fence ss i pl)
(or
    (setq js (ssget "_I"))
    (setq js (ssget "_P"))
  )
  (cond
    (js
      (sssetfirst nil js)
      (initget "Existant Nouveau _Existent New")
      (if (eq (getkword "\nTraiter jeu de sélection [Existant/Nouveau] <Existant>: ") "New")
        (progn (sssetfirst nil nil) (setq js (ssadd) js (ssget)))
      )
    )
    (T (setq js (ssget)))
  )
  (cond
    (js
(setq fence (listpol(ssname js (setq n (1- n)))))
         setq ss (ssget "_F" fence '((0 . "INSERT"))))
   (repeat (setq i (sslength ss))
       (setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) pl))
    )
   )     
)
 
;;; listpol   by Gille Chanteau                                               ;
;;; Returns the vertices list of any type of polyline (WCS coordinates)       ;
;;;                                                                           ;
;;; Argument                                                                  ;
;;; en, a polyline (ename or vla-object)                                      ;
 
(defun listpol (en / i p l)  
  (setq i (if (vlax-curve-IsClosed en)
             (vlax-curve-getEndParam en)
             (+ (vlax-curve-getEndParam en) 1)
          )
  )           
  (while (setq p (vlax-curve-getPointAtParam en (setq i (1- i))))
      (setq l (cons (trans p 0 1 ) l))
  )
)

ymg · « **Reply #14 on:** May 13, 2014, 08:30:23 PM »

TAIKI,

I believe you have problem making the difference between a selection set and an ename.

A Selection Set is a special list of ename, you access it like so:

Code: [Select]

(repeat (setq i (sslength js))
   (setq ename (ssname js  (setq i (1- i)))
         fence (listpol ename)
	    ss (ssget "_F" fence '((0 . "INSERT")))
   )
   (repeat (setq n (sslength ss))
       (setq pl (cons (cdr (assoc 10 (entget (ssname ss (setq n (1- n)))))) pl))
   )
)

Try to plug this in your routine.

ymg

News:

Author Topic: selection of blocks (Read 4960 times)

TAIKI

selection of blocks

ymg

Re: selection of blocks

TAIKI

Re: selection of blocks

snownut2

Re: selection of blocks

mailmaverick

Re: selection of blocks

ymg

Re: selection of blocks

TAIKI

Re: selection of blocks

ymg

Re: selection of blocks

TAIKI

Re: selection of blocks

ymg

Re: selection of blocks

Bhull1985

Re: selection of blocks

TAIKI

Re: selection of blocks

ymg

Re: selection of blocks

TAIKI

Re: selection of blocks

ymg

Re: selection of blocks