thanks Michael......

This is a multi-part message in MIME format. --------------080206070608080806000202 Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
To Whom It May Concern.
I was having a terrible time with a little code today. I wanted to be able to pick the text for my window designators in plan view and create a list that could be used for my routine that draws my windows in elevation. I WAS STUCK.
Then I came here to solicit help - just knowing Michael at least would be up to the task. Typing the message, the epiphany struck. How's this......
(defun c:strings (/ txt them num ent) (setq them (ssget) num (sslength them) ) (repeat num (setq ent (entget (ssname them (- num 1))) txt (list (assoc 1 ent)(assoc 11 ent) (cons 'rak (cdr (assoc 7 ent)))) ) ;;; get data for particular entity
(if (= new nil) (setq new (list txt)) (setq new (append new (list txt) ) ) ) (setq num (- num 1)) ) )
an ordered list of lists. now I can car and cdr to my heart's content and extract data from my mini data base. just a little more tweaking and I will be able to draw my window elevations without leaving the view where my plan view resides.
and I was stuck big time till I started that post I never sent........
thanks guys.
:)
--------------080206070608080806000202 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> <font face="Arial">To Whom It May Concern.<br> <br> I was having a terrible time with a little code today. I wanted to be able to pick the text for my window designators in plan view and create a list that could be used for my routine that draws my windows in elevation. I WAS STUCK.<br> <br> Then I came here to solicit help - just knowing Michael at least would be up to the task. Typing the message, the epiphany struck. How's this......<br> <br> (defun c:strings (/ txt them num ent)<br> &nbsp; (setq&nbsp;&nbsp;&nbsp; them (ssget)<br> &nbsp;&nbsp;&nbsp; num&nbsp; (sslength them)<br> &nbsp; )<br> &nbsp; (repeat num<br> &nbsp;&nbsp;&nbsp; (setq ent (entget (ssname them (- num 1)))<br> &nbsp;&nbsp;&nbsp; &nbsp; txt (list (assoc 1 ent)(assoc 11 ent) (cons 'rak (cdr (assoc 7 ent))))<br> &nbsp;&nbsp;&nbsp; )<br> ;;; get data for particular entity<br> <br> &nbsp;&nbsp;&nbsp; (if&nbsp;&nbsp;&nbsp; (= new nil)<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq new (list txt))<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq new&nbsp;&nbsp;&nbsp; (append&nbsp;&nbsp;&nbsp; new (list txt)<br> &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; )<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br> &nbsp;&nbsp;&nbsp; )<br> &nbsp;&nbsp;&nbsp; (setq num (- num 1))<br> &nbsp; )<br> )<br> <br> an ordered list of lists. now I can car and cdr to my heart's content and extract data from my mini data base.<br> just a little more tweaking and I will be able to draw my window elevations without leaving the view where my plan view resides.<br> <br> and I was stuck big time till I started that post I never sent........<br> <br> thanks guys.<br> <br> :)<br> <br> <br> </font> </body> </html>
--------------080206070608080806000202--
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
I'm confused. You're thanking me for a response I didn't give to a post you didn't send about a code problem you already solved? TGIF!
--


MichaelB
www.michaelbulatovich.ca
  Click to see the full signature.
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.