CADsite forum

Hallo,

Ik heb een vraag over de laaginstellingen per viewpoort, alles wat in modelspace staat kan ik makkelijk op freeze zetten en plot hij nu ook zo uit. Ik zit alleen met 1 probleem, zodra ik een xref heb en ik zet een laag op freeze staat deze uit in mijn viewpoort zodra ik hem dan plot komt deze laag alsnog in mijn viewpoort .
Weet iemand hier de oplossing voor? ik heb overal gezocht en zie vaak visretain tevoorschijn komen maar zou niet weten of dat hiervoor is? Graag zou ik dus een laag uit willen zetten in de xref in een aparte viewpoort en deze ook zo plotten.

alvast bedankt voor de moeite!!

Hallo,

Ik werk met autocad 2009 en heb een vraag over een vba die topo achter mijn tekeningen laad van 1000x500 (groote van de topo). normaal werk ik met 4 cijfers voor x en y en zo worden deze GBKN's ook opgeslagen bijv. (6960-4420).
nu heb ik in mijn klic atlas bijv. 98 voor x en 432 voor y staan maar wat ik ook schrijf bijv. voor x 0098 of 0980 -(y 4320) hij pakt deze GBKN's niet.. heeft iemand hier een oplossing voor of een lisp aangezien ik geen topper ben in vba of lisp en niet weet wat alles betekent wat er in staat... als het met uitleg kan graag dan kan ik hier van leren!!

Alvast bedankt!!

de code is:


Sub KoppelXref()

    Dim varRetVal As Variant

    Dim insertedBlock As AcadExternalReference
   
    Dim strHi As String
    Dim strLow As String
    Dim strpad As String
    Dim strTus As String
    Dim strXrefFile As String
    Dim strXrefnaam As String

    Dim dblInsertPoint(0 To 2) As Double

    '
    ' initialiseren
    '
    strpad = "I:\GBKN"
    ' Define external reference to be inserted
    dblInsertPoint(0) = 0
    dblInsertPoint(1) = 0
    dblInsertPoint(2) = 0
    '
    ' vraag inout van gebruiker
    '

varRetVal = ThisDrawing.Utility.GetPoint(, "Klik op gewenste locatie")
'    '
'    strLow = CStr(CLng(CLng(varRetVal(0) - 500) / 1000) * 10)
'    strHi = CStr(CLng(CLng(varRetVal(1) - 500) / 1000)) * 10
'
'    strLow = CStr(CLng(CLng(varRetVal(0)) / 1000) * 10)
    strLow = Left(varRetVal(0), 3) & "0"
'    strHi = CStr(CLng(CLng(varRetVal(1)) / 1000) * 10)
    strTus = Mid((varRetVal(1)), 4, 1)
    If strTus >= "5" Then strTus = "5" Else strTus = "0"
    strHi = Left((varRetVal(1)), 3) & strTus
    '
    ' prepareer bestandsnaam
    '
     strXrefnaam = strLow + "-" + strHi
    strXrefFile = strpad + strXrefnaam + ".dwg"
    '
    ' indien aanwezig koppel bestand als xref, anders meldinge geven.
    '
    If Dir(strXrefFile, vbDirectory) <> "" Then
        Set insertedBlock = ThisDrawing.ModelSpace. _
                AttachExternalReference(strXrefFile, strXrefnaam, _
                dblInsertPoint, 1, 1, 1, 0, True)
    Else
        MsgBox (" De xref-tekening " + strXrefFile + " kan niet worden gekoppeld.")
    End If

End Sub

Citaat van: julien op di 17 05 2011, 15:29:28
Dan zal je een hele resem lagen moeten maken denk ik. Dus je laag verschillende keren maken met een verschillende prefix. Deze kan je dan groeperen.

Al begrijp ik het grote voordeel niet helemaal. Volgens mij wil je iets wat niet kan. Dat een laag de ene keer gezien wordt als 1 en een andere keer als verschillende lagen.

