Topic: Xref listing

[ronjonp]

Do any of you have a routine that will grab all xrefs and generate a list in the textscreen of the xref name, the insertion point, rotation, and scale?

Thanks,

Ron

[M-dub]

There might be something at Cadalyst.com...I just did a search and found something called 'Name that Block'.  Go have a look there and you might find what you're looking for.
(Sorry, that's all I've got for ya...)
http://new.cadalyst.com/code/tips/CodeSearch_Advanced.cfm

[Mark]

maybe ..........

http://www.theswamp.org/phpBB2/viewtopic.php?t=3816

[M-dub]

Guess I should have tried searching this wonderful site first.

Sorry Mark & MP!

[MP]

<SlapWithWetFishUpsideHead.mpg>

Kidding!

[AfricaAD]

See Xtools:

http://www.theswamp.org/phpBB2/viewtopic.php?t=3718&postdays=0&postorder=asc&start=0

[M-dub]

<SlapWithWetFishUpsideHead.mpg>

Kidding!

That reminds me...
Have you seen the movie 'UHF' with Weird Al and Michael Richards (Kramer)?


"You so stupid!"  (You have to have seen the movie to know what I'm talking about....)

[MP]

A really LONG time ago M-Dub, lol!

So long I don't get it.

[M-dub]

I think it was called 'Wheel of Fish' and the lady had to pick a box that contained her prize.  After picking one, the (oriental) host says "Let's see what's in the box"......
"Nothing!  Absolutely Nothing!!!  You stupid!  You so stupid!"

Something like that, anyway....I don't know why it reminded me of it, but it did...I should buy that movie even though it's horrible...it's still funny.
You MUST remember the kid who finds the marble in the pool of oatmeal and gets to drink from the 'magic firehose'...?!?!

ROFL!!!

[ronjonp]

Code: [Select]

(defun c:getxr (/ ent b c scalex scaley scalez insertpt xrname)
(setq ent (entsel "\nSelect Xref"))
(if (= (cdr (assoc 0 (entget (car ent)))) "INSERT")
  (progn
    (setq b (car ent))
    (setq c (entget b))
    (setq scalex (cdr (assoc 41 c))) ;get xref x scale
    (setq scaley (cdr (assoc 42 c))) ;get xref y scale
    (setq scalez (cdr (assoc 43 c))) ;get xref z scale
    (setq insertpt (cdr (assoc 10 c))) ;get xref insertion  
    (setq xrname (cdr (assoc 2 c))) ;get xref name
           (list xrname scalex scaley scalez insertpt)    
  )
)
)

How do I convert scalex scaley scalez and insertpt to strings so I can use strcat? Am I going about this wrong?

Mark,

I saw the getxrefsproperties but was unsure where to start with all that code.  

Thanks,

Ron

[Mark]

How about this Ron.

Code: [Select]


(defun c:getxr (/ ent b c scalex scaley scalez insertpt xrname)
    (setq ent (entsel "\nSelect Xref"))
    (if (= (cdr (assoc 0 (entget (car ent)))) "INSERT")
      (progn
        (setq b (car ent))
        (setq c (entget b))
        (setq scalex (cdr (assoc 41 c))) ;get xref x scale
        (setq scaley (cdr (assoc 42 c))) ;get xref y scale
        (setq scalez (cdr (assoc 43 c))) ;get xref z scale
        (setq insertpt (cdr (assoc 10 c))) ;get xref insertion
        (setq xrname (cdr (assoc 2 c))) ;get xref name
        (setq product
  (mapcar 'vl-princ-to-string
  (list xrname scalex scaley scalez insertpt)
  )
 )
(foreach item product
 (princ (strcat "\n" item))
 )
      )
 
    )
(princ)
)

output -->
Select Xref
710-151
1.0
1.0
1.0
(0.0 0.0 0.0)


[CADwoman]

Mark, this seem to be what i need. But the link is not working. I'm looking for ways to script process a group of files and then get a report of the xref list for each file. any such animal out there? thanks

maybe ..........

http://www.theswamp.org/phpBB2/viewtopic.php?t=3816