Topic: ssget filter list

[ssbp]

I  need code to select all text (0 . "TEXT") with insertion point should be (OR (*.00000000) (*.25000000) (*.50000000) (*.75000000))

I have tried bellowed code, but it doesn't work for some drawings. So, want to select text with insertion point.

Thanks in Advance

(defun c:fe ()

(setq ss1 (ssget '((0 . "TEXT"))))

(if (= ss1 nil)
   (princ "There are no text entity containing your search !")
)

(setq lenth (sslength ss1))

(setq i 0)

(while (< i lenth)
   (setq va (ssname ss1 i))

   (setq b (entget va))

   (setq c (assoc 10 b))

   (setq d (cdr c))

   (setq e (nth 0 d))
   (setq g (fix e))
   (setq h (- e g))
   (if (or (= h 0.00000000) (= h 0.25000000) (= h 0.50000000) (= h 0.75000000)) (setq l 1) (setq l 0))

   (setq f (nth 1 d))
   (setq j (fix f))
   (setq k (- f j))
   (if (or (= k 0.00000000) (= k 0.25000000) (= k 0.50000000) (= k 0.75000000)) (setq m 1) (setq m 0))

   (if (or (= l 0) (= m 0)) (command "circle" d "0.75"))

   (setq i (1+ i))
)
)

[CAB]

From my library:
HTH, welcome to the Swamp.

Code: [Select]

============================================================================
Thread by Stig
http://www.theswamp.org/index.php?topic=1333.msg16766#msg16766

I don't blame you. Filtering by coordinates isn't seen all that often but it is
built into SSGET. You need a relational test looking something like this:

(setq sset (ssget "X" '((-4 . "*,*,>=")(10 0.0 0.0 10.0))))

^this will filter all entities with a group 10 point that has Z greater than or
equal to 10.0

The relational test for each coordinate is separated by commas in the -4 group
and the point is simply given as it appears in the entity list, except each
coordinate is a criterion.

If you need to filter more point groups, you need to provide more -4 groups. For
example, to filter both group 10 and 11:

(setq sset (ssget "X" '((-4 . "*,*,>=")(10 0.0 0.0 10.0)(-4 . "*,*,>")(11 0.0 0.0 10.0))))

=======================================================================
CAB 03.29.08
get any nornal that is not 0 0 1
(setq ss (ssget "X" '((-4 . "<NOT")(210 0.0 0.0 1.0)(-4 . "NOT>")(-4 . "*,*,*")(210 0.0 0.0 1.0))))
=======================================================================
 Example by CAB
 Find a circle with a given center point
 
If the center point of the circle & the start point of the plines are the same this will get them.
(setq mdn (ssget "x" (list '(0 . "circle") (append '(10) stp))) )

If you need some wiggle room try this: [ignoring the z]
(setq wiggle 0.05)
(setq mdn (ssget "x" (list '(0 . "circle")
                            '(-4 . ">,*,*") (list 10 (- (car stp) wiggle) 0 0)
                            '(-4 . "<,*,*") (list 10 (+ (car stp) wiggle) 0 0)
                            '(-4 . "*,>,*") (list 10 0 (- (cadr stp) wiggle) 0)
                            '(-4 . "*,<,*") (list 10 0 (+ (cadr stp) wiggle) 0)
                            ) )
)

Reads like this:
(if  (and  (> (center x) (- (pt x) wiggle))
(< (center x) (+ (pt x) wiggle))
(> (center y) (- (pt y) wiggle))
(< (center y) (+ (pt y) wiggle))
    )
===============================
(ssget "x" '((50 . 3.14159)))  ; need to catch rounding errors
use
(ssget "x" '((-4 . ">") (50 . 3.14158)(-4 . "<") (50 . 3.14160)))



=============================
Example by Luis  uses a list of points

(setq filter (append (list '(-4 . "<AND") '(0 . "AECC_POINT") '(-4 . "<OR"))
                     (mapcar (function (lambda (x) (cons 90 x)))
                             num_list
                     )
                     (list '(-4 . "OR>") '(-4 . "AND>"))
             )
)
(ssget "X" filter)
============================================================

[ssbp]

Thanks for your quick reply,
I have already gone through these post & tried. Acad gives error -; error: bad SSGET list value.
Sorry to say. but i did not understand problem.

[CAB]

Are you searching for a Y value of

Code: [Select]

(OR (*.00000000) (*.25000000) (*.50000000) (*.75000000))
Note that in ACAD the point may not be exact so you need to account for that.
Also with text the insert point may be DXF 10 or DXF 11

[ssbp]

No.
i am looking for X and Y co-ordinates. where x will be 0.00000000 or 0.25000000 or 0.50000000 or..........N & same for Y.
how can i provide for (10 *,*,0) ? Z is 0.

[CAB]

Looking at your code I came up with this, not tested.

Code: [Select]

(defun c:fe (/ ss i ent elst dxf10 dxf11 dxfx dxfy)

  (if (setq ss (ssget (list '(0 . "TEXT") (cons 410 (getvar "ctab"))))) ; current space only
    (progn
      (setq i -1)
      (while (setq ent (ssname ss (setq i (1+ i))))
        (setq elst  (entget ent)
              dxf10 (cdr (assoc 10 elst))
              dxfx  (rem (car dxf10) 1) ; get fraction only, remove hole number
              dxfy  (rem (cadr dxf10) 1)
              dxf11 (cdr (assoc 11 elst)) ; this if text is not LEFT justified
        )
        (if (not (equal '(11 0.0 0.0 0.0) dxf11))
          (setq dxfx (rem (car dxf11) 1)
                dxfy (rem (cadr dxf11) 1)
          )
        )
        (if (or (vl-some (function (lambda (x) (equal x dxfx 0.00001))) '(0.0 0.25 0.5 0.75))
                (vl-some (function (lambda (x) (equal x dxfy 0.00001))) '(0.0 0.25 0.5 0.75)))
          (entmakex
            (list (cons 0 "CIRCLE")
                  (cons 6 "BYLAYER")
                  ;; (cons 8 "0") ; layer
                  (cons 10 (list dxfx dxfy 0.0))
                  (cons 39 0.0)
                  (cons 40 0.75) ; radius
                  (cons 62 256)
                  (cons 210 (list 0.0 0.0 1.0))
            )
          )
        )
      )
    )
    (princ "There are no text entity containing your search !")
  )
)
But looks like you were looking for x or y where the fraction = 0.00000000 or 0.25000000 or 0.50000000

[ssbp]

Thank for your efforts.
Yes!
You are correct.
I am  looking for x and y where the fraction = *.00000000 or *.25000000 or *.50000000 or *.75000000

Don't want to check remainder after getting selection set. I need selection set with the bellowed condition

(10 *.00000000 *.00000000 0)
(10 *.25000000 *.00000000 0)
(10 *.50000000 *.00000000 0)
(10 *.75000000 *.00000000 0)
(10 *.00000000*.25000000 0)
(10 *.25000000*.25000000 0)
(10 *.50000000*.25000000 0)
(10 *.75000000*.25000000 0)
(10 *.00000000*.50000000 0)
(10 *.25000000*.50000000 0)
(10 *.50000000*.50000000 0)
(10 *.75000000*.50000000 0)
(10 *.00000000*.75000000 0)
(10 *.25000000*.75000000 0)
(10 *.50000000*.75000000 0)
(10 *.75000000*.75000000 0)

I hope you will understand what I need.
Any Idea on this ?



Thanks in advance

[CAB]

You can remove the items from the selection set that don't match.

What are you wanting to do with the selection set?

[Lee Mac]

Code: [Select]

(setq dxfx (rem (car  dxf11) 1)
      dxfy (rem (cadr dxf11) 1)
)
...
(if (or (vl-some (function (lambda (x) (equal x dxfx 0.00001))) '(0.0 0.25 0.5 0.75))
        (vl-some (function (lambda (x) (equal x dxfy 0.00001))) '(0.0 0.25 0.5 0.75)))

Consider perhaps:

Code - Auto/Visual Lisp: [Select]

1. (equal 0.0 (rem <value> 0.25) 1e-8)

 

[CAB]

Oh, nice one Lee.

[CAB]

I am  looking for x and y where the fraction = *.00000000 or *.25000000 or *.50000000 or *.75000000

No way that I know of for ssget filter to ignore the integer portion of a real number.

[ssbp]

Thanks for your quick reply.

Please find the attached files.
I have copied the text which has left alignment to the right side of the drawing. If you look on the right upper area, you will observed that the text marked with red rectangle is on the perfect co-ordinate as per requirement (*.00000000 or *.25000000 or *.50000000 or *.75000000). Still AutoCAD marks those text with a circle. I am preparing this lisp file for QC purpose and these things is not acceptable.
I have faced same kind of problem few months back (the program was about to insert block as per mentioned co-ordinate through lisp file, but some blocks goes here and there and not on given co-ordinate). I could not found solution for that.
Instead of checking of co-ordinate after selection, I was thinking to select those text only whose insertion point meets above mentioned condition.

Hope you will understand my problem.

Any solution for this ?

Thanks in Advance.

[ronjonp]

Still not sure exactly what your looking for but give this a try (using Lee's rem idea). It will make the "good" text green and the "bad" text red.

Code - Auto/Visual Lisp: [Select]

1. (defun c:fe (/ E I P SS)
2.   (setq i -1)
3.   (if (setq ss (ssget '((0 . "TEXT") (72 . 0))))
4.     (while (setq e (ssname ss (setq i (1+ i))))
5.       (setq p (cdr (assoc 10 (entget e))))
6.       (if (and (equal 0.0 (rem (car p) 0.25) 1e-8) (equal 0.0 (rem (cadr p) 0.25) 1e-8))
7.         (vla-put-color (vlax-ename->vla-object e) 3)
8.         (vla-put-color (vlax-ename->vla-object e) 1)
9.         ;;(entmakex (list (cons 0 "CIRCLE") (cons 8 "0") (cons 10 p) (cons 39 0.0) (cons 40 0.75)))
10.       )
11.     )
12.   )
13.   (princ)
14. )

[CAB]

It an ACAD rounding error
This is what it shows in entget (10 629.0 258.0 0.0)
but this is the actual coordinate  628.9996190536 258.0

[CAB]

Revised code

Code: [Select]

(defun c:fe (/ ss i ent elst dxf10 dxf11 dxfx dxfy)

  (if (setq ss (ssget (list '(0 . "TEXT")))) ; current space only
    (progn
      (setq i -1)
      (while (setq ent (ssname ss (setq i (1+ i))))
        (setq elst  (entget ent)
              dxf10 (cdr (assoc 10 elst))
              dxfx  (rem (car dxf10) 1) ; get fraction only, remove hole number
              dxfy  (rem (cadr dxf10) 1)
              dxf11 (cdr (assoc 11 elst)) ; this if text is not LEFT justified
        )
        (if (not (equal '(0.0 0.0 0.0) dxf11))
          (setq dxfx (rem (car dxf11) 1)
                dxfy (rem (cadr dxf11) 1)
          )
        )
        (if (or (not(vl-some (function (lambda (x) (equal x dxfx 0.001))) '(0.0 0.25 0.5 0.75 1.0)))
                (not(vl-some (function (lambda (x) (equal x dxfy 0.001))) '(0.0 0.25 0.5 0.75 1.0))))
          (entmakex
            (list (cons 0 "CIRCLE")
                  (cons 6 "BYLAYER")
                  (cons 8 "0") ; layer
                  (assoc 10 elst)
                  (cons 39 0.0)
                  (cons 40 0.75) ; radius
                  (cons 62 256)
                  (cons 210 (list 0.0 0.0 1.0))
            )
          )
        )
      )
    )
    (princ "There are no text entity containing your search !")
  )
)