|
AutoCAD VBA : zeichnung dürchsuchen - alle line auf vonlayer
dw am 31.10.2012 um 17:05 Uhr (0)
wie kann mich da weiter helfen.....Wie kann ich mit vba die ganze zeichnung dürchsuchen und wenn er dann ein line oder polyline findet der nicht vonlayer ist,sollte das vba programm diese dan automatich auf vonlayer stellen. so sollte das auch mit Linientypefaktor ist ungleich als 1 alle andere line werden dan automatisch auf 1 gestellt.das habe ich mal probiert aber etwas ist da nicht ok.Dim tLay As AcadLayer For Each tLay In ThisDrawing.Layers If Not tLay.Lock Then tLay.Lock = TrueIf Not tLay.Lineweigh ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Ein komplette ordner mit dwg's von inch zum Meter wechseln
dw am 07.09.2013 um 08:45 Uhr (1)
Wie kann mich da ein bischen weiter helfen ich suche ein vba Programm worin ich einen Komplete Ordner mit dwg Zeichnungen in inch nach meter wechseln kann in es sollte nur in Bereich des modelspace funktionieren.vorgang sollte sein :Offnen einen erste zeichnung im ordner.selekteer Komplette Zeichnung in modelspace.Scaliere diese mit eine Faktor zb. von inch nach MeterStell Units auf MeterSpeicher diese Zeichnung ab. (Überschreiben)Öffnet die zweite zeichnung im ordner und macht die obergenante Punkte.Solan ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block änderungen
dw am 22.04.2013 um 13:35 Uhr (0)
Tut mir leid aber diese geht auch nicht, wenn man block altername_3 wegnehmt in der Zeichnung kriegt block altername_2 die neuername_3 und sollte neuername_2 bleiben.Private Sub CommandButton1_Click()Dim block As AcadBlockOn Error Resume Next Set block = ThisDrawing.Blocks("altername_1") If block.Name = True Then block.Name = "neuername_1" Else: MsgBox " kein block im Zeichnung" Set block = ThisDrawing.Blocks("altername_2") If block.Name = True Then block.Name = "neuername_2" Else: MsgBo ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block änderungen
dw am 22.04.2013 um 12:11 Uhr (0)
Wer ist in der Lage mich weiter zu helfen?Habe da eine Routine welche Blocks in der Zeichnung ändert aber das Problem liegt da wen ich zb block altername_3 und 4 nicht in der Zeichnung habe bekommt das altername_2 die neuername_4 und das darf eben nicht passieren wie kann man diese Fehler unterfangen? Private Sub CommandButton1_Click()Dim block As AcadBlockOn Error Resume Next Set block = ThisDrawing.Blocks("altername_1") block.Name = "neuername_1" Set block = ThisDrawing.Blocks("altername_2") block. ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Insert block durch knopf drück
dw am 11.12.2007 um 15:33 Uhr (0)
ich meinte drehen. das will ich selbst bestimmen im Zeichnung drin.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Polyline breite änderung
dw am 17.12.2007 um 16:52 Uhr (0)
Wie kann ich inerhalb meine Zeichnung ein polyline mit der ConstantWidth 81 selectieren und dann diese änderen auf 45....und das alles sollte er machen wenn ich auf einem button klik.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Mit vba Ein dynamich block laden und bearbeiten
dw am 07.02.2011 um 15:20 Uhr (0)
Hallo Wie kann mich mit eine vba code helfen?Ich will ein Auswahl Formular worin ich wähle kann ob ich ein „ kreis / Viereck / Rechteck „ nach dem Auswahl sollte der dwg in der Zeichnung eingeladen worden.Nachher will ich auf dem Formular de dynamische Grosse Eintype L x B durch ok Knopf wird dem geladene Rechteck dwg angepasst..
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Line von layer ändern im neue layer andern
dw am 02.11.2011 um 10:55 Uhr (0)
Hallo wie kann mich bitte hilfen?Ich wöllte in vba ein tool schreiben worin VBA vordefinierte layers ausblendet zumbeispiel (aa bb cc dd) nacher sollte das programm die Layername (aa und bb) einblende die die komplete sichtbare line im zeichnung selektieren und diese selektion sollte im layer (aa1) umbenent werden wenn die Layer nicht vorhanden ist sollte die hergesteld werden.Danke.....
|
| In das Form AutoCAD VBA wechseln |
