|
AutoCAD VBA : Hilfe bei Erstellung von Block
KlaK am 01.02.2018 um 12:50 Uhr (1)
Hallo Jenny,Der Autocad Block ist eigentlich nur der Speicherbehälter für die Zeichnungselemente, vergleichbar dem Model oder einem Layout. D.h. Du mußt zunächst den Speicherbehälter definieren, wie man das macht siehst Du hier .Anschließen muß dieser Block als Blockreferenz noch in die Zeichnung eingefügt werden damit man ihn auch sieht.Für Deine gewünschte Vorgehensweise machst Du Dir am besten einen Selectionset und fügst dann alle Elemente dem Block hinzu. Verstehe aber gerade nicht warum Du den Block- ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Ansichtsfenster per VBA zuschneiden
idraH am 15.12.2009 um 12:28 Uhr (0)
Hallo allerseits,ich bräuchte mal Hilfe für o.g. Aufgabenstellung.Zur Zeit lege ich automatisch neue Layouts an und in jedem Layout ein Ansichtsfenster mit folgendem Code:Code:Set newVport = ThisDrawing.PaperSpace. _ AddPViewport(center, Laenge, Hoehe)Da damit ja nur ein rechteckiges AF erzeugt wird, würde ich im Anschluß dieses AF gern polygonal zuschneiden um ein Schritfeld freizusetllen.Leider habe ich bis jetzt keine Methode in "newVport" gefunden welche dafür nutzbar scheint und hoffe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekte aus Referenz kopieren -> Block Explode Problem
Hendrik2 am 17.09.2009 um 18:01 Uhr (0)
So - erstmal vielen Dank.Das hat soweit geklappt wobei es auch geht, wenn ich die ganze DWG als Block einfüge und den Kram auflöse.Eine kleinere Frage hätte ich aber noch:Code:Dim HSW As AcadTextPtHSW ist ein Double(2) mit den KoordinatenSet HSW = ThisDrawing.PaperSpace.AddText("Text", PtHSW, 1)HSW.Alignment = acAlignmentCenterHSW.TextAlignmentPoint = PtHSWIch befinde mich im Layout.Wenn dich das bis zum SET... ausführe kann ich den Text sehen.Wenn ich die Ausrichtung änder ist der Text weg.Was mache ich f ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD plotten
gerhard123 am 24.03.2009 um 12:40 Uhr (0)
Hallo FB,ich erstelle auch atomatisiert PDF-Plots.anbei mirn Progamm mit dem ich arbeite, vielleicht kannst du damit was anfangen.Public Sub pdfPlot() Dim m_oDoc As AcadDocument Dim m_oLayout As AcadPlotConfiguration Dim dwgPfad, dwgName, strFilename As String dwgPfad = ThisDrawing.GetVariable("dwgPrefix") + "DWG" pdfName = Replace(LCase(ThisDrawing.GetVariable("dwgName")), ".dwg", ".pdf") strFilename = dwgPfad + pdfName Dim oPlotConfig As AcadPlotConfiguration Dim strFilename As String Dim Layout, plott ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plotten
fuchsi am 25.07.2007 um 14:15 Uhr (0)
Also wenn du zuerst das Papierformat auswählst, und erst dann den Plotter, hast du ein kleines Problem.Der zum Zeitpunkt des Makros eingestellte Drucker muss ja A3 nicht unbedingt unterstützt.setzte zuerst mal ThisDrawing.ModelSpace.Layout.ConfigName auf deinen richtigen Drucker, und dann erst das Papierformat.Das mit deinem Zeichnung öffnen und schliessen ist mir etwas suspekt. Ich vermute da eher irgendwowas wie die befehlswiederholung durch einen Makrofehler, wo z.B.: ein überschüssiges ENTER in die Bef ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Objekte im Ans.fenster drehen
CAD-wat-dat am 12.06.2005 um 19:45 Uhr (0)
Hallo zusammen, Mithilfe von Ansichtsfenstern soll eine Innenraumabwicklung als Layout zusammengestellt werden. Die sechs Fenster habe ich tatsächlich zusammengebracht (bin kein Experte) nur bereitet mir die Ausrichtung der Ansicht von unten (also die Deckenansicht im realen Raum) Schwierigkeiten. Sie müsste nochmal um 180 Grad gedreht werden um nicht auf dem Kopf zu stehen. Set Decke = ThisDrawing.PaperSpace.AddPViewport(center, L, B) viewDir(0) = 0 viewDir(1) = 0 viewDir(2) = -1 Decke ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Pickfirst selectionset ergaenzen und ausgeben
rexxitall am 28.06.2013 um 17:28 Uhr (1)
Ein moeglicher workaround waere hier mit vba eine Gruppe zu erstellen und die per sendcommand zu selectieren.Die kann man ja hinterher wieder aufloesen. Da muss ich noch ein wenig mit spielen Gestern war leider eine SOFICAD "ausmist" routine dringlicher.Die speichern alle Bewehrungselemente in allen Massstaeben uebereinander ab.Der Modellbereich ist demzufolge entsprechend "uebersichtlich"Einfach die Layer loeschen bringts da nichht weil Je nach Viewport im layout brauch man da mehr als einen.Ab ins Wochen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position 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 durchsuchen? 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 : Wert anzeigen
wwwilli am 04.03.2010 um 10:34 Uhr (0)
So, ja, danke, damit tuts auch bei mir, was ich gedacht hatte.Jetzt wäre f-m wieder dran. Eventuell fehlt ihm noch, dass ein bestimmter Block gesucht wird, dann muss er vielleicht sämtliche AC-Elemente im Layout (ThisDrawing.ActiveLayout) durchlaufen und fragen, ob sie ein Block sind und den richtigen Namen haben und dann Anweisungen aus der obige Routine nach Bedarf dranhängen. Code: For Each tEnt In ThisDrawing.ActiveLayout.Block If tEnt.ObjectName = "AcDbBlockReference" Then If tEnt.Name ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Layout wechseln
startrek am 08.09.2004 um 10:13 Uhr (0)
Hi Dan, naja klarer und so ... ;-) Hab s auf keinerlei Crash s getestet, nur mal so als ein (möglicher) Ansatz. lg Nancy -- Code: Modul Sub und_los() Dim sset As AcadSelectionSet frmLayouts.Show 0 Set sset = ThisDrawing.SelectionSets.Add( set01 ) sset.SelectOnScreen MsgBox sset.Count sset.Delete End Sub Code: frmLayouts Private Sub UserForm_Initialize() Dim i% With ThisDrawing.Layouts For i = 0 To .Count - 1 ListBox1.AddItem .Item(i).Name Next End Wit ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Wert von Eingabefeld in Parameter-Wert auf Knopfdruck eintragen
cadffm am 19.01.2023 um 17:23 Uhr (1)
Wenn es nicht in einem benutzerdefinierten Block ist, dann kannst du dir das natürlich sparen,dann liegt das Bemaßungsobjekt einfach imModell oder Layout (was zwar technisch auch ein "Blockcontainer" ist,aber es dazu keine Blockreferenz gibt.Wenn du fragst wie man den Objekttyp ermitteln kann, dann empfehle ich aber auch bei NULL mit einem Tutorial anzufangen,oder einem (AutoCAD)VBA Buch!So quer in die Programmierung einzusteigen hat nur zur Folge das einem ständig die Basics fehlen.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Automatische Legende erstellen über Layernamen
cadffm am 18.11.2021 um 11:37 Uhr (1)
Servus,das wäre ja bereits mit einfachsten Mitteln schaffbar, ohne hohen Anspruch fasst schon ohne Programmierung..Layer bereinigen, oder zumindest prüfen welche verwendet werdenWENN Layervorhanden, Block einfügen wo, ggf. dabei ein vordefiniertes Layout importierenbist du dann alles durch hast.fertig"Für jegliche Hilfe wäre ich dankbar "Bei VBA werde ich nicht helfen, da gibt es andere - aber auch die wüßten sicher gerne wo du abzuholen bist.Wo stehst du also aktuell? Vor HelloWorld, bei HelloWorld, oder ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text 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 |
