|
AutoLisp : Höhenkote Lisp Code 3 Fragen
Proxy am 07.05.2004 um 14:31 Uhr (0)
So etwa: Code: (defun c:HKATTS (/ ) (princ
H koten setzen. Starten mit HKATTS ) ;FEHLERBEHANDLUNGSROUTINE..................................................... (defun-q *error* (msg) (setvar osmode aosm) (setvar blipmode abli) (setvar luprec alup) (setvar dimzin azin) (setvar attdia attdiaold) (setvar clayer oldlayer) (setq p1 nil p2 nil p3 nil p4 nil c1 nil cy nil cym nil txt nil) (setq hkmz nil o_str nil n_str nil o_slen nil n_slen nil si nil st nil dx nil me nil cmmm nil cm1 ni ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
ABDN am 07.05.2004 um 14:02 Uhr (0)
Hallo, mit den nachfolgenden Lisp Code kann man Höhenkoten anschreiben lassen. Die dazugehörige Datei „HKATTS“ ist nur eine DWG-Datei womit man die Höhenkote platzieren kann. zu den nachfolgenden Lisp Code habe ich drei Fragen bzw. Probleme. 1. Der Lisp Code setzt den Layer auf 0 beim platzieren der Höhenkote (Block), dies ist soweit richtig. Er soll aber nach Programm ende den alten Layer wieder zurückstellen. Wie funktioniert dies in dem Code? 2. Vor Programmaufruf soll die Anzeige der Dialogfelder für A ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ActiveX: Layer-Erzeugung erzeugt Access Violation
tom.berger am 28.06.2004 um 13:30 Uhr (0)
Zitat: Original erstellt von Dabrunz: Nun habe ich bereits einen Workaround gefunden, der ist allerdings wenig elegant (das sind Workarounds allerdings i.d.R. nicht). Mich würde nun schwer interessieren, ob s hier jemanden gibt, der/die zu diesem Verhalten fundierte Hindergründe kennt Hallo Achim, im Gegensatz zu CADwiesel kann ich den Fehler unter AutoCAD 2002 unmittelbar nachvollziehen. Eine Erklärung dafür habe ich zwar auch nicht, aber auf eine ganze Reihe ähnlich seltsamer Bugs der COM Schnittst ...
|
| In das Form AutoLisp wechseln |
|
Lisp : umgang mit rechenungenauigkeiten
Code Kian am 26.09.2023 um 17:48 Uhr (1)
Zitat:Original erstellt von cadffm:Hi," aber acad rechenungenauigkeiten haben zu einer unzufriedenstellellender abweichung geführt."Das wundert mich (ungesehen/ungeprüft) doch sehr, denn relevant sollten diese mathematischen Ungenauigkeiten des Datentyps doch eher nicht sein.Zumindest nicht grafisch relevant." dann bin ich auf die rtos funtion gestoßen"RTOS um ein Problem mit Ungenauigkeiten zu umgehen? Okay, aber genauer wird es dadurch nicht und die Ungenauigkeiten werden dadurch ja höchstens größer, sta ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 19:28 Uhr (0)
Uuund anbei noch mal n komplettes Ding... Code: (vl-load-com) ; Macht einen Layer aktuell (defun SET-LAYER (NAME / RETVAL) (vla-put-activelayer (CURRENT-DOCUMENT) (setq RETVAL (vla-item (DOCUMENT-LAYERS) NAME)) ) ;_ Ende von vla-put-ActiveLayer RETVAL ) ;_ Ende von defun ; gibt das Vla-Object zu einem ; Layernamen zurück (defun layer-object(name / result) (vlax-for layer(document-layers) (if (=(strcase name) (strcase(vla-get-name layer)) ) (setq result lay ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : 2d Rohrbogen
HANS at Stmk am 10.04.2005 um 14:47 Uhr (0)
Hallo Holger, herzlichen Dank für Deine Hilfe. Habe die Routine schon getestet. Einige Anpassungen für meinen Gebrauch habe ich dazugeschrieben: In meiner Zeichnung habe ich für verschiedene Medienrohre verschiedene Layer wie z.B. pipe_hydro, pipe_gypsum usw. Die Layer haben verschiedene Farben, Ltyp haben alle „continous“. Auf jedem Layer sind die Rohr-Aussenkanten mit Farbe „vonlayer“ und Ltyp „vonlayer“, die Rohrmitten aber mit Farbe „1“ und Ltyp „mitte“ gezeichnet. So wie es jetzt unten steht, funktion ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Entwicklung einer allgemeinen *Error* Funktion...
mapcar am 25.02.2004 um 22:51 Uhr (0)
Hi Marc, vielleicht machst du dir das Leben ja nur selber schwer;-) Es müssen ja gar keine komplizierten, ellenlangen lambda-expressions sein. Du willst ja diese Sachen permanent benutzen - also pack sie in Funktionen, die du dann verwendest. Z.B. so: Code: ; Greift auf die Variable instance des ; Errorhandlers zu - nur in diesem ; Environment aufrufen! (defun save-ucs (/ ucsflag) (if (= instance 1) (progn (setq ucsflag (world-ucs)) (save-vars (ucsflag) *ucsData*) ) ) ) ; Greif ...
|
| In das Form AutoLisp wechseln |
|
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 |
|
Lisp : autoload ohne autoload
toxot am 20.09.2009 um 17:33 Uhr (0)
Zitat:Original erstellt von CADmium:mal nebenbei : Da hatten wir den Konstrukt schonhier... richtig. Ich hatte auch mit Henning Kontakt, er hat das Projekt für einen anderen Zweck gedacht und nicht in diskutiertem.Ich suche aber schon lange nach einer solchen Möglichkeit, weil diese unter bestimmten Voraussetzungen eine mächtige Möglichkeit bietet!Vielleicht haben auch andere Programmierer ähnlichen Bedarf. Zitat:.... aber mal ehrlich was habe ich von einem automatischen Nachladen per Reaktor ?Ich lade me ...
|
| In das Form Lisp wechseln |
|
AutoLisp : bemaßungsstil
fca_mi2 am 03.05.2005 um 09:41 Uhr (0)
sorry, hier ist der rest ! ich hoffe, ich habe alles erwischt. (defun c:fc_bemausg (/ textart) (setq lelement (entlast)) (fc_dim 0.18 4) (fc_layer_anlegen (strcat BEM (nth 1 (fc_skalierung_2))) 1 continuous acadiso.lin ) (command bemausg pause pause pause) (if (/= lelement (entlast)) (progn (command ändern l ei layer (strcat bem (nth 1 (fc_skalierung_2))) ) (fc_maßtext_ueberschr (entlast)) (fc_bemreaktor_anhaengen (entlast)) );progn );if ); ...
|
| In das Form AutoLisp wechseln |
RCAD.zip |
Lisp : Häcken im Menü anzeigen
cadffm am 26.09.2020 um 17:43 Uhr (1)
Zitat:OFFtopic, aber wichtig!OT: die DWG, welche du im übrigen vermutlich beim nächsten Upload überschreibst, denn Du als User auf CAD.de hast (nur) EINEN persönlichen Upload-Ordnerfür Dateianhänge, der nächste Upload mit gleichem Dateinamen+Ext würde vorerhigen Upload überschreiben, als Ergebnis könnten anderen/Mitleser keinen ordentlichenThreadverlauf mehr nachvollziehen können, weil die DWG nicht mehr zu den Postings passt. Und es betrifft ja nicht nur den aktuellen Thread, es geht um alle deine Posts m ...
|
| In das Form Lisp wechseln |