ja ik dacht al dat het zoizo niet in autocad kon maar wist niet of hier een tool voor was zodat je een ander lagensysteem hebt want idd moet ik dan heel veel lagen aanmaken.. en dit is weer niet netjes en de kans is groter dat andere tekenaars op verkeerde lagen gaan tekenen... dus zou de enige oplossing in autocad zijn om bijvoorbeeld van alles een aparte tekening te moeten maken en deze blijven aanpassen (dit is nu onze werkwijze) of blocks te moeten aanmaken... wat ik eigenlijk niet erg logisch vind als het makkelijk opgelost kan worden..... (want nu is elke aparte tekening zeg maar wat je aan en uitzet bij een xref) maar ik wil dit juist in mijn lagensysteem hebben i.v.m. mijn aanpassingen die ik in elke tekening moet doorvoeren...

Citaat van: EddyBeerke op di 17 05 2011, 13:51:30
Bedoel je dan een lagenfilter?
Met een filter kun je in een keer een "set" lagen aan of uitzetten.

ik bedoel dat ik bijvoorbeeld meerdere tekeningen met dezelfde lagen heb maar wel apart aan en uit kan schakelen maar dat deze wel in deze tekening getekent zijn dus stel je maar eens voor dat ik bijvoorbeeld meerdere tekeningen heb (namen) bijv. 1, 2, 3 enz de bovenste laag zeg maar (in fantasie dus dat het geen tekeningen zijn maar bijvoorbeeld een laag die boven al die lagen staat waarmee je alle lagen van dat gebied uitzet) en dan het gewoone lagen proces van autocad eronder omdat ik dezelfde lagen heb bij elke tekening.. wij hebben het al dat we meerdere tekeningen xreffen maar omdat we met een ontwerptekening zitten "projectie" en dan onze eigen werktekeningen moeten tekenen met de geul van de projectie zou ik graag alles naar 1 tekening willen trekken zodat we het bijvoorbeeld ontwerpen en dan verder bouwen in de tekening maar wel verschillende gebieden kunnen uitschakelen en inschakelen, volgens mij met het lagen filter schuif je alles van die laag weg terwijl ik de andere gebieden bijvoorbeeld in me tekening moet behouden qua dezelfde lagen ... dit is normaal wat je in autocad zou zeggen dat je tekeningen maakt en dan xreft maar ik wil ze juist in die eene tekening hebben omdat we dan niks meer dubbel hoefen aan te passen ( nu is het zo zeg maar in de projectie word het aangepast en dan word het in de voeding aangepast en dan de werktekeningen ) dit is dus veel meer werk dan het bijvoorbeeld 1 keer aanpassen en klaar... ik weet niet of dat wel kan met die lagenfilter?? want bij een filter zou ik juist zeggen dat hij het weg filtert dus dat alles van die laag  onzichtbaar word

Alvast bedankt voor je tijd en antwoord!!

Citaat van: EddyBeerke op di 17 05 2011, 12:55:34
Wel eens gehoord van Xrefs?
Hiermee kun je een ander bestand (DWG) onder je huidige tekening leggen (geladen) of uitzetten (unloaden)

ja dat is al standaart, maar dat komt op hetzelfde neer als blocks, ik zou graag willen dat ik alles in 1 tekening zou kunnen tekenen omdat ik anders meerdere tekeningen krijg ....nu werken we met een projectie en de werktekening zeg maar... dit is erg omslachtig omdat je dan dubbel wijzigingen moet doorvoeren want je kopieert eigenlijk de projectie en zet hier je eigen info in, als we een moedertekening zouden hebben dan kunnen we heel makkelijk alles uit en aanzetten wat je wil en zo verder werken in 1 tekening als dit mogelijk is.... ik heb alles al uitgezocht hoe dit het mooiste kon alleen weet ik niet hoe dit met lisp kan en of een tool of dat dit misschien zelf in autocad kan (wat ik niet denk)

Is het mogelijk om bijvoorbeeld (met een tool, lisp of zonder) lagen boven lagen te creëren zodat je deze uitzet terwijl de andere aan blijven?? Bijvoorbeeld ik wil 1 moedertekening maken en mijn tekeningen apart in die tekening hebben, maar het probleem  is deze tekeningen hebben dezelfde lagen + het zijn andere werkweken dus ik moet deze uit kunnen zetten als ik deze zou willen plotten... Ik ken het verhaal wel om met blocks te gaan werken en deze aan en uit te zetten maar dit is erg omslachtig, kost veel tijd en je kan ze niet gelijk aanpassen zodat je deze weer opnieuw moet openen, Ik zou graag willen weten of hier andere oplossingen voor zijn?? Dit zou het werk van ons erg vereenvoudigen....  

Alvast bedankt!!