CADsite forum

Wat zijn de mogelijkheden met UsE voor AutoCAD

Bekijk hier hoe je in 5 minuten een installatietekening met UsE maakt met bijbehorend schema.

Klik hier en download UsE gratis vanaf de Autodesk app store

Mogelijkheden van UsE

•   Kabelgoten / wandgoten tekenen.
•   Componenten plaatsen normaal of op de muur
•   Nieuwe componenten worden automatisch gedownload van het internet
•   Retail componenten snel kunnen plaatsen
•   Koppel de componenten aan elkaar om een elektrotechnisch systeem te creëren.
•   Zowel normale verdelers als spanningsrails. 
•   Automatisch groepsnummers  invullen bij componenten
•   Controle of bij de componenten de juiste gegevens zijn ingevuld en of ze gekoppeld zijn. 
•   Automatische verdeler schema genereren en invullen en automatisch updaten
•   Armaturenlijsten / tekeninglijsten creëren
•   Automatische kabellengteberekening
•   Extra handige functies om sneller te kunnen tekenen
•   Functies om tekeningen vanuit andere tekenprogramma’s UsE ready te maken.
•   Op dit moment 2 talig (Nederlands / Engels)
•   Makkelijk te leren middels tutorials op youtube.

---

Zie UsE hier nog meer in actie.

---

www.use-full.com

Ik heb dit onlangs ook voor de eerste keer meegemaakt, in taakbeheer AutoCAD afgesloten, daarna werkte alles weer naar behoren.

Nick

Ik heb dit probleem ook bij 1 tekening.
als ik bij deze tekening alle lagen die ik ff niet nodig heb uitzet. dan is bij mij het probleem opgelost,

misschien heb je er wat aan.

gr. ivo

beste aw3some,

ik heb een tekening gemaakt met daarin een rectangle (vierkante polyline)
deze opgeslagen als c:\blok3.dwg
en er onderstaand programma op los gelaten.
en uiteindelijk had ik het vierkant als 3dsolid op mijn scherm staan.

gr. ivo

Option Explicit

Sub TestBlok()

    'Dim omtrek(1) As Object
   
    Dim RefPnt(0 To 2) As Double
    RefPnt(0) = 0: RefPnt(1) = 0: RefPnt(2) = 0
   
    Dim Blok As AcadBlockReference
    Set Blok = ThisDrawing.ModelSpace.InsertBlock(RefPnt, "C:\blok3.dwg", 1, 1, 1, 0)

    'in t word het block ge-explode, dus staat er de polyline in
    Dim t As Variant
    t = Blok.Explode

    'in kroon word t ge-explode dus de polyline worden nu 4 lijnen.
    Dim kroon As Variant
    kroon = t(0).Explode
   

    Dim regionObj As Variant
    regionObj = ThisDrawing.ModelSpace.AddRegion(kroon)
   
    Dim extrudeObj As Object
    Set extrudeObj = ThisDrawing.ModelSpace.AddExtrudedSolid(regionObj(0), 500, 0)
   


End Sub

Thomy,

als in de module een procedure maakt

public sub test

end sub

kan je deze vanuit je userform aanroepen met

modulenaam.test

gr. ivo

kan je iets specifieker zijn

je kan vanuit vba namelijk bijna alles regelen wat je ook gewoon kan tekenen of kan instellen.

gr. ivo

thomy,

als je de code meepost kunnen we meekijken.

gr. ivo

martijn,

er zijn zoals altijd meerdere opties voor je probleem,
of je rond het af als het een getal is, of je rond het af als een string,

als string is het makkelijkst.
je pakt de linkerkant van de string met de lengte van het getal waar de komma staat +1 voor 1 achter de komma

strText = vba.left(dblLengtemaat,vba.instr(1,dblLengtemaat,",")+1)  & "x" & vba.left(dblbreedtemaat,vba.instr(1,dblbreedtemaat,",")+1)

zoiets, uit het hoofd.

gr. ivo