CADsite forum

sorry dat ik niet vaker reageer, maar ben onderweg naar mars 

Maar eigenlijk zijn alle opgelegde standaarden draken van richtlijnen niet bedacht door tekenaars.
Tijdens het tekenen gebruik ik nog immer mijn eigen lagen structuur dwz laag 1 2 3 4 5 6 7 etc
als ik klaar ben druk ik op een knop en worden al mijn lagen omgezet naar de standaard die vereist is.
Zijn er nogal wat namelijk corus tata nlcs klantspecifieke eisen etc maar ik ben nogal van het intikken (30 jaar geleden begonnen op een mocochroom scherm. daardoor enigzins gemankeerd)  maar vooralsnog is er geen sneller dan ik bij ons in het bedrijf. la <enter> s <enter> 1<enter><enter>  gaat nu eenmaal sneller dan de knoppen en het lint.  en ja ik heb la aan moeten passen, bij jullie is het w.s. -la

ergo: beter is het maken van een handige eigen template en ja dat kan in een uurtje klaar zijn. lege tekening alles eruit purgen.  met designcenter de lagen en andere objecten die je wilt hebben uit andere tekening slepen.
saven als dwt en dwg (kan handig zijn) en klaar ben je.  de dwg maak ik ook want dan kan ik eenvoudig alle lagen in een bestaande inroepen   -i <enter>*jouwtemplate<enter><enter> en door het sterretje is de template geexplodeerd ingeroepen en heb je alleen alle lagen over.

p.s. ik zie een rode planeet ga me klaar maken voor de landing. 

Sharepoint is wat mij betreft niet echt geschikt voor tekeningen, instellingen en file locatie.
maar ik zou dit simpeler oplossen.  je moet NOOIT en dan bedoel ik ook NOOIT afhankelijk willen zijn van het netwerk de cloud of andere file locaties anders dan je eigen PC met AutoCAD,  1 keer server problemen en 20 man zit duimen te draaien. 

bij het opstarten van AutoCAD laat ik een scriptje de laatste aanpassingen van het netwerk halen en naar de harde schijf kopieeeren. Heeft iedereen altijd de laatste versie en update van de instellingen etc, maar. mocht het netwerk down zijn kunnen de gebruikers toch door werken met de versie van de files die ze de voorlaatste keer met opstarten van AutoCAD hebben gekopieerd.  bijkomend voordeel voor jou is dat je naar een hard pad op de lokale pc kan verwijzen in je toolpalletes.

gr Remo

Zijn er geen afspraken te vinden over schaal etc. want ik heb vooral moeite met de diversiteit aan kwaliteit...
alles altijd 1 op 1 met uniforme laagafspraken..  of zoiets.......

komt dat niet gewoon door dat automatisch aanvullen.... 

zie http://autocadinsider.autodesk.com/my_weblog/2013/04/autocad-2014-autocomplete-command-entry.html

ga het morgen even proberen.. meestal is het vervelend. soms (mocht ik een commando of allias vergeten zijn) is het handig...   

commando _UNDEFINE  gevolgd door een commando kun je standaard commando's disablen...
kan je heel gemene dingen mee uithalen...

p.s.  redefine is dan ook wel weer handig om het ongedaan te maken.

Nee dat is juist de bedoeling....

http://www.autodesk.nl/adsk/servlet/index?siteID=431528&id=10823260

het mag echt........  ook bedrijfsmatig.....

Yep, dat mag, is helemaal gratizzzzz....... 
je kunt de laatste versie dan ook gewoon gratizz downloaden bij autodesk

Citaat van: boeka op zo 03 08 2008, 15:21:45
Ik zoek mensen die mij eens kunnen uitleggen waar ik hier een versie kan downloaden voor cad want ik moet een oefening maken en deze van 2d nr 3d omzetten.

grtz

Volgens mij is een trail downloaden gewoon legaal..

en dat kan https://fd9.formdesk.com/ace/TrialAutocad   daar...

