|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
alfred neswadba am 22.02.2011 um 14:01 Uhr (0)
Hi, Was müsst ich noch schreiben das er in deiner Variante die Objekte im ACAD markiert?Markieren (so wie anklicken, sprich die Griffe sind da) geht im VBA nicht, da kannst Du eigentlich nur von VBA aus das LISP zusammensetzen und per SendCommand schicken.Wenn jedoch ein Highlight reichtm dann:Code:Call tEnt.Highlight(True)- alfred -PS: oben hab ich Blödsinn geschrieben (wegen nur Modellbereich..., sorry CADmium ), habs schon editiert------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im aktivem Layout und-color: #FFFF99'>suchen
alfred neswadba am 28.04.2009 um 22:24 Uhr (0)
Hi Georg,bitte nicht Blockdefinition (Block) mit Blockreferenz (BlockReference) vertauschen, Du findest im Layout keine Blockdefinitionen, nur -referenzen.Codebeispiel (durchsucht aktuelles Layout und listet alle Blockreferenz-Namen) wäre:Code:Public Sub ScanLayout() Dim tAcadEnt As AcadEntity For Each tAcadEnt In ThisDrawing.ActiveLayout.Block If TypeOf tAcadEnt Is AcadBlockReference Then Debug.Print tAcadEnt.Name End If NextEnd Sub- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Texte im Block und-color: #FFFF99'>suchen
ela-cad am 13.06.2014 um 22:21 Uhr (5)
Hallo Zusammen,ich suche schon lange nach einem Lösungsansatz für folgendes Problem:In einem Schriftfeld (Blockreferenz) befinden sich Linien, Attribute und einfacheTexte. Wir besitzen Schriftfelder in deutsch und englisch, diese umterscheiden sichnur durch die einfachen Texte z.B. Gesellschaft für deutsch Campany für englisch.In einem VBA-Programm möchte ich unterscheiden um welche Sprache es sich bei dem Schriftfeldhandelt, also Blockreferenz enthält den Text "Gesellschaft" dann deutsch sonst englisch.Ka ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
CAD-Huebner am 01.03.2007 um 18:26 Uhr (0)
Zusätzlich müssten alle Blockreferenzen, die auf "Layer7" eingefügt sind, und sich mindestens ein Objekt mit dem Layer "0" in der Blockdefinition befindet ggf. auch selektiert werden, wenn nicht sowieso alle Blockferenzen auf "Layer7" gewählt werden sollen.Allerdings mag es ja Blockreferenzen geben, die zwar auf "Layer7" eingefügt sind, aber keine Geometrie auf "Layer7" darstellen - wie sollen die denn behandelt werden? ------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Gloem am 29.03.2009 um 14:59 Uhr (0)
Hab nochmal ne andere Frage und da die auch mit dem Select zusammenhängt schreib ich das einfach mal hier rein:Ist es möglich bei einem select nur den Modelbereich zu durchund-color: #FFFF99'>suchen? Mit einem .thisdrawing.modelspace.item und dann überprüfen ob es sich um einen Block handelt würde es prinzipell gehen aber in meinem Fall gerade nicht, da ich dann doch einigen umbauen müsste.Am liebsten wäre mir ein Filter oder eine Methode oder Eigenschaft der Blockreferenz die mir sagt ob er im Modelbereich oder in einem Layo ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Brischke am 05.11.2004 um 14:27 Uhr (0)
Hallo Moony, wozu soll der Layer aktiviert werden? Moony, zuerst musst du dir erstmal die Struktur einer AutoCAD-Zeichnung ansehen. Ein Layer ist ein nicht grafisches Element. Das kann man nicht auswählen. Es ist einfach nur ein Container bestimmter Eigenschaften, der von grafischen Elementen referenziert wird. Du musst einen Auswahlsatz bilden, der nur Elemente enthält, denen bestimmte Eigenschaften zugewiesen wurden . Dann erst kannst du beginnen diese Elemente zu analysieren. Soll heißen, aus den P ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
CADmium am 01.03.2007 um 11:25 Uhr (0)
1.durch die Blocktabelle iterieren-bei jedem Block durch die Objektliste iterieren- jedes Objekt auf entsprechenden Layer testen- wenn TRUE, dann Blocknamen merken 2. durch die Blocktabelle (oder nur durch die Layoutblöcke, wenn keine Verschachtelungen berücksichtig werden sollen) iterieren - bei jedem Block durch die Objektliste iterieren- bei jeder Blockreferenz eines Blockes, von dem der NAme auf der MERKLISTE steht- Blockreferenzobject in die Auswahlliste(Auswahlsatz)------------------ - Thomas -"Bei ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Brischke am 05.11.2004 um 09:39 Uhr (0)
Hallo moony, überlege noch einmal genau was du suchst. Ein Layer ist meines Wissens ein nichtgrafisches Objekt, was deshalb auch keine Eigenschaft Mittelpunkt besitzt. Das objekt Rechteck gibt es im AutoCAD auch nicht. Wenn ich das mal übersetzen darf, dann suchst du Linien oder Polylinienobjekte, die augenscheinlich ein Rechteck darstellen. Diese Elemente sollen zusätzlich noch eine bestimmte Layereigenschaft besitzen. - Richtig? Die Schwierigkeit besteht nun darin, überhaupt erstmal die augenscheinlich ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
gerhard123 am 24.10.2008 um 06:08 Uhr (0)
Hallo Klaus,danke für deine Antwort.Ich habe mir die Texte mit einem Lispbefehl rausgesucht.Im Parameter suche übergebe ich den Text "Für Produktion ..."Lösche damit aber alle Texte in der Zeichnung und nicht nur den gewünschten im aktuellen Layout.Code:(defun c:DWLoeschText ( suche / text) (setvar "tilemode" 0) (setq text (ssget "X" (list (cons 0 "TEXT") (cons 1 suche)))) (if (not text) (princ) (command "_erase" text "") ) (princ))Bin in VB leider noch nicht so fit, hast du viellecht ein Codebe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
gerhard123 am 23.10.2008 um 16:43 Uhr (0)
Hallo,ich habe mal wieder eine Frage. Ich habe in einer Zeichnung mehrere Layouts in denen der Texte "Für die Produktion gesperrt" steht.Wenn ich nun ein Layout Prüfe, dann möcht ich gerne mittels Programm das der Text in dem aktuellen Layout gelöscht wird.Wie kann ich das bewerkstelligen?Gibt es eine Möglichkeit NUR den Text in aktuellen Layout zu löschen.Alle Texte in der ZNG mit "Für die Produktion gesperrt" habe ich schon herausgefunden.Vorab schon mal Danke für eure HilfeGerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
KlaK am 29.03.2009 um 18:17 Uhr (0)
Vielleicht noch zur Ergänzung zu Alfreds Code: Zitat: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(0) As Integer: tDxfCodes(0) = 0 Dim tDxfValues(0) As Variant: tDxfValues(0) = "INSERT" tSSet.Select acSelectionSetAll, , , tDxfCodes, tDxfValueskönnte man auch so machen:Code: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(1) As Integer Dim tDxfValues(1) As Variant tDxfCodes(0) = 0 tDxfValues(0) = "INSERT" tDxfCodes ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CAD-Huebner am 22.02.2011 um 12:47 Uhr (0)
In de Expresstools befände sich z.B. der Befehl SSX, der auch eine Auswahl nach Layer mit Platzhaltersuche bietet.Code:Befehl: SSXSelect object None:Enter filter option [Blockname/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector]: LaEnter layer name to add RETURN to remove: *F30*Current filter: ((8 . "*F30*"))Enter filter option [Blockname/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector]:3 found.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de[Diese Nachricht wurde von ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach bestimmten elem und-color: #FFFF99'>suchen
runkelruebe am 13.09.2009 um 15:03 Uhr (0)
Hallo adblue, wie komme ich an den string-text ran? mit welchem befehl?Du scheinst ja ebenfalls in der ACAD-VBA-Programmierung noch recht weit vorne zu stehen. Wenn ich mal nicht weiß, was für Methoden/Eigenschaften/Ereignisse ein Element hat, mach ich mir eine neue Zeichnung, erstelle genau so ein Element und schaue es mir im Menü: Ansicht Lokal-Fenster in aller Ruhe an.Dim xSet x = ThisDrawing weiter mit z.B. .ModelSpaceStopAndere gehen über F2 den ObjektkatalogVersuch einmal, es dort selbst herauszufi ...
|
| In das Form AutoCAD VBA wechseln |
