|
Lisp : WKS / BKS einstellen
ReneReichel am 08.09.2022 um 07:57 Uhr (1)
Hallo cadffm,manchmal sieht man den Wald vor lauter Bäumen nicht... Zitat:Original erstellt von cadffm:Hi,1. Ja2. Warum nicht einfach den vorhandenen Befehl BKS verwenden? BKS welt setzen, machwasduwillst, BKS vorher setzenDanke für die Anregung, funktioniert natürlich...Zitat:Original erstellt von cadffm:3. Du könntest ja auch die Koordinaten umrechnen..!? (mit dem "ich benötige WKS" hast du indirekt schon gesagt das du den nativen Befehl VERSETZ per command steuern möchtest, denn nur dann ist das nöti ...
|
| In das Form Lisp wechseln |
|
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 |
|
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 |
|
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 |
|
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 : Layer löschen
Gerd_Ecke am 09.05.2014 um 07:07 Uhr (1)
moin moin,@CADchup : werde das mit dem layzusf anwenden, danke.Ist immer das gleiche Schema : "tr-st0712-topo-gel" muss auf layer "tr-topo-gel" ABER wo hab ich in meinem Lisp einen Denkfehler ?Code:(defun a2 ( / ; obj ) ) (setq obj (entnext)) (while obj (if (= (cdr (assoc 8 (entget obj))) "TR-St0712-TOPO-GEL") (VertexLayerKorr obj)) (setq obj (entnext obj)) ))(defun VertexLayerKorr (FObjekt / ; M_Obj m_obj_dat m_obj_lay FObj_dat ) ) (princ (entget FObjekt))(princ "
") (setq M_ ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßung
mapcar am 03.09.2004 um 13:11 Uhr (0)
Code: 00: (defun C:ver (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 ) 01: (setq pt1 ( getpoint Aquapanle wählen )) 02: (command bemlinear pt1 pt2 pt1 ) 03: (command Länge pt1 Pause ?????) 04: (command bemlinear pt2 pt3 pt2 ) 05: (setq pt2 (list (nth 0 pt1) (+ (nth 1 pt1) 11.3) 0.0)) ... Tja, irgendwie musst du schon etwas Rücksicht auf zeitliche Abfolgen nehmen. In 01 kriegt zwar pt1 einen Wert, aber sonst noch nix. In 02 fängst du dann fröhlich an zu bemaßen, obwohl pt2 noch nicht mal ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Unterroutine per DCL und setq-Abfragen
Peter2 am 18.03.2008 um 23:20 Uhr (0)
Vielleicht bin ich etwas aus der Übung, aber heute gab es ein Problem, aus dem ich nicht schlau werde:- Ich habe ein DCL-Fenster mit einigen Buttons.(Achtung: Pseudocode folgt.)- Die Buttons sind im Lisp so belegt: (action_tile "mein_button" (meine_unterroutine)) (auf deutsch: wenn Knopf gedrückt, dann starte "meine_unterroutine")- meine_unterroutine ist codiert mit (defun meine_unterroutine () ..So weit so schön - meine_unterroutine führt etwas aus und fertig. Aber jetzt habe ich noch eingebaut:(defun mei ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemaßungsstile ändern
jörg.jwd am 07.02.2013 um 13:15 Uhr (0)
Hallo zusammen,habe schon hundert Jahre kein Lisp programmiert und muss jetzt wieder ran.Mein Problem ist eigentlich recht simpel. Ich habe eine unbekannte Anzahl von Bemaßungsstilen. Bei denen muss ich bestimmte Bemaßungsvariablen ändern. Dazu brauche ich eine Liste mit den Stilnamen, die dann mit foreach oder repeat aufgerufen und geändert werden. Habe auch schon einen Code gestrickt nur leider will der nicht laufen. Hier mal mein Code. Bestimmt sieht einer von euch wo ich murkse.(defun c:change_dimstyle ...
|
| In das Form Lisp wechseln |
