|
Autocad VBA : Mittelpunkt und-color: #FFFF99'>suchen?
Moony am 05.11.2004 um 09:03 Uhr (0)
Hallo zusammen, ich möchte Layernamen und-color: #FFFF99'>suchen, die gesuchten sind alles Rechtecke und den Mittelpunkt bestimmen, also die x,y Koordinate. Private Sub CommandButton1_Click() z = 1 suchname = Chip & z For Each Ly In ThisDrawing.Layers MsgBox gefunden Layername & Ly.Name If Ly.Name = suchname Then MsgBox Ly.Name With ThisDrawing.Utility posX = .GetDistance ?? posY = ?? End Wit ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 20:25 Uhr (0)
Alfred,Danke für die sehr schnelle Antwort.Die Funktion replace funktioniert wunderbar. Ich verstehe aber nicht, wieso du sie doppelt einsezt. so funktioniert es bei mir auch:blockname = "Langloch " + Replace(laenge, ",", ".") + "x" + Replace(breite, ",", ".") + "_r" + Replace(radius, ",", ".")zu Punkt 2. mein Quellcode sieht in Moment so aus:Dim Block As AcadBlockDim blockname As StringDim BlockRef As AcadBlockReferenceDim text1 As String Dim IPoint As Variant ...blockname = "Langloch " + Replace(laenge, ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Gloem am 26.03.2009 um 20:04 Uhr (0)
@Alfred: Es können sagen wir mal bis zu maximal 10.000 Blöcke in einer Zeichnung sein. Wie würdest du den nach einem Block und-color: #FFFF99'>suchen wenn man der select-Funktion nicht trauen kann.@Stelli: Gar nicht mal so dumm. Warum umständlich mit den Filtern ein Rechteck basteln wenn es dafür doch extra ne Funktion gibt. Irgendwie muss ich das überlesen haben
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Bestimmten Text kopieren, umwandeln und ersetzen
Jens_H am 24.01.2006 um 16:09 Uhr (0)
Hallo Nancy,vielen Dank schonmal für deine Antwort.Es hat natürlich einen Sinn... ich hol mal weiter aus :-)ich möchte dass das Programm bestimmte Sätze übersetzt. Sagen wir mal ABC und DEF. GHI ist auch in der Zeichnung vorhanden, soll aber nicht berücksichtigt werden. Der Text der ergänzt werden soll ist ein chinesischer. Diesen Text kann man nur (aus einem Office-Dokument) mit COPY & PASTE einfügen, wenn man einen einzeiligen Text in ACAD vorher in einen MText umwandelt (leider leider...).Folgendes soll ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
marcosevim am 22.02.2011 um 12:38 Uhr (0)
Hallo,ist es eigentlich schwierig nach bestimmten Textteilen in einem Layernamen zu und-color: #FFFF99'>suchen.Ich würde ein Programm benötigen welches z.b: alle Objekte in der Zeichnung markiert welche im Layernamen z.B. F30 stehen haben.Muss ich dafür jeden Layernamen in unterschiedlichste Teile zerlegen und immer wieder mit dem gesuchten Textteil vergleichen?Oder gibts für sowas schon eine fertige Funktion?Grüsse Marco
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
Arol am 13.02.2009 um 16:54 Uhr (0)
Hallo,ich habe ein kleines VBA-Programm geschrieben, das nach Vorgabe (Länge, Breite und Radius) ein Langloch zeichnet und als Block in die Zeichnung einfügt. Der Name von diesem Block wird automatisch erstellt.Nun habe ich 2 kleine Probleme, die ich bis jetzt mit der Suchfunktion und google nicht lösen konnte.1. Das automatische Erstellen des Blocknamens habe ich wie folgt gelöst:blockname = "Langloch " + laenge + "x" + breite + "_r" + radius Set Block = ThisDrawing.Blocks.Add(Bpkt, blockname)Das funktion ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>suchen und diesen löschen
KlaK am 23.10.2008 um 23:19 Uhr (0)
Hallo Gerhard,leider schreibst Du nicht wie Du alle Texte schon gefunden hast.Vermutlich über SelektionSet mit Mode Selectall.Wenn Du im aktuellen Layout diesen Text und-color: #FFFF99'>suchen möchtest, würde ich den Selektionset mit Mode = acSelectionSetWindow und einem Fenster mit Hilfe der Systemvariablen ExtMin und ExtMax machen.Damit bekommst Du nur die Angezeigten Texte.Alternativ:Durchund-color: #FFFF99'>suchen von ThisDrawing.ActiveLayout.Block.item( 0 - (~.count -1))Grüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : und-color: #FFFF99'>Suchen
startrek am 02.10.2004 um 12:00 Uhr (0)
Mahlzeit Bernd, schau mal ob Dir der Thread etwas weiterhilft: http://ww3.cad.de/foren/ubb/Forum259/HTML/000291.shtml Gruss Nancy
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
alfred neswadba am 22.02.2011 um 12:46 Uhr (0)
Hi,dafür wurde der LIKE -Vergleich eingeführt. "ABCD" LIKE "*BC*" == TRUEUnd wenn Du ein SelectionSet baust, dann kannst Du auch Sterne (und Fragezeichen) als Platzhalter verwenden.Code:Public Sub test() Dim tSSet As AcadSelectionSet On Error Resume Next Set tSSet = ThisDrawing.SelectionSets.Add("mySelSet") if Err.Number 0 then Set tSSet = ThisDrawing.SelectionSets("mySelSet") tSSet.Clear end if Dim tDxfCodes(0) As Integer: tDxfCodes(0) = 8 8 für DXFCode-Layername Dim tDxfValues(0) As Variant: t ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block im aktivem Layout und-color: #FFFF99'>suchen
Arol am 30.04.2009 um 12:13 Uhr (0)
1a Danke!!!
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
Gloem am 29.03.2009 um 15:52 Uhr (0)
cool danke
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
marcosevim am 22.02.2011 um 14:12 Uhr (0)
Das Ist echt spitze. Danke!!
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Texte im Block und-color: #FFFF99'>suchen
ela-cad am 13.06.2014 um 23:53 Uhr (1)
Zur Infobin bereits hier im Forum auf einen super Hinweis zu diesem Thema gestoßen.
|
| In das Form AutoCAD VBA wechseln |
