CADsite forum

AutoCAD => Autolisp => Topic gestart door: Ben Quanjer op zo 09 01 2005, 22:28:24

Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: Ben Quanjer op zo 09 01 2005, 22:28:24
Ik zoek een programma of stukje lispcode waarmee ik van een element waarin ook sparingen kunnen zitten het zwaartepunt kan bepalen. Als ik het punt heb kan ik verder met programmeren. Met boundery/regions en daarna region/mass properties kom ik niet verder, of ik moet het bestand dat hiermee gemaakt wordt weer inlezen maar dat zijn elke keer wel veel handelingen.
Bij voorbaat bedankt.

BenQ :)
Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: bart op ma 10 01 2005, 07:49:33
2d of 3d ?
Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: Anonymous op ma 10 01 2005, 16:10:45
Beste Bart,
Op dit moment is alleen 2d nodig, ik heb vanochtend van een collega, ik werk bij een constructiebureau, in Belgie noemen ze dat een studiebureau stabiliteit, wel een programmalisting in Basic gekregen, eens kijken of ik die kan omwerken naar lisp. Dit programma rekend het traagheidsmoment uit en deelt dat door de oppervlakte en dan krijg je de zwaartelijn in die richting.
Maar een listing van een kant en klaarprogramma is altijd welkom.
Bij voorbaat bedankt,

Ben Quanjer
Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: Ben Quanjer op za 15 01 2005, 20:57:05
Samen met een stukje VB-code heb ik op dit moment een werkend programma en volgens de gebruiker een stuk sneller als hoe het eerst ging:
Element copieren naar het nulpunt ivm het makkelijker uitlezen van maten, een region maken, daarna met Region/Mass Properties het zwaartepunt bepalen en dan twee blokken plaatsen en de attributen invullen. Het programma werkt nog niet met openingen in het element maar daar is wel een oplossing voor.

Alleen het volgende stukje VBA-code geeft nog een melding:
:?:
Dim ZwaartePnt As AcadBlockReference
Set ZwaartePnt = ThisDrawing.ModelSpace.InsertBlock _(ZwPunt, "s:\tek\bib\ZwPunt.dwg", Schaal, Schaal, 1#, 0#)

Command: Duplicate definition of block _None  ignored.
Duplicate definition of block _None  ignored.
En dit komt elke keer bij het inlezen van het blok.
Ik heb geen idee waarom, misschien heeft iemand dat wel ?

Ben Quanjer
Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: Anonymous op wo 19 01 2005, 11:40:44
Citaat van: Ben Quanjer
Alleen het volgende stukje VBA-code geeft nog een melding:
:?:
Dim ZwaartePnt As AcadBlockReference
Set ZwaartePnt = ThisDrawing.ModelSpace.InsertBlock _(ZwPunt, "s:\tek\bib\ZwPunt.dwg", Schaal, Schaal, 1#, 0#)

Command: Duplicate definition of block _None  ignored.
Duplicate definition of block _None  ignored.
En dit komt elke keer bij het inlezen van het blok.
Ik heb geen idee waarom, misschien heeft iemand dat wel ?

Ben Quanjer


Beste Ben,
:Duiveltje:
Komt het blok _None niet van een bemating die in je blok geplaatst is,
of slechts alleen in de dimstijl zit.


Groetjes de FBI.
Titel: Zoek lispprogramma die zwaartepunt van element bepaald
Bericht door: Ben Quanjer op wo 19 01 2005, 18:11:20
FBI,

Inderdaad zit in het blok een bematingstijl "Standard" met als aanpijling het blok "_None", maar dacht dat dat "geen" blok was.
Bedankt voor de hint.

Ben Quanjer