Topic: (renamed) Selecting all overlayed xrefs.

[ronjonp]

Why doesn't thi select all xrefs and overlays in a drawing?


(setq s1 (ssget "x"'((70 . 12))))

Code: [Select]

70 Block-type flags (bit coded values, may be combined):
0 = Indicates none of the following flags apply
1 = This is an anonymous block generated by hatching, associative
dimensioning, other internal operations, or an application
2 = This block has non-constant attribute definitions (this bit is not set if
the block has any attribute definitions that are constant, or has no
attribute definitions at all)
4 = This block is an external reference (xref)
8 = This block is an xref overlay
16 = This block is externally dependent
32 = This is a resolved external reference, or dependent of an external
reference (ignored on input)
64 = This definition is a referenced external reference (ignored
on input)



*Se7en edit: Renamed this thread. Orig title: "Why doesn't this select ..."

MP Edit: Fixed grammar of title; "Xrefs and Overlays" is like saying "Apples and Red ones".[/i]

[David Bethel]

(ssget) works with the inserts, not block table definitions.  

You will have to step, through the block table to find them.  -David

[David Bethel]

It would look something like this.  -David

Code: [Select]

 (while (setq tdef (tblnext "BLOCK" (not tdef)))
         (setq bn (cdr (assoc 2 tdef))
               fg (cdr (assoc 70 tdef)))
         (princ (strcat
          "\n" bn  " is "
         (if (= (logand fg  1)  1) "Anonymous " "")
         (if (= (logand fg  2)  2) "Attributed " "")
         (if (= (logand fg  4)  4) "XRef " "")
         (if (= (logand fg  8)  8) "Overlayed " "")
         (if (= (logand fg 16) 16) "External Dependent " "")
         (if (= (logand fg 32) 32) "Resolved External Dependent " "")
         (if (= (logand fg 64) 64) "Referenced " "")
         )))


[JohnK]

Side note: I feel the title of this thread should be changed.  ...I will rename it.

[t-bear]

Arrogant little twit, ain't he?
Thanks, Se7en..........

[JohnK]

Code: [Select]

If eq Who me? = "Yes"
 Then
    reply: "No, i jut feel that a proper title gets better results, so i renamed it for the benefit of ronjonp."
  Else
    reply: "Yes i agree with you."
 End If


[M-dub]

[ronjonp]

I was just browsing around and found this topic......thanks for the help (3 years late)