|
AutoCAD VBA : Copy&paste: objekte nach einfügen automatisch markieren
rexxitall am 08.12.2018 um 16:02 Uhr (1)
HI Löschen von ITEM(x)einfach diese entitys in ein neues Array kopierenPseudocodedim ENTARR() as acadentityn=Item.countredim ENTARR(n)dom c as slong c=0for i=0 to itemcountif entity is deliquent thenset ENTARR(C)=...ITEM(i)c=c+1nextfor I=0 to c-1entarr(i).deletenextDann ist Ruhe Lieben GrußThomas------------------Wer es nicht versucht, hat schon verlorn Und bei 3 Typos gibts den vierten gratis ! not for sale !
|
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
rexxitall am 09.06.2013 um 22:02 Uhr (0)
Hi der debugger spinnt der Fehler ist nicht dort Dlockdefinitionen werden in einer tabelle innerhalb einer Zeichnung verwaltet.Das vba element heisst acadblockdefinition.wenn du also aus einer libraryzeichnung solch einen block einfuegen willst musst du die entsprechende blockdfinition dort finden und kopieren. Danach kann man Refrenzen erstellen.Wer es rustikal mag - die ganze zeichnung als block einfuegen und loeschen.Die Block Definitionen bleiben bis zum naechsten purge erhalten.Anbei ein paar zeilen c ...
|
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
rexxitall am 09.06.2013 um 22:04 Uhr (0)
bissi was vergessen Function block_def_exists(blockname As String, Optional BLOCK As AcadBlock = Nothing) As Boolean On Error Resume Next Err.Clear Set BLOCK = ThisDrawing.BLOCKS.item(blockname) If Not BLOCK Is Nothing Then block_def_exists = True If Err.number 0 Then block_def_exists = False Set BLOCK = Nothing On Error GoTo 0End FunctionSub LIBACDBX_open(Filename As String) If LIBACDBXFILE "" Then MsgBox "LIB " & Filename & "seems to be open" End If Set LIBACDBX = GetAcDbxDoc() LIBACDBX.O ...
|
|
AutoCAD VBA : Makros in VBA unter C3D2017, Programmabsturz
rexxitall am 04.08.2017 um 01:14 Uhr (1)
Schon mal rein provokativThisdrawing.layers.item("blah") probiert ?Natürlich muss der Layer existent seinAlso obrige Lösung ist nur dann ne Lösung wenn die Implementierung "etwas" strange ist*untested* war zu faul die aus meiner lib rauszukopieren function layer_exist(layer as string)as boolean layer_exist=falseon error resume nexterr.cleardim l as layerset l=thisdrawing.layers(layer)if err.number=0 then layer_exist=trueend functionwenn die funktion false ergibt dann ist einThisdrawing.layers.add angesagt ...
|
|
Rund um AutoCAD : Speicher zu wenig?
rexxitall am 27.06.2013 um 19:40 Uhr (0)
Alles ganz normal du hast ein 32 bit acad und da ist ersteinmal bei knapp 2 gig "schicht im schacht".man kann es bis maximal 3 gig aufdrehen http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=9583842&linkID=9240617Folgendes lass ich laufen um die Zeichnung selber schneller zu machen:_OVERKILL doubletten entfernen_BREP Historys von 3d elementen entfernen_PURGE unbenutzte Leichen entfernenFerner soviel wie moeglich in Bloecke umwandeln,Loeschen was nicht sichtbar ist usw.Mit nem 64 bit acad kom ...
|
|
AutoCAD VBA : dynamischer Block
rexxitall am 22.03.2022 um 23:32 Uhr (1)
Autocad setzt dynamische Block Instanzen als "*U" Blockreferenzen in die Zeichnung. Als Kopie mit allem was dazu gehört. Man kann die Parameter dieser Blöcke ja auslesen. Was bei statischen Blöcken nicht ginge. Wenn du die Blöcke speichern willst must du wenn die Blockdatenbank bemühen.Thisdrawing.blocks.item(...Die Blöcke haben übrigens auch die Eigenschaft "isdynamicBlock" Gehst du nur oberflächlich über die Zeichnung mittels der Blockreferenzen erwischt du Blöcke nicht die nicht in der Zeichnung abgeleg ...
|
|
AutoCAD VBA : Block austauschen
rexxitall am 18.03.2016 um 14:07 Uhr (1)
Glaub die hab ich unterschlagenUm das scripting dictionary nutzen zu können mus auf die WSO.dll im windows system directory referenziert werden.Sub TAG_TO_DICTIONARY(dict As Scripting.DICTIONARY, ByRef tagname As String, ByRef tagvalue As String) dict_tagname = Trim(tagname) If UCase(tagname) = tagname Then If dict.Exists(dict_tagname) Then dict.ITEM(dict_tagname) = Trim(tagvalue) Else dict.Add dict_tagname, tagvalue End If End IfEnd SubSub TAG_FROM_DICTIONARY(dict As Scripting.DICTIO ...
|
|
AutoCAD Civil 3D : Seevolumen berechnen und exportieren
rexxitall am 24.06.2013 um 22:19 Uhr (0)
Tapfer downloaden bei 32 bit tuts prima !Alles nur *zensiretz* Gemache von Adesk.Ich wuerd mir aus dem Wasser ein Solid basteln und das slicen. (Scheiben schnippeln)falls ich das Volumen nicht direkt abfragen kanndanach wirds spannendvariante 1: (Prinzip)Sub Beispiel_Volumen() Dim dblVolumen As Double dblVolumen = ZeichnenQuader.Volume / 1000000 AnsichtIso Funktion AnsichtIso aufrufen ZoomAll MsgBox "Das Volumen beträgt " & dblVolumen & " Kubikdezimeter." & vbCr _ & "Bei einer Dichte von 8 Kg/dm³ ...
|
|
AutoCAD VBA : dynamischer Block
rexxitall am 12.04.2022 um 13:20 Uhr (1)
Husch wech sansSub delu1u0() Dim ENTITY As AcadEntity Dim BLOCK As AcadBlock Dim BLOCKREF As AcadBlockReference Dim B2 As AcadBlock Dim ENT As AcadEntity For Each BLOCK In ThisDrawing.BLOCKS Debug.Print BLOCK.name Select Case BLOCK.name Case "*U0", "*U1" For Each ENTITY In BLOCK ENTITY.DELETE Next End Select Next On Error Resume Next Set BLOCK = ThisDrawing.BLOCKS.ITEM("*U0") BLOCK.DELETE Set BLOCK = ThisDrawing.BLOCKS.ITEM("*U1") BLOCK.DELETE ThisDrawing.SendCommand "_regen ...
|
