Create Perpendicular Line at every intersection point

[CAB]

Your routine is fine Lee.

[Lee Mac]

Your routine is fine Lee.

 

I just wondered why you were going to all the trouble thats all.

[CAB]

Just enjoying the exercize.

Most of the subroutines I just pulled from my other routines.

The main routine & getClosestPointTo I had to create.

[Lee Mac]

Just enjoying the exercize.

 

I know what you mean, the fun is in creating the routine, not necessarily running it.

[CAB]

Yes, I'll never use half of the routines I write.

[Lee Mac]

Yes, I'll never use half of the routines I write.

 

 

As I was just telling David Bethel - the only two LISPs I ever have loaded on my machine are these:

 

(defun c:enn () (entnext (car (entsel))))

(defun c:en ()    (entget (car (entsel))))

And, they themselves are only for reference.

 

Writing the LISPs is the best part.

[SEANT]

I feel likewise – that the fun is in the challenge.

 

So, in an effort to let VBA share some of the challenge, see attached. It is somewhat of a Frankenstein, with a mix and match of parts from earlier routines, but it seems to run well enough. It should find all vectors perpendicular to a selected LWPolyline from the intersections of a selection set of line entities.

 

Warning: Extremely limited testing and error checking!

Intersect2PolyPerp.txt

[Lee Mac]

Haha, I hope Pryanka is thankful

[SEANT]

I imagine he would be (though that may not be the case if the routine happens to break catastrophically).

 

I also imagine that the contributors to CADTutor learn quite a bit in their effort to help others. That really seems to be the case with this particular forum.

 

Conceivably, it takes a lot of practice to become a good coder. As you and CAB implied; our own requirements may not offer enough coding opportunities to get really good. We owe those asking for coding examples a great deal of gratitude.

[Lee Mac]

Conceivably, it takes a lot of practice to become a good coder. As you and CAB implied; our own requirements may not offer enough coding opportunities to get really good. We owe those asking for coding examples a great deal of gratitude.

 

That is a very good point. - I would not know half as much about LISP as I do now (which still probably isn't very much), if it weren't for the problems posted on this forum.

[David Bethel]

Wow,

 

I just looked as I haven't for a while, I have 1,394 .lsp files ( 22 mb ) in my working directory. I could probably clear out a hundred or 2.

 

My Acad.LSP IS 56 kb and probably has 200 so files quick loads.

 

I have 1 customer that all I do 1 day a week is write code for. The rest are for my companies internal use. Go figure.... -David

[Lee Mac]

Wow,

 

I just looked as I haven't for a while, I have 1,394 .lsp files ( 22 mb ) in my working directory. I could probably clear out a hundred or 2.

 

My Acad.LSP IS 56 kb and probably has 200 so files quick loads.

 

I have 1 customer that all I do 1 day a week is write code for. The rest are for my companies internal use. Go figure.... -David

 

 

Blimey David - I only have about 200 lisps

[SEANT]

Wow,

 

I just looked as I haven't for a while, I have 1,394 .lsp files ( 22 mb ) in my working directory. I could probably clear out a hundred or 2.

 

My Acad.LSP IS 56 kb and probably has 200 so files quick loads.

 

I have 1 customer that all I do 1 day a week is write code for. The rest are for my companies internal use. Go figure.... -David

 

Damn! Isn’t it amazing that as capable as AutoCAD already is, the use of it is so varied as to require an additional 1394 capabilities.

[Lee Mac]

I wonder how many of those 1394 LISPs AutoDesk have now incorporated into AutoCAD over the years...

[MaxwellEdison]

Any coincidence that IEEE 1394 is the standard designation for a FireWire connection? Yeah...its probably a coincidence. Although you never know...perhaps I have a financial interest in the relevence of the 1394 connection requiring me to mention it whenever possible...

 

 

(I do not)

[Lee Mac]

Any coincidence that IEEE 1394 is the standard designation for a FireWire connection? Yeah...its probably a coincidence. Although you never know...perhaps I have a financial interest in the relevence of the 1394 connection requiring me to mention it whenever possible...

 

 

(I do not)

 

Haha you are so random Maxwell - just like your avatar.

[David Bethel]

Seant,

 

Probably half of the routines are parametric routines that builds food service equipment. There a lot of editing things that Acad has incorporated some what over the years. For the most part they are directly specific to my needs. A lot of what Acad has now has come from user's requests or basically taken from forums like this. Express tools started out that way.

 

Maybe 20% belong to my customers as I write them and assign copyrights or exclusives to them. And then there some old old things I use as learning tools. -David

[MaxwellEdison]

Haha you are so random Maxwell - just like your avatar.

Thank you Lee. I like to think that while everyone walks straight ahead on the path of life, I stop at the pay phones to check for change.

 

(I like the new sig by the way)

[CAB]

I have quite a collection of files, many I barrowed.

And I keep several version deep when I write them.

[CAB]

Oops, that was all files. There are only 4,408 lsp files and there must be 20% douplication for copies of versions.