SSget for only Blocks of attributes

[Michaels]

So I could not solve the issue, Anybody could help me with it please ?

[Lee Mac]

So I could not solve the issue, Anybody could help me with it please ?

 

So you want someone to do it for you?

 

(defun c:out ( / f e l )
 
 (if (and (setq f (open "D://atts.txt" "w"))
          (setq e (car (entsel "\nSelect Block: ")))
          (eq "INSERT" (cdr (assoc 0 (entget e))))
          (= 1 (cdr (assoc 66 (entget e))))
     )
   (progn
     (write-line (cdr (assoc 5 (entget e))) f)

     (while (not (eq "SEQEND" (cdr (assoc 0 (setq l (entget (setq e (entnext e))))))))
       (write-line (strcat (cdr (assoc 2 l)) "\t" (cdr (assoc 1 l))) f)
     )

     (close f)
   )
 )

 (princ)
)

 

*shrug*

[pBe]

As a quick modification of my previous code:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] PadMiddle [b][color=RED]([/color][/b] s1 s2 ch ln [b][color=RED])[/color][/b]
[b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]<[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] s1[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strlen[/color][/b] s2[b][color=RED]))[/color][/b] ln[b][color=RED])[/color][/b]
[b][color=RED]([/color][/b]PadMiddle [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] s1 ch[b][color=RED])[/color][/b] s2 ch ln[b][color=RED])[/color][/b]
[b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] s1 s2[b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]
[b][color=RED])[/color][/b]

 

wow

Wish i could do that... i'm getting there (trying to... ) Lee

 

"Every day, in every way, I'm getting better and better"

[Lee Mac]

wow

Wish i could do that... i'm getting there (trying to... ) Lee

 

"Every day, in every way, I'm getting better and better"

 

Don't worry you will Its funny, once it clicks in your mind how it works, you do start to think about solving problems in a different way.

[alanjt]

Don't worry you will Its funny, once it clicks in your mind how it works, you do start to think about solving problems in a different way.

LoL

http://www.cadtutor.net/forum/showthread.php?37107-Positive-list-values&p=245881&viewfull=1#post245881

[BlackBox]

LoL

http://www.cadtutor.net/forum/showthread.php?37107-Positive-list-values&p=245881&viewfull=1#post245881

 

 

Ha, ha, ha!

 

'Nerdy' humor is funny.