TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Q1241274614 on November 23, 2012, 04:34:31 AM
-
(command "union" ssrow "")
There are no fast way!
(defun c:tt ( / )(vl-load-com)
(command "undo" "begin")
(setq e2 nil ssrow (ssadd) I -1 e1 nil)
(setq SS (ssget '((0 . "3DFACE"))))
(entmakex (list (cons 0 "LINE")(cons 10 '(0 0 0))(cons 11 '(0 0 1))))(setq path (entlast))
(WHILE (setq ent (ssname ss (setq i(1+ i))))
(command "_extrude" ent "" "p" path )
(if (setq e1 (entlast)) (ssadd e1 ssrow)))
(command "union" ssrow "")
(entdel path)
(command "undo" "end")
(princ)
)
-
I don't think you can get that particular line to go faster. Is it a lot slower than when you do this manually?
Could you post the rest of your code? Perhaps the slow going is due to something else (like how you generate the selection set).
-
In the C:\Documents and Settings\Administrator\Local Settings\Temp generated a lot of temporary files
-
As I thought - it's because of how you're using the selection set. Try this instead:
(defun c:test
(/ ss path en
) (entmakex '
((0 .
"LINE") (10 0.
0.
0.
) (11 0.
0.
1.
))) (command "._EXTRUDE" ss
"" "_Path" path
) en path)
-
Would the vla-boolean method be any quicker?
-
1：vla-boolean Like little difference
2：C:\Documents and Settings\Administrator\Local Settings\Temp a lot of temporary files
File in the following, we test.
-
That DWG is slow because it will be slow extruding 2600+ triangles. Let alone unioning them afterwards.
-
And BTW if you want to have a solid, then why not use Loft to generate that instead of surfaces and then extrude & union?
-
1.And BTW if you want to have a solid, then why not use Loft to generate that instead of surfaces and then extrude & union?
This way I don't understand, consult!
2.extruding 2600+ triangles ，fast！
3.union，Slow！（Solution method）
-
How did you draw the mesh of triangle faces? Rulesurf or so? Is this something like a net-structure or are you attempting to model a tensile-structure?
If tensile, then the Loft command would directly create a nurbs solid for you: Basically you draw profiles along a path. So your path could be the arc as the tensile spans from left-to-right. Draw a profile as a section through the structure at each end and perhaps at the middle to indicate how it "shrinks" in width.
If you need the triangles (i.e. this is something like a curtain wall), then I'd take this loft into Revit as a mass. Then create a curtain wall on its face. Allows for all sorts of profiles per grid / panels per triangle.
-
As an example, the attached has a lofted surface made from 4 arcs drawn on your original. Here's a copy of the command-line to make such:
Command: LOFT
Current wire frame density: ISOLINES=4, Closed profiles creation mode = Solid
Select cross sections in lofting order or [POint/Join multiple edges/MOde]: 1 found
Select cross sections in lofting order or [POint/Join multiple edges/MOde]: 1 found, 2 total
Select cross sections in lofting order or [POint/Join multiple edges/MOde]: 1 found, 3 total
Select cross sections in lofting order or [POint/Join multiple edges/MOde]:
3 cross sections selected
Enter an option [Guides/Path/Cross sections only/Settings] <Cross sections only>: g
Select guide profiles or [Join multiple edges]:1 found
Select guide profiles or [Join multiple edges]: