TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: mbrandt5 on July 14, 2017, 05:02:24 PM
-
:mrgreen:
So does anyone know of a lisp that exists that will do the following...trying to save myself the hassle of writing the code and scrambling the web.
-Prompt you to select multiple objects (Objects A)
(Extract the base points of Objects A) -Store those Base points
-Select Object B
(Extract the base points of Object B) -Store that Base point
-Draw polylines from basepoint of Objects A to base point of Object B via 90 degree angles
...A bonus would be if it did all of this within a selected polyline
-
A sample image/drawing would help :-)
-
Sorry about that
- The Circles with A, are the group A objects (blocks)
- The Rectangle is the group B object
(The blue line is the polyline I was referring to that the lines would hopefully stay within, also if they followed same paths that'd be cool)
The ideal lisp would autopopulate the plines between the two groups
-
If there isn't anything similar....
If anyone could suggest a reference lisp for the three things I'd need to figure out which would be...
1.Drawing a PLine to the x coordinate or y coordinate of object b...which with polar snap of 90 degrees maybe just entering the x and y coordinate would work??
This did not work by the way, would perfer to do this without extracting changing to numbers and subtracting "If possible"
2. Keeping the populated lines in the object?
3.Making the PLines turn? with other PLines?
Assuming it'll take estraction and subtraction of coord.s
-
So in your example, is object 'b' the base and is there only one? There are a few different routes at 90 degree angles.
-
That is correct the plines could start at the base point, I believe CONS 10, that draw to the X or Y coords of each A object branching off as shown, in the picture above.
I found a command online that draws plines from a common base point that is selected, which I could use as a good starting point.
DEFUN C:PBB ()
(PROMPT "\n*POLYLINE BY BASEPOINT* ")
(SETQ BP (GETPOINT "Specify base point: "))
(SETQ LP 1)
(WHILE LP
(COMMAND "PLINE" BP)
(SETQ LP2 1)
(WHILE LP2
(IF (= (GETVAR "CMDACTIVE") 1)
(PROGN
(PROMPT "\nSpecify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: ")
(COMMAND PAUSE)
);END PROGN
(SETQ LP2 NIL)
);END IF
);END LP
);END LP
(PRINC)
);END PBB
Also, not to familiar with VLAX, some experience. While this draws a line to a curve, I think its cons 10 first point cons 11 second, etc.
I think some variation of this addition to that code could come i handy as well.
(entmake (list '(0 . "LINE") (cons 10 (trans BT 1 0))
(cons 11 (vlax-curve-getClosestPointTo entity (trans BT 1 0)))) ;_ list
) ;_ entmake
-
Something like this? 8)
-
Pretty crazy cool.
-
Pretty crazy cool.
Thanks :)
-
That is exactly what I am looking for! :yay!: :yay!:
Any chance you'll share?
-
That is exactly what I am looking for! :yay!: :yay!:
Any chance you'll share?
I'll have to see if I can get it working again .. was messing around with other sorting algorithms and broke it :oops: .
-
Okaledokale!
-
Any luck NinJon
-
I have not had time to look at this. Sorry.
-
Regards, M.R.
-
That code is pretty cool...would you share?
-
But this is my work... You could appreciate that I shared it... Now I hope you'll use them well in your task, otherwise if all this was just for fun, I'll stop doing this and never post a code again...
M.R.
[EDIT : Attached lisps removed from attachment due to lack of appreciation by OP personality...]
-
Thanks ? :idea:
-
While I understand you not wanting to give your code away...I've done that if I thought there was something to gain. Could you share pointers of what codes you used to do this so I can have an idea of where to start. If this is something your trying to market I understand and far well.
-
Send me an e-mail on : ribarm@gmail.com and I'll send you routines...
-
If this is something your trying to market I understand and far well.
I would sincerely hope that this isn't the case, given that this would violate the use of my code in the program...
-
No this isn't the case, I won't sell it, but neither I don't want to attach it again... And I improved it further more and also added version for all 2d curve types, tested it on various 3d positions where UCS follows boundary curve...
BTW. I see that you download it, Lee...