|
AutoCAD VBA : nach bestimmten elem und-color: #FFFF99'>suchen
CADmium am 13.09.2009 um 13:49 Uhr (0)
vielleicht solltest du elem.ObjectName = "AcDbText" und abfragen ob in textstring "Falsch" steht. (code hierfür ist mir bekannt)mit einem and verknüpfen und dann bei positivem Bescheid die Methode delete des Objekts aufrufen ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
mapcar am 06.11.2004 um 18:30 Uhr (0)
Ein bisschen Theorie ist manchmal auch ganz nützlich: 4 Ecken und geschlossen: beliebiges Viereck Innenwinkelsumme (n-2)*180° : n-Eck gegenüberliegende Winkel gleich: Parallelogramm oder Rechteck alle Winkel 90°: Rechteck + gleichlange Seiten: Quadrat usw. usf. Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereim ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
gerhard123 am 24.10.2008 um 07:53 Uhr (0)
Hallo,danke für beide Beispiele.Habe jetzt nur noch eine Frage zur unten eingefügten ZeileCode:For Each ent In ThisDrawing.ActiveLayout.BlockWarum "ActiveLayout.Block"!Das hat nichts mit den Autocad-Block zu tun oder?GrußGerhard
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
bluedog am 01.03.2007 um 10:24 Uhr (0)
Ich suche eine möglichkeit, ein SelectionSet zu erstellen, mit allen Blöcken in denen ein bestimmter Layer gebraucht wurde.z.B alle Blöcke, in denen Objekte mit dem Layer7 vorhanden sind, sollen dem SelectionSet hinzugefügt werden.kan mir hier jemand einen Tip geben?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
cadffm am 01.03.2007 um 12:02 Uhr (0)
Und falls nicht daran gedacht wurde um es nicht zu vergessen: : Welche Layer die ATTRIBUTe an den Blockreferenzen nutzen, lässt sich nur an den Inserts/Attribs selbst feststellen.EDIT: Schweres Däutsch[Diese Nachricht wurde von cadffm am 01. Mrz. 2007 editiert.]
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
alfred neswadba am 26.03.2009 um 20:51 Uhr (0)
ich habe beim Select auch kein SelectCrossing oder SelectWindow oder irgend eine Art von geometrischem Filter!!Ich hoffe mich nicht falsch ausgedrückt zu haben, Select funkt schon, nur in Verbindung mit positionsbestimmenden Filterangaben liefern z.T. Schrott.- alfred -------------------www.hollaus.at
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 06:53 Uhr (0)
Hi Gerhard,Wie sind die Texte denn in das Layout eingefügt worden?! Als Block, Mtext oder als Text?! Ich würde auch das ThisDrawing.ActiveLayout durchlaufen und diese dann nach dem Test überprüfen.Gruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 07:15 Uhr (0)
Hi Gerhard,Hier mal ein Ansatz:Code:Public Sub Suchetext()Dim Object As AcadObjectFor Each Object In ThisDrawing.ActiveLayout.BlockIf TypeName(Object) = "IAcadText2" Then If Object.TextString = "gesperrt" Then Object.Delete End IfEnd IfNextEnd SubGruß, Carsten
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
Carsten1210 am 24.10.2008 um 08:00 Uhr (0)
Hallo Gerhard,Starte das Makro mal mit F8 und schau dann im Direktfenster im unteren Bereich der IDE (Das musst du vielleicht erst über Ansicht... einblenden) nach. Da kannst du dir die Struktur anschauen.Gruß, Carsten[Diese Nachricht wurde von Carsten1210 am 24. Okt. 2008 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
bluedog am 02.03.2007 um 11:38 Uhr (0)
Danke für die Antworten...Der Blocklayer ist uninteressant, der kann Unterschiedlich sein.Das Ziel wäre gewesen, die gefundenen Blöcke auf einen anderen BlockLayer zu schieben.Bei diesem BlockInfo Script finde ich auch kein Beispiel, wie ich nun den Layer im Block Uberprüfe.Sieht so aus als ist das ganze noch ein bisschen zu hoch für mich.Vieleicht versuch ich das später wieder einmal...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen
mapcar am 22.10.2004 um 10:57 Uhr (0)
Leider gibt es nun mal Befehle in AutoCAD, die nicht programmierbar sind. Mich treibt 3DSOUT die Wände hoch: Egal wie ich s mache, immer poppt ein Dialog auf. Als der Befehl TOLERANCE neu war (R13C1) habe ich bei Adesk angerufen und gefragt, warum es kein - TOLERANCE gibt: Ups, den haben wir vergessen, kommt in 13C2! Ich habe auch nach 13C2, C3 und C4 nochmal angerufen - kommt bald! . Fehlt aber in 2005 immer noch:-((( Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 13:28 Uhr (0)
(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*"SUCHTEXT"*"))))))in eine Textdatei mit Endung lsp stellt dir nach dem Laden den Befehl LAYSEARCH zur Verfügung ...------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Win-Dialog Ordner und-color: #FFFF99'>suchen öffnen?
Einstein am 10.07.2007 um 21:06 Uhr (0)
...Bitte nicht lachen, aber ich arbeite immer noch mit Windows 98. Ich denke auch, dass das mit dem Betriebssystem zusammen hängt. Doch vielleicht kann ich ja eine aktuellere AktiveX-Datenbank installieren um den Fehler zu beheben. Ich weis nur nicht wie!Hast du eventuell noch eine Idee?------------------MfG A. Einstein P.S. Rechtschreibefehler sind gewollt und dienen der allgemeinen Belustigung!
|
| In das Form AutoCAD VBA wechseln |
