Draw polyline with one shape at one end and another shape at the opposite end
Something like this, perhaps [untested]:
(defun C:SLRR (/ pt wid ht); = Square Left Round Right
(setq
pt (getpoint "\nLower left corner: ")
wid (getdist pt "\nHorizontal overall size: ")
ht (getdist pt "\nVertical size: ")
); setq
(command "_.pline"
"_non" pt
"_non" (polar pt 0 (- wid (/ ht 2)))
"_arc" "_non" (polar (getvar 'lastpoint) (/ pi 2) ht)
"_line" "_non" (polar pt (/ pi 2) ht)
"_close"
); command
); defunThat's in simplest terms, and could have typical enhancements, but see whether it does what you want. It could be made to prompt for various other things, such as horizontal or vertical orientation, which end should be round, angle if not always orthogonal, and [for the horizontal orientation] it could check that the horizontal size is at least half the vertical size [otherwise it's not geometrically viable], etc.
If it does what you want, study the functions involved in the >AutoLisp Functions Reference<, and you should get an idea of how you can make different shapes. If that set of functions can't define a particular shape for you, there are more ways to calculate locations relative to other locations.
Hi there, and thanks for the quick responses. So basically this is what I am trying to achieve. The size of rectangle could change and the size of circle could change. The linetype of the polyline could also change but not as important right now
Obviously I misunderstood the original description -- a picture is worth....
That looks possible, but how would you picture the User procedure? There could be a command for one with a rectangle at the start and a circle at the end, and a separate command for one with circles at both ends, and a separate command for a circle at the start and a rectangle at the end, and a separate command for... [you get the idea]. Or it could be one command that asks for the shape to use at each end. The sizes of the end things could be built in, or it could ask for them. I expect Blocks would be better for the things at the ends than drawing shapes, especially if the shapes might get more complex. Would the end points that the User would pick be the ends of the between-shapes path part, or the midpoints of the shapes at the ends? Etc., etc.
I find Blocks much easier to deal with. Attached is my take on it, Schematic.lsp with its Schematic command.
If the Circle Block it uses is not in the drawing, it makes both Circle and Rectangle Blocks [the only shapes already included, but see below].
It asks what shape you want at the start and at the finish, and what size [for a Circle, the diameter; for a Rectangle, the sizes in both the direction of the path end and perpendicular to that]. If the shape at the finish is the same as at the start, it doesn't ask for the size(s), but uses the same as the one at the start [it could be enhanced to allow different sizes, if needed]. It remembers your choices of shapes and size(s), and offers them as defaults on subsequent use.
You then draw the Polyline path, using any and all options available within the command, and when you finish, it puts the shapes at the ends. The path can aim in any direction at either end [and can even be closed -- it's your responsibility not to do that], and that's why it has you draw the path before it puts in either end shape -- it needs the path there to determine from its start & end directions where to put the Block insertion points and what rotation angles to use.
These were drawn with it:
It's all set up for the possibility of additional Block shapes, the making of which can be added into the Setup routine. None of what it does uses (if) functions with only two choices [such as if-a-Circle, do the Circle thing, if-not, do the Rectangle thing], but it uses (cond) functions with specific conditions by shape, into which appropriate code for other shapes can be added.
@Homecad2007 wrote:
....
no function definition: VLAX-CURVE-GETSTARTPOINT....
Here we go again.... There have been other recent threads in which people got that message even though the (vl-load-com) was included to load the (vl...) functions. [Usually the cause is that (vl-load-com) has not been done, but it's in the code, both mine and @CADaSchtroumpf 's.] I forget whether there was a solution other than something drastic like reloading AutoCAD [maybe Auditing was enough?], but I'll let you Search.
Hi Kent
Tried the code in Bricscad and got the error as reported not sure why as I write nearly everything in Bricscad, will try to track it down and post what I find. I know your code is always bullet proof.
For me something like this as a front end would write the dcl as part of code.
@Sea-Haven wrote:
....
in code version (command-s "_.pline") : _.pline Select start of polyline or [Follow] <Last point>:_.insert Unable to recognize entry. Please try again. ....
That's not what the PLINE prompt looks like for me. I'm still using 2019 -- is this a difference in a newer version?
Is it possible to make the segment all one so that if you erase it the entire segment is selected. Currently the rectangle and circle are separated
@Homecad2007 wrote:
Is it possible to make the segment all one so that if you erase it the entire segment is selected. Currently the rectangle and circle are separated
It could be made to put the three pieces together into another Block [which could mean a lot Block names in a complex drawing, and keeping track of them to give an unused name to each one], or, probably better, into a Group [you wouldn't need to give them names, and you could still Stretch the configurations]. I am not on my AutoCAD computer right now, but I'll look into it next time.