p.s. ik heb het ze;f niet geprobeerd, aangezien ik eigenaar ben van een legale versie......  dus zou het aardig zijn als iemand meldde of het gelukt is...

Citaat van: EddyBeerke op do 24 07 2008, 14:56:53
Hier is misschien wel een oplossing in vba:

Code Selecteer Uitklappen

Sub Zoek_Tekst()

Dim Antw
Dim Inp, XX As AcadText, ST As AcadText
Dim i
i = 0
   Inp = InputBox("Geef zoekwaarde:", "Ik zoek...")
   On Error Resume Next
   For Each ST In ThisDrawing.ModelSpace
   If ST.TextString = Inp Then
      'ST.Highlight (True)
     
      Set XX = ST.Copy
      For i = 0 To 500
        XX.Height = XX.Height + "0.002"
        Update
      Next
      For i = 0 To 500
        XX.Height = XX.Height - "0.002"
        Update
      Next
      XX.Delete
      Update
      Antw = MsgBox("Verder zoeken?", vbYesNo, "Zoek de: " & Inp)
      If Antw = "7" Then ZoomCenter ST.InsertionPoint, 1: Exit Sub
   End If

   Next
   MsgBox "Zoeken voltooid!", , "Zoek de: " & Inp
End Sub

Het zoekt een ingevoerde tekst in modelspace en zoomt ernaar toe.

hmm  veelbelovend.....  is het handig als ik hem dit weekend nog aanpas en uitbreid naar zoeken in atributen?

grafische kaart is metabelangrijk..........

Citaat van: KADANS op vr 13 06 2008, 17:18:54
Hallo,

Een klein probleempje met DWG VIEW.
Wij tekenen hier in autocad, en zetten onze plannen ter beschikking van andere. Deze kunnen de plannen alleen raadplegen, en niet bewerken, dit via het programma DWG treu vieuw.

Meestal worden de plannen opgeroepen via verkenner, of via een link uit excel. Als ik die oproep, dan openen deze plannen zonder probleem, maar ik heb dan ook autocad. Als iemand ze opend met DWG treu view, dan krijgt hij eerst een vraag om een template te openen. (Echter kan men enkel dwg-formaten selecteren, en geen dwt.) Aangezien we geen andere tekening wil openen, drukt men op ESC, en dan opent de tekening wel. Dit geeft al enige verwarring, zeker voor mensen die dit zelden gebruiken. Verder is er nog het probleem, dat men tussen het opstarten en de vraag naar een template, een 2 à 3 minuten moet wachten. En dat men geen andere bewerking mag doen, of men vind het template-scherm niet meer terug. Dan moet men eerst alle andere applicaties sluiten, inclusief autocad. Alvorens men het scherm terug krijgt, en dit duurt heel lang. Men krijgt dan ook verschillende keren de melding, dat autocad een ole-bestand probeert te openen.

Vermoedelijk zoekt DWG view een opstartbestand (template), om de tekening te openen, iets wat standaard in autocad zit. Hij vindt dit niet (daar zit de wacht tijd), en vraagt dan een template, die hij eigenlijk niet nodig heeft.

Weet iemand misschien hoe en waar ik dit kan uitschakelen.


KADANS

probleem is volgens mij een rechtenkwestie....
ik had het ook tot ik besloot (ook om andere redenen) de gebruiker waar ik dwgtrueview installeer eerst administrator te maken...
dan de boel installeer, daarna een tekening open dan nog even wat instellingen aanpas. daarna haal ik de admin rechten van de gebruiker weer weg, en ze kunnen het normaal gebruiken, geen template vraag en een stuk vlotter als de eerste keer....

DWG trueview is de oplossing...
maar zoals eerder gezegd...  er bestaat natuurlijk nooit een programma voor alle toekomstige versies..
wel kan je als je nu de meest recente viewer installeerd er vanuit gaan dat die meestal wel 1 of twee versies meegaat..
aangezien niet bij elke nieuwe versie autocad er iets veranderd aan het bestand formaat .

