TheSwamp
CAD Forums => CAD General => Topic started by: AfricaAD on February 01, 2005, 09:36:51 PM
-
I have a lisp routine that creates wide flange struct steel shapes. It generates these shapes in pline format. For some odd reason now, I am unable to pick endpoints on one end of the object. Once I flatten the object, all is well. I am not sure why or if there is a fix for this.
Could it be a lisp conflicting with this?
Thanks!
-
Can you post an example?
-
After the I run the routine, this is what happens.
(http://www.theswamp.org/screens/AfricaAD/no-endpt.gif)
-
What does it show if your LIST it.
-
POLYLINE Layer: "0"
Space: Model space
Handle = 65
Closed
starting width 0.0000
ending width 0.0000
area 2.6778
perimeter 26.7908
VERTEX Layer: "0"
Space: Model space
Handle = 66
at point, X= 3.1582 Y= -0.8225 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 67
at point, X= 4.7932 Y= -0.8225 Z= 0.0000
starting width 0.0000
Press ENTER to continue:
ending width 0.0000
bulge 0.4142
center X= 4.7932 Y= -0.5725 Z= 0.0000
radius 0.2500
start angle 270
end angle 0
VERTEX Layer: "0"
Space: Model space
Handle = 68
at point, X= 5.0432 Y= -0.5725 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 69
at point, X= 5.0432 Y= 4.3975 Z= 0.0000
starting width 0.0000
ending width 0.0000
bulge 0.4142
center X= 4.7932 Y= 4.3975 Z= 0.0000
radius 0.2500
Press ENTER to continue:
start angle 0
end angle 90
VERTEX Layer: "0"
Space: Model space
Handle = 6A
at point, X= 4.7932 Y= 4.6475 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 6B
at point, X= 3.1582 Y= 4.6475 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 6C
at point, X= 3.1582 Y= 4.8625 Z= 0.0000
starting width 0.0000
ending width 0.0000
Press ENTER to continue:
VERTEX Layer: "0"
Space: Model space
Handle = 6D
at point, X= 7.0982 Y= 4.8625 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 6E
at point, X= 7.0982 Y= 4.6475 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 6F
at point, X= 5.4632 Y= 4.6475 Z= 0.0000
starting width 0.0000
ending width 0.0000
bulge 0.4142
center X= 5.4632 Y= 4.3975 Z= 0.0000
Press ENTER to continue:
radius 0.2500
start angle 90
end angle 180
VERTEX Layer: "0"
Space: Model space
Handle = 70
at point, X= 5.2132 Y= 4.3975 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 71
at point, X= 5.2132 Y= -0.5725 Z= 0.0000
starting width 0.0000
ending width 0.0000
bulge 0.4142
center X= 5.4632 Y= -0.5725 Z= 0.0000
radius 0.2500
start angle 180
end angle 270
Press ENTER to continue:
VERTEX Layer: "0"
Space: Model space
Handle = 72
at point, X= 5.4632 Y= -0.8225 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 74
at point, X= 7.0982 Y= -0.8225 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Handle = 75
at point, X= 7.0982 Y= -1.0375 Z= 0.0000
starting width 0.0000
ending width 0.0000
VERTEX Layer: "0"
Space: Model space
Press ENTER to continue:
Handle = 76
at point, X= 3.1582 Y= -1.0375 Z= 0.0000
starting width 0.0000
ending width 0.0000
END SEQUENCE Layer: "0"
Space: Model space
Handle = 78
-
Only the snaps will not work if snapped to it. Grips will work though.
-
hmmm... where's you say you got this routine??? :wink:
Same thing happened to an old routine of mine, it was originally written for R9, and used the old polyline type. Somewhere just before the PLINE command is entered add a line something like this:(setvar "plinetype" 1)
-
I use the stl.lsp from Al rogers. Would setting it to 2 be better?
Thanks!
-
Very nice program. Just downloaded and installed it. Check your verison. You may have an older version. It worked fine here. My plinetype is set to 1. You may be able to use this CADaver.
March 2002 tip 1779
http://new.cadalyst.com/code/browseyear.cfm?fullyear=2002
-
I downloaded it from there as well. I may have had another lisp that may have changed the plinetype to 0. It worked fine until last week. I just added the variable setting to the lisp in case it happens again.
-
Oh I have a pretty extensive steel program. The reason why I asked, is mine did the very same thing when we moved to R14 from R13, and I was just curious.
-
Which steel prog you got? Is it one of those you have to purchase?
-
Which steel prog you got? Is it one of those you have to purchase?
Wrote it for R9, been patchin' it with baling wire and chewing gum ever since. Someday, when I get the time, I'm gonna re-write it from the ground up.
-
I don't have a "program" for steel, but I do have an extensive library of 3D steel shapes. Saved as regions, you drop 'em in and extrude to length or along a path. Elbows, tees, flanges etc are saved as blocks. It works purty good too. Kinda like playin' with leggos or sumpin'....
-
I don't have a "program" for steel, but I do have an extensive library of 3D steel shapes. Saved as regions, you drop 'em in and extrude to length or along a path. Elbows, tees, flanges etc are saved as blocks. It works purty good too. Kinda like playin' with leggos or sumpin'....
Mine creates the block 2D or 3D. For 3D it asks for beam length or column height and adjusts the X-scale or Z-scale accordingly.
-
Is it quicker/easier than the library? Can you pick start/end if the dist is unknown? How about along a path (great for tubing)?
-
Is it quicker/easier than the library?
I think so.
Can you pick start/end if the dist is unknown?
Sure, uses (getdist)
How about along a path (great for tubing)?
Well it's a steel program so no it won't extrude along a path.
I've found that blocks are considerably lighter memory-wise than 3dsolids or regions, and less susceptible to errant corners than surfaces. We also have tools in place for changing the length of the shapes, or switching them out for a different shape.
-
The only thing I use surfaces for is eccentric reducers ... I still can't get those reducers to open!! Arrrrggggggghhhhhh!!!!
Oh well, I've lived without them for all this time.....
-
I have another one I sometimes use as well. It only creates the shapes & more simple to use, but has some errors. What I would like to do is convert the shapes into blocks after it is drawn using the entmake program. Unfortunately, I am no coder. :cry:
-
What I would like to do is convert the shapes into blocks after it is drawn using the entmake program. Unfortunately, I am no coder. :cry:
Neither am I. I used the dreaded(command...
Built the shape with PLINE, then EXTRUDEd it, then BLOCKed it.