CADsite forum

Misschien is het handig om hier eens naar te kijken:
https://cadsite.be/cursus/curlessen.php

Citaat van: vbrsteven op wo 24 03 2021, 11:26:44
...
*Layers freezed zetten zou kunnen, enige nadeel, dan zijn ze niet meer zichtbaar
...

Natuurlijk alleen de layers die je uit hebt staan met het "lampje", alleen die op freeze zetten.

Een keer goed purgen kan ook helpen. Zijn er missende shx of ttf (fonts) gebruikt?

Als je weet dat je iets in Inch moet leveren dan moet je gewoon in Inch tekenen -> 1 inch = 1 unit
Je tekening verschalen is dan de beste oplossing:
Een tekening (A) in Inch zetten en dan de andere (B) als xref of als block gebruiken kan ook handig zijn in dit geval.
Plaats je de maatvoering in tekening A dan kun je de aanpassingen in mm blijven doen in tekening B.

Hier een teleurstelling van: Autodesk Support Dec 18 2020:
https://knowledge.autodesk.com/support/autocad/troubleshooting/caas/sfdcarticles/sfdcarticles/Can-AutoCAD-export-a-DWG-to-the-IFC-file-format.html

Met Civil 3d is er een optie om punten van een lijn te verwijderen.
Commando: WEEDFEATURES
Na een paar keer heb ik het weten te reduceren tot 2073 punten
Kijk en vergelijk jou lijnen met die van mij...

Citaat van: Jacobusje op wo 10 02 2021, 22:38:53
Eddy,

Ik weet niet of ik het goed begrijp....
Bart zegt dat Acad geen komma's lust.
Dat zou voor mijn gevoel betekenen dat die komma's omgezet moeten worden in punten. (met vba-code)

Als ik jou code goed interpreteer dan stel je daarmee de eigenschap van de output vast....?

