|
Lisp : Umbenennen von Blöcken!
CADmium am 15.05.2004 um 09:50 Uhr (0)
... Kritik ist ja berechtigt. Und auch ein cdate-vergleich bis eine entsprechende differenz auftritt ist möglich, aber letztendlich ist es doch egal, mit was ich den Prozessor beschäftige, oder ? .. und (repeat 10000 nil) .. passt in eine kurze Zeile @Axel.. oder kennst du eine Möglichkeit, mit Lisp einen Windows-Task für eine bestimmte Zeit zu stoppen, so daß sich der Rechner anderen (meist nicht vorhandenen Aufgaben) zuwenden kann ? - das wäre ökonomisch !Und Zufallszahlen .. die auch nur von cdate ab ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemaßung in Blöcken
hfranke am 01.08.2006 um 16:45 Uhr (0)
Hallo,hier mein Problem: Ich füge mittels Lisp aus einer Vielzahl von dynamischen Blöcken Zeichnungen zusammen. Diese Blöcke enthalten auch Bemaßungen, die alle einem Bemaßungsstil zugeordnet sind. Da ich nun die erstellten Zeichnungen in verschiedenen Größen plotten möchte, wäre es schön, auch die Größe der Bemaßung (Text und Pfeile) anzupassen.Da die Bemaßungen innehalb der Blöcke sind, kann ich diese Anpassung entweder über den Skalierfaktor des Bemaßungsstiles oder über die Änderung der Größe des Bemaß ...
|
| In das Form Lisp wechseln |
knr.dwg.txt |
Lisp : Dynamischen Block via Lisp steuern
cadplayer am 12.06.2013 um 11:31 Uhr (0)
Mein Visualkenntnisse steigen zwar allmählich, aber stehe ich hier vor einer neuen Tür.Code:;; From: "Tony Tanzillo" ;; Newsgroups: autodesk.autocad.customization;; Sent: Friday, May 13, 2005 6:37 AM;; Subject: Re: DynamicBlock method;; Get a single dynamic block property object by name(defun dyGet (DynBlockRef Name) (vl-some (function (lambda (property) (if (eq (vlax-get-property property PropertyName) Name) property ) ) ) (vlax-safearray-list (vlax-variant-value ...
|
| In das Form Lisp wechseln |
|
Lisp : Überprüfung von Elementwahl
ryfCAD am 23.08.2019 um 16:05 Uhr (1)
Hallo und besten Dank!Habe die Lösung von Spider_DD mal integriert und funktioniert:@cadffm: die Formatierung geht mit copy-paste irgendwie verloren, kopiere aus Notepad++, die Einrückungen mache ich mit Tabscode:(defun c:rC-Messen_Winkel-Prozent( / sli li x1 x2 y1 y2 proz Prozentstr winkel Winkelstr) ;Meldung (princ " ") (princ "
rC © ryfB FUNKTION: misst Neigung einer Linie in Grad und %") (princ) ;Linie wählen: (while (not (and (setq sli (entsel "
Linie wählen ")) (= (cdr (asso ...
|
| In das Form Lisp wechseln |
|
Lisp : Automatic Dimension AutoCAD LISP??
cadffm am 28.07.2023 um 10:03 Uhr (1)
Hi,"Wir müssen alle Layoutseiten in dieselbe PDF-Datei plotten""Ich konnte die Option für alle Layouts im Befehl -PLOT nicht auswählen."Die Möglichkeit gibt es weder im Plot, EPDF noch Export Befehl in AutoCAD,das geht nur über PUBLIZIEREN und dafür (Steuerung über die Befehlszeile) müßte man bereits eine Planliste.dst erstellt haben.Edit: EPDF/-EXPORT in einem Layout ausgeführt bietet diese Möglichkeit, DANKE kadirozen !!!Oder man findet/schreibt ein Programm was den ein oder anderen Weg doch brauchbar ma ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Probleme gesucht...
Brischke am 16.04.2003 um 15:01 Uhr (0)
Hallo Geos, wenn du den Wert des/der gepickten Textes/Attrib s haben möchtest, dann geh doch gleich mit nentsel drauf. Habe mal etwas code getippst, der eigentlich das machen sollte, was du möchtest. Habe das nur hier runter geschrieben, kann also sein, dass kleine Fehler drinnen sind bzgl. Klammern..? Code: (defun c :picktext ( / text) (while (not text) (princ "
Text oder Attribut wählen: ") (setq text (lesen)) ) (princ "
gefundener Text:") (if (= (type text) STR) (princ text) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
Geistl am 17.03.2007 um 10:37 Uhr (0)
das ist mein laienhaft auf die schnelle gebautes Programm!(defun mysettigs ( / eingabe) ; Alten Pfad ausgeben; (gencfgget "gen@Paths@DWGTITLE") ; (gencfgget "gen@Paths@DWGPATH"); Neuen Pfad setzen(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(princ "Bitte Kunden auswählen:
")(princ "----------------------------
")(princ "Kunde1:----1
")(princ "Kunde2:--------2
")(princ "Kunde3:------3
")(textscr)(textscr)(terpri)(setq eingabe (getstring T "Kunde ? ")) (if (= eingabe "1") (progn (te ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Schriftfeldeinträge exportieren
Tommi1503 am 28.01.2005 um 10:11 Uhr (0)
Hallo CAD ler Ich habe ein Problem mit dem Mechanical Desktop bzw AutoCAD. Wir mochten Schriftfeldeinträge mehrerer Zeichnungen in eine Excel datei exportieren. Diese Funktion wird auch von Autodesk unterstützt und zwar mit dem Befehl _eattext diese Funktion lässt sich auch auf mehrere Zeichungen anwenden. Leider exportiert er nicht alle Attribute des Schriftfeldes. Es schien im Anfang nur so zu sein, dass die Attribute nur sporadisch aus einzelnen Zeichnungen übernommen wurden. Unserer CAD-Support Partne ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 13:28 Uhr (0)
Hi, jetzt will ich mich auch einmal einmischendie folgenden paar Zeilen sind für die Implementierung eines Reaktors vollkommen ausreichend- es sind auch alle Befehle, die mit DIM beginnen erschlagen. Code:(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0") ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER ...
|
| In das Form Lisp wechseln |
|
AutoLisp : assoc??
Brischke am 15.03.2004 um 07:21 Uhr (0)
Hallo Moony, mit (car..) sprichst du das erste Element einer Liste an. (cdr..) gibt dir die Liste ohne das erste Element als Ergebnis zurück. Mit (nth..) sprichst du ein Listenelement direkt an, und erhältst auch nur dieses als Ergebnis. Deine Liste sieht so aus: ((10 67.8505 29.062) (10 80.7359 29.062) (10 80.7359 39.4718) (10 67.8505 39.4718)) Du möchtest von jedem Element den Schlüssel, also die 10, entfernen. Für ein einzelnes Element macht man das dann mit (cdr..) - für alle auf einmal mit (mapcar c ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe zu Lispprog.
CADLUIS am 05.01.2009 um 17:39 Uhr (0)
Hallo zusammen!Ich habe im Netz ein kleines Lisp gefunden das fast geneu meinen Wünschen entspricht.Dieses Prog. benennt mir die Layout nach der Plannunmmer um, und nummeriert diese dann fortlaufend.Nun brauche ich eure Hilfe um es für mich perfekt zu machen.1.) Nur es bringt mir eine Fehlermeldung (; Fehler: no function definition: VLAX-GET-ACAD-OBJECT)2.) Wie kann ich dem Prog. sagen das es nicht bei Nummer 1 beginnen soll, sondern eine Abfrage der 1. Nummer für die Nummerierung. (Die erste Nummer ist n ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und Dialogboxen
Andreas Kraus am 11.07.2014 um 08:18 Uhr (1)
Ja, ok, die Auswertung der Variablen hat noch gefehlt.Dann eben so:Code:(defun DialogFraesen (/ I1 OK) (setq I1 (load_dialog "CNC.DCL")) (if (null (new_dialog "CNC" I1)) (alert "Laden der Dialogbox nicht moeglich!") ) (setq ZAchse (atof (get_tile "ZAchse"))) (setq WZNr (atof (get_tile "WZNr"))) (setq Vor (atof (get_tile "Vor"))) (setq Ab (atof (get_tile "Ab"))) (setq Links (get_tile "Links")) (setq Nein (get_tile "Nein")) (setq Rechts (get_tile "Rechts")) (setq Auswahl "Nein") (action_tile " ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp VSCURRENT
Mbaechler am 05.01.2017 um 21:47 Uhr (1)
Wenn ich den "subobjselectionmode" auf 3 setze, dann kann er zwar die 3D-Rohre mitstrecken nimmt mir aber die 2D-Linien nicht mehr mit. Ich brauche das aber wenn ich z.B. eine Mauer zeichne im 3D dann habe ich nur die äussere Umrandung in 3D und die innere in 2D gezeichnet. Ich möchte da aber gleich beides mitstrecken können. daher setzte ich denn "subobjselectionmode" auf 0. Untenstehend meinen Code wie ich diesen zurzeit gebrauche. Irgendwie muss ich noch zusätzlich den "subobjselectionmode" 0 reinbringe ...
|
| In das Form Lisp wechseln |
