|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
joern bosse am 26.11.2024 um 08:01 Uhr (1)
Hallo 100dpi,mit folgendem Code kann der mit ENTMAKE erstellte Text auf Mitte-Zentrisch umgestellt werden, die Position sollte erhalten bleiben:Code:(defun TextMitteZentrisch (ename / P VLA-OBJ) (setq vla-obj (vlax-ename-vla-object ename)) (setq p (vla-get-InsertionPoint vla-obj)) (vla-put-alignment vla-obj 10) (vla-move vla-obj (vla-get-InsertionPoint vla-obj)p) (vla-update vla-obj) )(defun c:test ( / ) (TextMitteZentrisch (car(entsel))) )Das Einbinden in Deinen Code:Direkt nach der ENTMAKE-Funktion mit ...
|
| In das Form Lisp wechseln |
|
Lisp : temporäre 2D-Polylinie zur Längenbestimmung
cadffm am 28.11.2017 um 15:35 Uhr (1)
Zitat:Original erstellt von archi.archi:(command "plinie") wird eigentlich beendet und danach wird (command "_area" ..) aufgerufen. Wo siehst du einen Abbruch?Unabhängig von dem was vw geschrieben hat:Der Abbruch erfolgt direkt nach dem Aufruf des Befehls PLINIE,den AutoCAD erwartet eine Koordinateneingabe und du antwortest mit "_AREA",damit brichst du den ordnungsgemäßen Ablauf des Lisp ab und AutoCAD ist noch im PLINIE-Befehl.F2;==========Befehl:Befehl: LENGPLINUngültiger Punkt.; Fehler: Funktion abgebro ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
Hunchback am 21.04.2009 um 11:42 Uhr (0)
geht doch.Code:(defun codecolor () (setq functionlist (list getattrib setattrib getBlname make_dotted dotted-list table-list getattx getatty str-pos str-tok str-div str-divset stringtolist haschar is_empty_p getcoords getlayer gettype getpoly pline islocked?))(eval (list pragma (list quote (list (cons unprotect-assign functionList)))))(eval (list pragma (list quote (list (cons protect-assign functionList))))) )Ich muß aber zugeben, das das nicht auf meinem Mist gewachsen ist...GrüßeMartin-------------- ...
|
| In das Form Lisp wechseln |
|
AutoLisp : 90 Grad rotieren
CADmium am 24.08.2005 um 21:44 Uhr (0)
Zitat:Original erstellt von archstudent:Ich möchte das Arbeitstempo mit Autocad etwas verbessern.....lassen ?Wenn mein Eindruck täuschen soll,dann arbeite dich z.B. mit MapcarS Seiten oder der Online-Hilfe im VLIDE etwas in die Lisp-Thematik ein und dann gehts konkret weiter. Wie soll das funktionieren , wenn dir hier was von vla-get-Boundingbox, mapcar und anderen Sachen erzählt wird und das Elementare fehlt ? P.S.Die Foren-Suchfunktion sollte zu den Stichworten auch schon etwas finden.------------------ ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : pdf plotten mit lisp und ghostscript 8.33
Omegacentauri am 07.02.2005 um 17:14 Uhr (0)
Hallo Lispler, besonders CADchup... hier möchte ich auch nochmal nachhacken. Es wird immer nur eine eps Datei erzeugt. Es scheinen wohl schon mehrere damit Schwierigkeiten gehabt zu haben... Wäre schön wenn wir das noch mal öffentlich klären könnten, denn dann hätten alle was davon. Hab mich auch dusselig im Forum gesucht ;-) Nur leider war niergens eine konkrete Antwort zu finden. Oder sollte es so sein, das die EPS nachbearbeitet werden muss? Aber das ist dann ja auch Sinn der Sache. Grüße ------------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Additions-LISP erweitern
Dabrunz am 23.07.2004 um 10:54 Uhr (0)
Zitat: Mit folgendem Prog-Schnipsel könnte man beliebige Rechenoperationen verwenden: Na, allzu beliebig sieht mir das nicht bei 4 Operationen aus. Wie wäre es mit folgender Modifikation? Code: (setq #op (eval(read(getstring
Operation: )))) (if (ist-funktion? #op) (setq #ergebnis (#op #wert1 #wert2)) ) ;; hierbei ist ist-funktion? folgend definiert: (defun ist-funktion? (x) (member (type x) (USUBR SUBR EXSUBR EXRXSUBR)) ) Das nenne ich mal beliebig (natürlich unter der Einschr ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Zahlen.lsp mit Ortho?
CADmium am 31.10.2009 um 10:25 Uhr (0)
Zitat:Original erstellt von GIGIMAN:Haste recht - aber die Lisp läuft genauso wie ich sie hochgeladen habe! Nur halt mit dem Ortho - Problem!Mehr kann ich dazu leider auch nicht sagen - läuft die Routine bei Dir nicht?Nein, da ich keine Funktionen START und END habe.kannst ja bei dir mal in einer Zeichnung, wo noch nichts geladen ist (START) eingeben ...du kannst natürlich auch in deiner lsp (START) und (END) löschen und sie dann mal laden und testen...------------------ - Thomas -"Bei 99% aller Probl ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp warten lassen
Theodor Schoenwald am 15.12.2008 um 18:55 Uhr (0)
Hallo,ich habe bis jetzt, noch keine gute Lösung gefunden.- Pause und Wartezeit hat keinen Erfolg gebracht.- (Getstring "Weiter eine Taste") auch nicht.- Mit Hilfe von DCL einen Fortschrittsbalken durchlaufen lassen auch nicht.Alles was ich probiert habe, funktioniert je nach PC-Geschwindigkeit anders. Wenn es dann bei ACAD in den meisten Fällen geht, funktioniert es bei BricsCad oder sonst einem ICAD-Abkömmling nicht.Ich warte immer noch auf eine einfache und sichere Lösung.GrußTheodor Schönwald
|
| In das Form Lisp wechseln |
 |
Lisp : Zeichnungseinheiten von mm nach m: units
sponk-mg am 15.04.2013 um 18:17 Uhr (0)
Hallo allerseits,ich bitte um Hilfestellung im Umgang mit dem Befehl units.Rufe ich diesen in AutoCad auf, erscheint ein Menümit den Zeichnungseinheiten (siehe Anhang units02.jpg)Verwende ich den Befehl innerhalb Lisp mit dem command-Befehlerhalte ich ein Menü ohne die Zeichnungseinheiten. (siehe Anhang units01.jpg)Hintergrund:Ich habe DWGs in mm vorliegen und muss diese nach m konvertieren ohnedie vorhandenen Objekte neu zu skalieren. Einzeln in AutoCad funktioniert das.Ich möchte diese Fragestellung jedo ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Abstand
RoyCAD am 07.09.2004 um 12:51 Uhr (0)
Ich habe grade ein Lisp geschrieben der erzeug eine Bemaßungkette. Ich weis aber nicht wie soll ich der Abstand zischen dem Element und Bemaßung definieren. Hat jemand eine Idee wie kann ich das machen. Ich kämpfe mit dem „Programm“ schon eine Weile. (setq pt1 ( getpoint Aquapanle wählen )) (setq ptendh (getpoint Endpunkt wählen )) (setq ptlegh (list (nth 0 pt1) (nth 1 ptendh) 0.0)) (setq pt2 (list (nth 0 pt1) ( + (nth 1 pt1) (cadt:cm 11.3)) 0.0)) (command bemlinear pt1 pt2 pt1 ) (setq pt3 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bemaßung (Überschreibung)
Proxy am 03.03.2004 um 10:13 Uhr (0)
Also doch nicht so ganz verstanden. Wie am Screenshot gezeigt (Rote Pfeile) sollen die Werte in die Bemassungsfelder (Prefix und Suffix) übertragen werden wenn das -Zeichen vorhanden ist, danach soll es gelöscht/entfernt werden, damit die echte Maßzahl sichtbar wird. Wenn es jedoch nicht vorhanden ist (screenshot n° 1) soll die Bemassung nicht modifiziert werden. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-departm ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Elemente auf eine definierte Einfügehöhe verschieben
ChristianBermpohl am 17.03.2016 um 16:46 Uhr (1)
Sorry, Verwirrung zu schaffen ist ganz bestimmt nicht meine Absicht!! Ich bin wirklich für jede Hilfe dankbar...Ich versuche es mal mit der Anleitung. 1.) Die Datei coe_special_kitchen.dcl/lsp laden2.) Den Befehl cadtop ausführen3.) im Dialog -- "Special Ein" selektieren -- "Layergruppe" Langteile auswählen -- Unter BKS-Z zum Beispiel den Wert 800 eingeben -- Den Dialog mit OK verlassen4.) Das Programm verschiebt nun Linien, Bögen usw. auf die eingegebene Z-Höhe 800 Nur eben nicht das Element KRE ...
|
| In das Form Lisp wechseln |
 |
Lisp : Schnittpunkt im benannten bks berechnen
Esme am 17.12.2015 um 08:47 Uhr (15)
Hallo,mit einem Lisp berechne ich den Schnittpunkt von 2 Linien und füge an diesem Punkt einen Block ein. Klappt auch schon lange. Nun muss ich das Ganze in einem benutzerdefinierten schrägen bks machen. Da wird der Schnittpunkt falsch berechnet und der Block natürlich auch an der falschen Stelle eingefügt.Mir ist so, als ob ich das Thema mit dem verdrehten bks vor Jahren in einem anderen Zusammenhang schon mal hatte. Mir fällt aber absolut nicht mehr ein, wie der Befehl hieß, um das verdrehte bks bei der ...
|
| In das Form Lisp wechseln |