vuistregel is dat elke 3 versies autocad er ongeveer 1 nieuw bestands formaat komt...
klachten leg je natuurlijk bij autodesk neer, want het natuurlijk bezopen dat er elk jaar (bijna)  een nieuwe versie autocad uitkomt....

Je tekening is niet te groot om te plotten...

er is een ander probleem....

alles al goed nagekeken,   ctb files plot instellingen zichtbaar/ontzichtbare lagen...  etc etc...

anders kan je audit misschien proberen, of er ergens een bitje fout zit...

misschien helpt het de tekening als een wblock weg te schrijven en die dan weer te inserten in een nieuwe lege tekening.....

maar de bestandgrootte kan het probleem niet zijn.....

Citaat van: Huib op di 26 02 2008, 17:07:53
Ik heb een tekening ontvangen waarin VBA-macros verwerkt zitten. Althans, dat is de melding als ik de tekening open.
Maar zowel met de VBAmanager als met de Visual Basic editor lukt het met niet om er vanaf te komen.
Iemand misschien een suggestie hoe ik deze macros uit die tekening vewijderd krijg?
Met het openen maakt hij tevens melding van proxy-entiteiten. Daarover heb ik  eigenlijk dezelfde vraag....

M.vr.gr
Huib

Met de visual basic editor naar code in thisdrawing zoeken en verwijderen..

Maar je kan ook de tekening nadat je hem geopend heb als wblock wegschrijven dan ben je in elk geval van de code af.... en
voor proxi entiteiten Superpurge van Manusoft als je niet op de normale manier er vanaf komt...

Citaat van: wim2440 op za 23 02 2008, 16:58:34

Citaat van: Reimer op ma 04 02 2008, 13:47:22
Het kan ook zijn dat de inhoud van het block de eigenschap BYBLOCK heeft gekregen. Wanneer je het block zelf rood maakt wordt de inhoud van het block rood weergegeven. Wanneer je de kleur van het block BYLAYER maakt wordt alles weergegeven in de kleur van de laag waar het block op staat. Het kán dus best zijn dat Wim2440 zijn block een vaste kleur wil geven.

Reimer

dank voor uw reactie maar was niet helemaal mij vraag; ik insert via vba een block, dat gedefinieerd is als color by block, dus geen probleem. maar tijdens of direct na inserten wil ik nu het betreffende block een kleur geven. dus graag advies hoe je in vba een block kunt inserten en tegelijk de kleur bepalen ofwel na inserten de kleur kunt bepaln van laatst geinserteerd block. alvast bedankt

bedankt heer Reimer voor uw reactie, maar ik ben er nog niet helemaal uit : mijn bedoeling is om een blok, dat color byblock is getekend, te inserten en dan van de juiste kleur te voorzien, net zoals je dat manueel zou doen, wanneer je een block insert en daarna de kleur aanpast. ik ben dus op zoek naar de vba code hoe je achtereenvolgens een blok insert en daarna dit blok een kleur geeft.
mvg
wim.

eerst de gewenste laag current maken in vba dan het block inserten en daarna de laag weer terugzetten.....


hier de standaard code voor het activeren van lagen etc...
Kan veel korter hoor deze code...

Sub Example_ActiveLayer()
    ' This example returns the current layer
    ' and then adds a new layer.
    ' Finally, it returns the layer to the previous setting.
    Dim currLayer As AcadLayer
    Dim newLayer As AcadLayer
   
    ' Return the current layer of the active document
    Set currLayer = ThisDrawing.ActiveLayer
    MsgBox "The current layer is " & currLayer.name, vbInformation, "ActiveLayer Example"
   
    ' Create a Layer and make it the active layer
    Set newLayer = ThisDrawing.Layers.Add("TestLayer")
    ThisDrawing.ActiveLayer = newLayer
    MsgBox "The new layer is " & newLayer.name, vbInformation, "ActiveLayer Example"

    ' Reset the layer to its previous setting
    ThisDrawing.ActiveLayer = currLayer
    MsgBox "The active layer is reset to " & currLayer.name, vbInformation, "ActiveLayer Example"
End Sub


groetjes