Maar daarmee veranderd de input toch niet? (komma's in Excel)

Of zit ik te moeilijk te denken of op de verkeerde weg?

Ik heb allen een verbetervoorstel gedaan voor de leesbaarheid voor de code.
Gewoon een tip als je verder gaat met coderen. Je zou dat ook kunnen weglaten (wat mij aleen onverstandig lijkt).
De uitdaging met punten en comma's kun je met het volgendet stukje code misschien oplossen:


Dim CV As String, CT As String, S As String, P As Long, Obj As AcadEntity
  ' Waar moet naar gezocht worden
  CV = ","
  ' Wat moet daarvoor in de plaats
  CT = "."
  ' Er wordt van een Obj (een MText of een Text) de TextString opgevraagd
  S = Obj.TextString
    ' Als het een ander object betreft dan is er een error, zo niet ga dan verder
    If Not Err Then
      ' zoek de CV in S, vervolgens check of gevonden (P), dan vervangen door CT
      P = InStr(S, CV): If P <> 0 Then Mid(S, P, 1) = CT
      Obj.TextString = S
    Else
      Err.Clear
    End If


De aanpassing die je moet doen hier is het getal dat je opvraagt in var S zetten i.p.v. S = Obj.TextString
Dan wordt er van een "," een "." gemaakt

Zoals je ziet zijn alle vars gedeclareerd wat een vereiste is als je "Option Explicit" gebruikt.
Lees dit ook eens door voor de voordelen wat geld voor Excel-VBA is voor alle VBA dus ook voor AutoCAD-VBA:
https://wellsr.com/vba/excel/vba-option-explicit/

Citaat van: derockere op ma 08 02 2021, 14:04:02
Nu is het me gelukt!
...
Alleszins bedankt voor het geduld dat je met mij hebt opgebracht!
Sorry voor mijn onkunde.

Citaat van: pieterklaassen op ma 08 02 2021, 11:00:56
moet haast wel , want bij andere tekeningen is er niets aan de hand

Deel eens twee screenshots, van de printerinstellingen die waar het goed bij gaat en van waar het niet goed bij gaat. Eventueel mag je ook de tekening posten van waar het niet goed gaat.

Citaat van: Jacobusje op wo 03 02 2021, 22:45:12
Dag Eddy,

Als ik "Option Explicit" bovenaan mijn code zet loopt hij vast bij KanaalNr van de Sub Rollaag en krijg de volgende melding:
Een variabele is niet gedefinieerd.

Deze melding krijg ik ook als ik
"Option Explicit
Dim commando As String"
Bovenaan de code zet.

Ook als ik "Dim commando As String" bij Sub lijn en bij Sub maten zet.

Waarschijnlijk komt het nogal precies waar de bepaalde codes staan.
Maar ik beheers dit niet genoeg om dat te bevatten 

Waar zou de code "Dim commando As String" precies moeten staan?

De code "Dim commando As String" is een voorbeeld.

Met de code "Option Explicit" verplicht je jezelf om de vars vooraf in je sub te definieeren.
Dan wet je wat er in een var kan komen en sluipen er minder fouten in het coderen.
Zo weet je bv dat bij een "Dim int As Integer" altijd een heel getal komt zonder decimalen.
Bij "Dim commando As String" is er dus altijd sprake van een string -> letter, woord of zin.

Dim Punt(2) As Double
Heeft een soort verdieping dus eigelijk drie vars in één:
Punt(0), Punt(1) en Punt(2) allemaal van het type Double.
Dit kun je bv gebruiken als je een punt opvraagt in AutoCAD, alleen dan geef je geen nummer op.
Hier een simpel voorbeeld:

Option Explicit

Sub GeefPunt()
Dim Punt() As Double ' dit had ook zo kunnen staan: Dim Punt() As Variant -> Voor alles te gebruiken
' Vraag een punt op in het active acad window
Punt() = ThisDrawing.Utility.GetPoint(, "Geef punt op: ")

' Toon de opgevraagde waardes
Debug.Print "X: " & Punt(0)
Debug.Print "Y: " & Punt(1)
Debug.Print "Z: " & Punt(2)
End Sub


Door je code op die manier aan te passen kun je ook makkelijker weten wat de code doet.
Neemt niet weg dat opmerkingen (gedefinieerd voorafgaande met een ') de code nóg beter leesbaarder maken zoals in het voorbeeld.

Hoe heb je de xref verwijderd?
Kijk eens in de xrefmanager, als daar nog enige vorm van koppeling staat dan zijn de layer er nog!
Is de xrefmanager leeg dan zal er een andere oorzaak zijn, in dat geval graag de tekening (als het mag) even delen.
De xrefmanager open je met het commando: XR of XREF

Edit:
In layers uit een xref kun je in de huidige tekening geen objecten op plaatsen.
Deze layers beginnen met de naam van de DWG met toevoeging van het "|"-teken.

Begin eerst eens met deze regel boven aan je code:
Option Explicit

Hierdoor wordt je gedwongen om je vars te benoemen, bv:
Dim commando as String

Ik heb ook een hele Ribbon-tab (3 stuks) gemaakt voor de tools die ik gebruik.
Ik kreeg de tip om er een ".bundle" van te maken.
Hierin kun je ook aangeven dat het ook in alle toekomstige versies vanzelf laad.
En voordeel is dat je het makkelijker kunt delen.

Je kunt ook een menu maken en of een TOOLPALETTE.
Dan hoeven ze niet direct de tekening te openen maar regelt acad dat voor je.
De dwg/dwt is dan nog wel te bewerken voor de slimmerikken die in het menutje gaan kijken...

Nee, dat is er niet.
Je kunt misschien wel een beveiligde gedeelte van de server gebruiken waar beperkte toegang is:
Gebruikers - alleen lezen
Beheerders - lezen en schrijven
Of als je het op sharepoint zet (als je daarmee werkt), kun je het bestand uitchecken... dan kan niemand het orginele bestand aanpassen.

Misschien kun je uitleggen waarom je dat graag wil/wat het doel van dat bestand is.
Misschien ben je al goed af met een template???