Lee Mac lisps
are these still available please?
When I click on a search for such ive found a link to it says doesn't exist.
Maybe it's my internet?
(Curious why when i hit enter it puts in aan extra line break here? I'm on a Samsung tablet)
Comments
-
It's there for me, at
0 -
thanks Anthony. Yes works this morning for me now. Mystery!
0 -
Lee has more responses to forums with great code so if he does not appear to have what you want you can contact him. But I would ask here first. Another site to try, Lee looks at is Cadtutor and it has a lot of users of Bricscad.
0 -
Thanks Alan
I'm still looking for a chainage lisp.You'd commented in 2024.
There's a few out there. Mostly with non Australian STA..... prefix.
Easy to remove but no so other configuration matters.Hadnt found anything quite like i wanted.
Simple chainage as we use it. Ch 0, Ch 20, Ch 200, Ch 2000 etc
And ability to add inflection points and any chainage along the line, polling.
I'll post a query here if I can't find anything.0 -
Just start with a chainage lisp and then work on modifying it to suit your needs. H
Here is one to try.
0 -
Thanks Alan
I have downloaded but it is all way over the top of me.
I have never understood programming, LISP etc. It is a language way beyond me.
Closest I got was writing routines for HP41 calculators.
I can't even get that program to launch. I looked at other LISP routines and note they start with for egs
(defun c:2lay ( / lay ss) So I type 2lay and am away
I can''t work out from the LISP above what invokes the command
First line being (defun div-error (msg)
But was that for me to work out and customise?
I do appreciate the effort you and others go to but I don't want anyone wasting their time so will move on and use my survey program.
I was wanting to wean off that but probably best stick with what I have and can wield successfully.0 -
When you look at lisp code look for the line that has (defun C: what follows the C: is what you type on the command line. in the chainage lisp it is D10. The C: means type command in simple terms.
If you want to run code on loading it straight away you can add say (c:d10) as last line.
Learning say lisp can be a bit daunting at times starting with simpler tasks is the way to learn. The chainage program at around 300 lines is complex so a simple how does it work is not easy to match code but basically get a point walking along the pline at a distance and label that point with a marker and text.
Don't give up, plenty of people here to help.
Ok the D10 version just labels at increments, so you need a couple more functions. Add label at a user chainage, add label at vertice points. Add label at crossing objects pipes etc.
Will add to my "to do" something for you.
0 -
Ah! Thanks. I'd looked for some clue but thought that was needed way up at top, or start of the routine.
I also see now why one of the codes loads and runs on startup.
Will look at that too.I see that Chainage places the chainage along the line not at 90° to it, despite what option I pick.
Have sorted the STA to Ch just need to nut out the rotation bit and the line it draws is way too long.
Will play more.0 -
There is another example of chainage labelling LISP here on CADTutor
Jason Bourhill
CAD Concepts Ltd
0 -
thanks Jason
I'll give that a spin
0 -
I did not check but I think line length is here
(setq line_obj (vlax-invoke acsp 'Addline '(0. 0. 0.) (list 0. (* hgt 12.) 0.)))
So change the 12 as 1st trial
also this change it and it asks for height. Like the 12 maybe is based around say 12" as D10 is imperial.
hgt 1.0 ;(getreal "\nAttribute text height : \n") hgt (getreal "\nAttribute text height : \n")
0
