Pbejse Lisp Edit / Guidance
@Anonymous wrote:
Sorry, I'm not sure how that lisp is any better than the one I have. I maybe haven't explained myself properly so please see attached drawing and bullet list of what the lisp currently does and what I am trying to see if I can put in to it.
Currently:
- Choose a starting number
- Select multiple blocks
- Sequentially number all stated attributes (Tag "ID") based on two varying default texts (ELEVATION and ADDRESS)
-e.g. If I select 14 blocks, 6 of which contain the text "ELEVATION" in the "ID" tag, and 8 of which contain "ADDRESS", the lisp will number the blocks as Elevation 1 - 6 and Address 1 - 8
What I'd like:
- For the lisp to be able to differentiate that there is varying text as a default in the attribute (e.g. Window, Table, Chair, Door, Bookcase) and number them as per this text whilst retaining this text
-e.g. As per the attached file, I would get attributes with the contents as: Window1, Window2, Door1, Door2, Door3, Table1, Table2
I know from the previous lisp that I can add in more varying texts as a list (so I could add in Window, Door, Table, etc), but I have over 50 different pieces of text and I was hoping there might be a "cleaner" option; someone may add more blocks at some point with other text (e.g. sofa) which wouldn't be included in the lisp selection set.
I hope that makes more sense and sorry to be such a pest!
Sounds easy enough and NO you are not being a pest. 🙂
Perhaps I'll have a look tomorrow and we'll probably do a re-wrte to accomodate your request. but then again maybe not 😄
Be patient...
pBe
Accepted solution
@Anonymous wrote:
Even a nudge towards the line I might need and then I can google like crazy.
Thank you so much 🙂
HYG, if i understood it correclty, it would look something like this. a nudge right?
(defun c:demo (/ mlst blocks evl attval id f)
(initget 7)
(setq startnumber (getint "\nEnter Start Number: "))
(if
(setq mlst nil
blocks (ssget "_:L" '((66 . 1)))
)
(repeat (sslength blocks)
(setq evl (vlax-ename->vla-object (ssname blocks 0)))
(setq attval
(mapcar '(lambda (at)
(list (vla-get-tagstring at)
(vl-string-right-trim " 0123456789" (vla-get-textstring at))
at
)
)
(vlax-invoke evl 'Getattributes)
)
)
(cond
((not (setq id (assoc "ID" attval))))
((setq f (assoc (strcase (cadr id)) mlst))
(vla-put-textstring
(caddr id)
(strcat (cadr id) (itoa (setq cnum (1+ (cdr f)))))
)
(setq mlst (subst (cons (car f) cnum) f mlst))
)
(T
(vla-put-textstring
(caddr id)
(strcat (cadr id) (itoa startnumber))
)
(setq mlst (cons (cons (strcase (cadr id)) startnumber) mlst))
)
)
(ssdel (ssname blocks 0) blocks)
)
)
(princ)
)
Hope this helps.
pBe
Oh wow, way, way more than a nudge, thank you so much!! 
Sorry for the delay in getting back to you; I've been googling most of the morning to try and understand the relevant parts of that lisp. Not much luck but I swear I'll get there one day and then I won't need to pester you lovely people 🙂
Thank you again, greatly appreciated.
@Anonymous wrote:
...Thank you again, greatly appreciated.
You are welcome cmasonslb, hope you'll learn from it.
Happy to help.
Cheers
pBe
@Anonymous wrote:
You're going to be super upset I ever found your lisp in the first place.
I have a weird question. I'm slowly breaking apart both lisps to understand what you've written, and I notice there's a few differences in the way you've done them both. To make this a quick response for you, I have some multiple choice reasons below... 🙂
- The "demo" (most recent) lisp was written in a rush
- The "TagID" (older) lisp is fine, but the way I write lisps has changed
- You(cmasonslb) have completely misunderstood what I've written and both lisps are superb
- Stop asking me questions before I cry
- Other
The only reason I'm asking is because I'm wondering which is the... "better" lisp if you like; if I want to write my own some day, I don't want to be pulling apart inappropriate lisps.
I'm sorry if this is really cheeky...! :S
Not at all, upset is not on my vocabulary, "confuse" now thats the word you should have use.
I'm not sure if there's any question on your post at all?
It surely is, hence it is called "Demo" > 1
Indeed it is different, i opted to write a code from scracth instead of trying to figure out what the other code was all about. it uses the same approac though > 2
Not sure what you meant by those > 3
As far as i can tell the only question i ask was "what do you mean by default?" > thru PM
Another > 5
I always say "there is always a better way" in about everything in this universe. My goal here is to guide/advise and to give suggestions to all those who are willing to learn.
Dont be sorry, at least you have the willingness the learn. Keep it up cmasonslb.
NOW what is the question?
pBe
@Anonymous wrote:
.....The thing I (still) don't understand; if the LISP is required to return all parts of a text string, could you just use car and cdr? Is there a particular reason you'd need to use cadr and caddr?
Thank you,
cmaso
There are separate functions for string and list manipulation
String handling functions -Substr, strcase, wcmatch...
List Manipulation Functions <--- where you use car, cadr, cdr.....
@Anonymous wrote:
so would you mind if I posted an excerpt of some of your code to use as an example for someone to explain?
It would be better if you did posts an excerpt and pinpoint what part of the code you need explaining to. We aer more than happy to guide you cmaso
pBe