|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Gloem am 25.03.2009 um 20:13 Uhr (0)
SelectAtPoint iefert glaub ich immer nur ein Ergebnis kann das sein?Die Funktion liefert mir jedenfalls keinen Block wenn darüber ne Linie liegt. Nehm ich die Linie weg bekomm ich einen Block als Rückgabewert
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Win-Dialog Ordner und-color: #FFFF99'>suchen öffnen?
Einstein am 10.07.2007 um 19:33 Uhr (0)
Hallo Forum, ich hab heut noch mal eine Frage zu den Windowsdialog "Ordner und-color: #FFFF99'>Suchen". Wie ihr sicherlich noch wisst, meldete ich mich bereits vor einigen Wochen zu diesem Thema, wo ich dabei hängen blieb, dass der folgende Code nicht funktionierte:Private Sub folder() Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, "Bitte einen Ordner auswählen", 1) If Not oFolder Is Nothing Then TextBox1.Value = oFolder.Self.Path T ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 26.03.2009 um 11:23 Uhr (0)
Hallo,mal nur ungetestet. Würde das nicht mit SelectByPolyon gehen. Vorher generierst du ein Polygon rund um deinen Punkt !?Im einfachsten Fall ein kleines Quadrat Wilfried Stelberg ------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 14:57 Uhr (0)
Hallo Holger, nicht grafisches Element das leutet mir ein, ich wollte mir so die Suche erleichtern z.B.. Im Layer mit Namen Chip1 gibt es dann nur das eine Rechteck und das möchte ich per VBA selektieren um die Scheitelpunkte zu ermitteln. Mit Getpoint funktioniert es. Es kann ja sein, daß ich da auf dem Holzweg bin, ich weiß nicht wie ich in einer Zeichnung ohne den Get... Befehl eine Ecke vom Rechteck selektieren soll. Gruß Moony
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
c.schojer am 24.10.2008 um 07:25 Uhr (0)
Hallo gleich!Sub Delete_Text()Dim ent, SString, LaySString = "test"For Each ent In ThisDrawing.ActiveLayout.BlockDebug.Print ent.ObjectnameIf ent.Objectname = "AcDbText" Then If ent.Textstring = SString Then ent.Delete End IfNext entEnd Sub
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
startrek am 05.11.2004 um 15:45 Uhr (0)
Moony, wenns wirklich nur eine Pline[Rechteck]/gesuchten Layer enthalten ist, und nicht so dolle viel Elemente in der Zeichnung sind , dann als Ansatz evtl auch: Code: Sub x() Dim i&, min, max With ThisDrawing.ModelSpace For i = 0 To .Count If TypeOf .Item(i) Is AcadLWPolyline And .Item(i).Layer = test Then .Item(i).GetBoundingBox min, max MsgBox minPoint: & min(0) & | & min(1) & Chr(13) _ & maxPoint: & max(0) & | & max(1) Exit For End ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
marcosevim am 22.02.2011 um 13:04 Uhr (0)
@CADmiumPerfekt, hat sofort funktioniert@CAD-HuebnerDanke!@AlfredDanke, ich wollte das 1:1 übernehmen und habs im VBA in ein neues Modul eingefügt. Dann im ACAD unter Makro ausführen gestartet.Es passiert aber leider nichts. Habe ich ev. schon wieder die selben Probleme wie vorher ???Danke
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 12:53 Uhr (0)
die Zeile in der Befehlzeile oder auf einen Button macht das auch ... ist aber Lisp (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 "*F30*"))))------------------ - 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 : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
marcosevim am 22.02.2011 um 13:23 Uhr (0)
@alfred.Achso ist das.Ich würd gern beide Varianten verwenden.Deine Variante ist Ausbaufähig, damit kann ich später noch weiterarbeiten.Was müsst ich noch schreiben das er in deiner Variante die Objekte im ACAD markiert?Danke und Grüsse Marco
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 25.03.2009 um 21:28 Uhr (0)
Hallo,hab es jetzt auch mal getestet. Du hast Recht. Es gibt wohl einige Feinheiten.Auf die Schnelle habe ich da für heute auch keine Lösung.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Stelli1 am 25.03.2009 um 20:28 Uhr (0)
Hallo,es kann doch keine Linie kommen, oder ?Du hast doch deinen Filter. Du brauchst doch nur das Insert stehen lassen.Wilfried Stelberg------------------Warum lispeln wenns auch anders geht. www.ib-stelberg.de
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 14:03 Uhr (0)
ja sorry ..muss heißen(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*" PATTERN "*"))))))------------------ - 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 : nach bestimmten elem und-color: #FFFF99'>suchen
adblue am 13.09.2009 um 12:51 Uhr (0)
moin moinich brauche einen code um in einer autocad zeichnen bestimmte zeichenobjekte zu finden und dann zu löschen.das objekt ist ein text (elem.objectName = "AcDbText") es sollen aber nur texte gelöscht werden die als string (inhalt) "Falsch" beinhalten.kann da jemand bitte was basteln?danke
|
| In das Form AutoCAD VBA wechseln |
