|
AutoLisp : Wer kann mir beim AutoLisp helfen?
kegler43 am 14.05.2004 um 20:17 Uhr (0)
Hallo Holger! Erst mal recht herzlichen Dank für deine Antwort! Ich habe wie du mir gesagt hast die Lisp-Datei als Quellcode angefügt, leider kann ich nicht sagen ob es komplett ist da, ich es nur eingefügt habe. Aus sicherheit hab ich die Text-Datei auch als Datei angehängt. Es wäre ganz nett von dir wenn du mir bei meinen Problem helfen könntest, werde auch natürlich das Vorum nach ähnlichen Antworten durchsuchen. Also hier der Quellcode: TRANSFER Version 1.0 18.3.1993 ; ; Nach der Initialisierung, ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Wer kann mir beim AutoLisp helfen?
Proxy am 14.05.2004 um 21:44 Uhr (0)
kannst du bitte so schnell wie möglich deine AutoCad Version in das Infofeld eintragen und den benötigten Block Nummer von oben.dwg ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entlast
mapcar am 14.05.2004 um 23:15 Uhr (0)
sieht irgendwie uncool aus Isses auch. (setq a a) ist einfach Blödsinn. Das Prinzip, das hinter der Zeile mit dem a steht, nennt sich Evaluation;-) Bei einer zusammengesetzten Zeile wie dieser: (cons a b) werden erstmal die drei Symbole cons, a und b evaluiert. cons evaluiert zu # SUBR @0a92b258 CONS a evaluiert zu (beispielsweise) (1 2 3) b evaluiert zu (beispielsweise) (4 5 6) Und dann evaluiert das Ganze zu (1 2 3 4 5 6) Bei tiefer verschachtelten Ausdrücken fallen ein paar Evaluationen mehr an, und ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Umbenennen von Blöcken!
tom.berger am 15.05.2004 um 17:41 Uhr (0)
Zitat:Original erstellt von CADmium:und warum muß ich jetzt bei den ganzen "Besserwissern" noch was posten? ....Also ersetze "zukunftssicher" die Zeile (setq NeuerName (strcat "WB" (rtos (* (getvar "cdate") 100000000) 2 0))) durch (While(or(not NeuerName) (tblsearch "BLOCK" Neuername) ) (setq NeuerName (strcat "WB" (rtos (* (getvar "cdate") 100000000) 2 0))) )und alle sind zufrieden. Oder nicht?Na, wir wollen doch alle was lernen :-) Und wir Besserwisser woleln in Wirklichke ...
|
| In das Form Lisp wechseln |
|
AutoLisp : einfügepunkt ändern
valerich am 17.05.2004 um 15:24 Uhr (0)
Hier ist geänderten Quellcode. Einfach alles kopieren und ältere Datei ersetzen. Viel Spaß (defun c bjIns ( / cmdecho laenge hoehe text insPoint minPoint minPoint osn minPoint1 maxPoint1 rectang pline1 pline2 txt ) (setq cmdecho (getvar CMDECHO )) (setvar CMDECHO 0) (while (not laenge) (setq laenge (getreal
Laenge [m]: )) );end while (while (not hoehe) (setq hoehe (getreal
Hoehe [m]: )) );end while (setq text (getstring T
Text: )) (if (setq insPoi ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fehler. Funktion abgebrochen
Proxy am 18.05.2004 um 20:08 Uhr (0)
Der Unterschied ist das _ underscore Unterstrich für die Option fence / Zaun ... die deutsche Autocad Version muss IMHO mit Z für Zaun oder mit _fence angesprochen werden. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF [Diese Nachricht wurde von Proxy am 18. Mai. 2 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bögen in POLYLINIEN -> X Geraden
scj am 18.05.2004 um 21:43 Uhr (1)
Hier (und im AutoCAD-Magazin) http://ww3.cad.de/foren/ubb/Forum54/HTML/007227.shtml wurde der Quelltext veröffentlicht.Korrigieren müsstest Du die 5.letzte Zeile (glaube ich) ...Viel ErfolgBeste Grüße aus der RhönJochen
|
| In das Form Lisp wechseln |
|
Lisp : Bögen in POLYLINIEN -> X Geraden
Theodor Schoenwald am 18.05.2004 um 22:53 Uhr (1)
Hallo Mario,ich hätte einen ausgefallenen Vorschlag.Im HPGL-Format werden Bögen in kurze "Linien" zerlegt.- Als Plotter HP7475 einrichten,- in Datei Plotten,- mit "HPGLIN.LSP" diese Plotdatei einfügen.Wenn Du diesen Weg gehen willst und kein Programm findest das HPGL einlesen kann, melde Dich einfach.GrußTheodor Schönwald
|
| In das Form Lisp wechseln |
|
Lisp : Einzeichnen eines Kreises auf Basispunkt von Text...
zimmernagel am 11.07.2019 um 11:03 Uhr (1)
Das mit den Layern ist superpraktisch, dann kann man schneller filtern und anpassen! Ansonsten sage ich allen Vielen Dank. Bedingt dadurch das Ginius (Auskunftsystem von uns) die Grenzsteine mit Schriftart darstellt, und wir alle 3 Monate neue Karten bekommen, ich aber hier Civil 3d 2019 habe, ist die Lösung mit den Schriftarteneinbinden in AutoCAD zwar eine Lösung, um die Darstellung richtig zu bekommen, aber für die Vermessung und spätere Bearbeitung ist es mir lieber einen richtigen Kreis zu haben!!! ;- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : getenv
Bernd10 am 19.05.2004 um 13:08 Uhr (0)
Hallo, ich habe ein Problem mit der Lisp-Funktion getenv in Verbindung mit der Umgebungsvariable ACAD. Ich führe zunächst den AutoCAD-Befehl Optionen aus und trage bei Suchpfad für Supportdatei folgende Verzeichnisse ein: C:ProgrammeAutoCAD 2002 Deudrv C:ProgrammeAutoCAD 2002 Deusupport C:ProgrammeAutoCAD 2002 Deufonts C:ProgrammeAutoCAD 2002 Deuhelp C:ProgrammeCAOSCATS-Pro 3 W:Anwendung W:Block W:Dcl W:Funktionen W:Funktionen_laden W:Funktionen_anreiss W:Funktionen_batch W:Hilfe W:Menue W:Listen W:Vorl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : getenv
Proxy am 19.05.2004 um 13:30 Uhr (0)
Sind Sonderzeichen, Leerzeichen ... sonstige Abarten unter Windows bei Verzeichnissbenennung ? ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
AutoLisp : getenv
Brischke am 19.05.2004 um 15:10 Uhr (0)
Hallo Bernd gib mal im VLISP-Editor vla-get ein und drücke dann [Shift]+[Strg]+[Leer]. Damit werden dann im Apropos-Fenster alle zur Verfügung stehenden Befehle gezeigt. Das funktioniert mit allen Befehl-sanfängen) Für die Anwendung dieser Funktionen ist es ratsam die VBA-Hilfe zu nutzen. Ich selber nutze nur die VBA-Hilfe und die (vlax-invoke-method ..), (vlax-get-property ..) und (vlax-put-property ..) Funktionen. Mehr braucht man nicht. Die vla(x)-irgendwas- Funktionen sind vom Prinzip her vorgefertigte ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schraffur - Mehrere Punkte eingeben
Brischke am 19.05.2004 um 15:42 Uhr (0)
Hallo nring, ich habe dein Tool mal etwas korrigiert und das Klicken mehrerer interner Punkte eingebaut. Code: (defun C:schra (/ aktueller_layer bkstemp pt) (setq aktueller_layer(getvar CLAYER ) bkstemp (getpoint Neues BKS eingeben: ) ) (command _UCS _n bkstemp) (command _-Layer MA 8 fa 1 ) (setq ms (getreal
Maßstab eingeben: )) (command -gschraff e hc-10 ms 0 ) (while(setq pt (getpoint))(command pt));pause (command ) (command _UCS _P ) (command ...
|
| In das Form AutoLisp wechseln |
