|
Rund um Autocad : Text - Lisp
RoSiNiNo am 21.08.2002 um 12:53 Uhr (0)
Einfach die Datei nochmmal herunterladen, oder folgenden Text hinten anfügen. Code: Ersetzt Komma durch Punkt Public Function funPunkt(Wert) Dim Punkt As Long Dim Komma As Long Wert = LTrim(Wert) Komma = InStr(Wert, ",") If Komma 0 Then Mid(Wert, Komma) = "." Punkt = InStr(Wert, ".") If Punkt = 1 Then Wert = "0" & Wert funPunkt = Wert End Function Wenn anstelle des Dezimalpunktes ein Komma stehen soll, dann die Zeile die den Fehler verursacht hat mit dies ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Alle Elemente von einem Layer löschen
wwwilli am 05.02.2008 um 14:38 Uhr (0)
Zitat:Original erstellt von CADmium: wie lange bist du jetzt schon im Forum aktiv ?... wenn du die angebotenen Hilfen nicht richtig nutzen kannst ... liegts nicht an den Helfern.Uiuiui,da mag ich mir jetzt gar nicht vorstellen, mit welchem bitteren Unterton dies geschrieben wurde. Trag es mit Fassung, Kollege. Ich habe jetzt seit 33 Jahren auf verschiedensten Grundlagen Programme erstellt; da leiste ich als Bauingenieur mir ab und zu den Luxus, eine Programmiersprache nicht zu erlernen. Aber wenns GAR n ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Konstruktionslinien
CAD-Tötti am 15.11.2003 um 14:43 Uhr (0)
Greetz Leutz :-),super Thema, wie ich finde. Quält mich auch ein bisschen. Echt klasse wäre ja, wenn man das Hilfslinien-Lisp erweitern könnte um folgendes:-Hilfslinie an ein Objekt legen. Objekte können Linien, Polylinien aber auch solchige in Blöcken und XREFS sein.-Hilslinien versetzen von Objekten. Objekte können Linien, Polylinien aber auch solchige in Blöcken und XREFS sein.Natürlich sollten die Hilfslinien gleich auf dem entsprechendem Layer liegen, und wenn dieser nicht in der Zeichnung vorhanden i ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layoutwechsel per Script
CADmium am 09.08.2004 um 12:29 Uhr (0)
du erweiterst, deine acaddoc.lsp ( wird mit jeder Zeichnung geladen )um folgende Zeilen: (vl-load-com) (load c:lablalayoutexplode.lsp ) oder wie-und woauchimmer du das Lisp abgespeichert hast! und im script rufst du einfach all-explode auf! oder alles im Sript: (vl-load-com) (load c:lablalayoutexplode.lsp ) all-explode Nicht vergessen (Mache-das) durch(burst-neu) zu ersetzen! Und zu den Lokalen Funktionen : (defun MAIN ( / SUB) ) ..alles was hinter dem / in der Funkti ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : automatische Berechnung von Attributwerten
Saskia Herbst am 27.10.2005 um 10:40 Uhr (0)
Zitat:Original erstellt von CADmium:Willkommen im Forum!Bei deinem Problem hilft dir vielleicht dieser Thread weiter..Hab´ jetzt ein weiteres Problem:Nachdem ich mir die im Thread von Helmut beigefügte Putzschacht.zip als dwg geöffnet habe, um das Lisp von CADmium auszuprobieren, haben sich offensichtlich bei mir irgendwelche Einstellungen bei AutoCAD verändert.Beim Befehl "Öffnen" habe ich nun nur noch die Möglichkeit, den Dateinamen in der Befehlszeile einzugeben, aber nicht, wie standardmäßig vor ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : spigeln mehrerer blöcke um deren ursprung
Brischke am 24.07.2003 um 15:38 Uhr (0)
Hallo Jochen, kleines Ratespiel: Finde 10 Unterschiede zu: http://ww3.cad.de/foren/ubb/Forum54/HTML/004523.shtml Code: (defun c:blkmirror ( / ALISTE tfac) (setq ALISTE (ssget "_X" ( (0 . "INSERT") ) ) ) (if ALISTE (progn (mapcar (lambda (el) (command "_.mirror" el "" (setq tfac(cdr(assoc 10(entget el)))) (polar tfac pi 10.0) "_Y") ) (ba ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Arial alt/neu?
cadffm am 20.01.2012 um 23:18 Uhr (0)
Ich habe leider keine Zeit, wenn das hier aber ein Lisp´ler oder VBA´leroder sonstwer liest: ich habe merkwürdiges Feedback beim Abfragen desZ-Einfügewertes !(vielleicht auch normal und ich Unwissend, aber das könnte ich verkraften )Befehl: (rtos (last(cdr(assoc 10 (entget(car(entsel)))))) 2 18)Objekt wählen: "0.000000000000000000"Befehl: (rtos (last(cdr(assoc 10 (entget(car(entsel)))))) 2 18)Objekt wählen: "0.000000000000000"Es scheint so als wäre der eine Text mit einer geringeren Genauigkeit gespeicher ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : 3D Drehen um Basispunkt
CAD-Huebner am 12.09.2008 um 09:04 Uhr (0)
Ich verstehe dich und das ließe sich auch relativ einfach automatisieren z.b. mit einer Lisp Routine.Man muss aber einschränken, das unterschiedliche AutoCAD-Objekte unterschiedlich behandelt werden müssen.2D Objekte (wie z.B. Kreise) haben eine eigenes Objektkoordinatensystem, die müssen anders behandelt werden als z.B. Textobjekte oder 3D Objekte. Ein allgemeingültiges Programm mit Fehlerbehandlung ist da schon aufwändiger (und übersteigt nach meiner Meinung die Forenhilfe), vielleicht gibts aber schon e ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Arbeitsweisen Layerstatus
cadffm am 14.11.2013 um 13:21 Uhr (1)
Da freue ich mich aber wenn ich 10 Dateien mit 5 Layouts plotten will (oder mal 100 Dateien mit je 10 Layouts) Ich bräuchte in einem ordentlichen Projekt für den einmal nötigen Starten-Vorgang Sekunden, wie lange du ?Man sieht: Mit anzahl der Layouts bzw. Dateien wird dieser Weg immer mehr indiskutabel.Hier favorisiere ich die Funktion AF-Überschreiben der Layer.Wer keine Plotstiltabelle will (warum zum Teufel auch immer) und dennoch andere Farben benötigt,für den ist die AF-Überschreibung sicher interessa ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Kurven/Polylinien mit tag. Bögen zeichnen
cadplayer am 14.07.2011 um 09:46 Uhr (0)
Ich muss es ein wenig besser erklären: Beginne ich eine Polylinie zu zeichnen mit zuerst einem Linienelement und dann einem Bogenelement, dann schliesst der Bogen tagential an dem Linienelement an. Zeichne ich dann weiter mit einem Linienelement schliesst dieses nicht tagential an.Ich stelle mir folgendes vor beim zeichnen von Polylinien mit (eingeschlossenen) tagentialen Bögen: Zeichne "Polylinienelement" über die Wahl von 2 Punkte anschliessend zeichne "Polybogenelement" tagential an das vorige Linienele ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Acad.lsp. acad2000.lsp, acad2000doc.lsp
Brischke am 04.11.2003 um 09:07 Uhr (0)
Hallo Peter, auch wenn mit den acad*.lsp die Möglichkeit besteht Dateien autom laden zu lassen, empfehle ich immer den Weg über eine *mnl-Datei. Das hat den Vorteil, dass man an Acad-eigenen Dateien nichts ändern brauch, und wenn man ein Tool weitergibt, dann hat man alles zusammen. Weiteres kann man dort nachlesen: http://ww3.cad.de/foren/ubb/Forum54/HTML/001854.shtml Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP Anfänger
Brischke am 28.02.2002 um 15:54 Uhr (0)
Hallo Milizeus, dein Problem ist, dass der Bemlinear-Befehl nicht abgearbeitet ist, bevor der alte Layer wieder aktuell gesetzt wird. Deshalb muß eine Schleife eingebaut werden, in der abgefragt wird, ob der Befehl noch aktiv ist. Das ist in der Systemvariablen CMDACTIVE gespeichert. Ist der Bemlinear-Befehl noch aktiv, muß der Benutzer natürlich eingaben tätigen können (command pause). Die Lösung könnte dann wie folgt aussehen. (setq lyakt (getvar "clayer")) (setvar "clayer" "L-SO-BEM") (command "bemlinea ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : BKS in Icon auf Werkzeugleiste ablegen
Proxy am 25.01.2005 um 21:03 Uhr (0)
Herzlich Willkommen im Forum. Dies muss in der Menüdatei MNU geschehen. Klingt kompliziert ist es auch damit alles fehlerfrei funktioniert.[i] Beispielsweise ein BKS holen wenn kein existiert. Dat hat z.B. die Suchfunktion ausgespuckt: http://ww3.cad.de/foren/ubb/Forum54/HTML/003691.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/007359.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/007245.shtml http://ww3.cad.de/foren/ubb/Forum54/HTML/004783.shtml Ansonsten mal auch Mr. FAQ begrüssen. - ...
|
| In das Form Rund um Autocad wechseln |
