|
AutoLisp : Additions- LISP
CADmium am 16.07.2004 um 14:00 Uhr (0)
So was ? .. oder nur ein Taschenrechner oder nur Ganzzahlen ... ? (defun ADD ( / Z1 Z2 OBJEKT OBJEKTDATEN ) (if (setq Z1(getreal
Zahl eingeben: )) (while (setq OBJEKT (car(entsel
Text wählen : ))) (setq OBJEKTDATEN(entget OBJEKT ( * ))) (if (member(cdr(assoc 0 OBJEKTDATEN)) ( TEXT MTEXT )) (progn (setq Z2 (atof (cdr(assoc 1 OBJEKTDATEN)))) (setq OBJEKTDATEN (subst(cons 1 (rtos (+ Z1 Z2) 2 2)) (assoc 1 OBJEKTDATEN) ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : ATTOUT in Scripten
CADchup am 14.03.2006 um 17:28 Uhr (0)
Hi,ATTOUT ist ein Express Tool, da wirst du um ein paar Zeilen Lisp nicht herum kommen, wenn du es in Skripten benutzen willst. Da ATTOUT außerdem nicht skriptfähig ist, muss man eine Subroutine aus ATTOUT benutzen, der man einfach alle Parameter übergibt.Zuerst laden, wenn es noch nicht da ist:(if (not c:bns_attout) (load "attout") )Und jetzt nur noch bns_attout (besagte Subroutine) mit dem Dateinamen und dem Auswahlsatz füttern:(bns_attout "c: emp est.txt" ss)GrußCADchup------------------CADmaro.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Layer toggeln?
CAD-Huebner am 20.10.2016 um 17:58 Uhr (1)
Das könnte man über ein kleines Lisp Makro lösen.Code:(defun C:UHTOGGLELAYER123 ( / tlay)(setvar "cmdecho" 0)(setvar "expert" 1) ; bei aktuellem Layer nicht warnen(Setq tlay "layer123")(if (tblsearch "LAYER" tlay) (if (minusp (cdr (assoc 62 (tblsearch "LAYER" tlay))) ) (command "_.-layer" "_on" tlay "") (command "_.-layer" "_off" tlay "") ))(setvar "cmdecho" 1)(princ))------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : autocad-farbfenster aufrufen
Nano am 08.12.2007 um 13:47 Uhr (0)
Hallo Thomas Farbfenster aufrufen, dass der Benützer die Farbe auswählen kannum den xRef-Zeichnung zu zuweissen.Habe schon Lisp mit DCL gemacht, dass mir die Liste der xRef-Zeichnungen anzeigt und der Benützer kann dieser wählen.Thomas habe dies eingegeben, das Farbfenster erscheint nicht.Was habe ich falsch gemacht???(acad_truecolordlg color [allowbylayer] [currentlayercolor])Gruss Nano
|
| In das Form Lisp wechseln |
 |
BricsCad : Transparenz einem Objekt zuweisen
Mailüfterl am 28.01.2016 um 17:05 Uhr (15)
Hallo,seit der Version 16 gibt es auch in BricsCAD Transparenzen.Nun frage ich mich, wie man mit LISP-Code einem Obejkt Transparenzen zuweisen kann.In AutoCAD funktioniert das mit (vla-put-entitytransparency vla-objekt Wert). Die Funktion vla-put-entitytransparency ist in BricsCAD 16 aber unbekannt. Wie weist man in BricsCAD 16 einem Objekt eine Transparenz zu?Vielen Dank im Voraus für die Antworten![Diese Nachricht wurde von Mailüfterl am 28. Jan. 2016 editiert.]
|
| In das Form BricsCad wechseln |
|
Rund um Autocad : Datum im Schriftfeld aktualisieren
Brischke am 03.06.2003 um 08:35 Uhr (0)
Hallo, du kannst die folgenden Zeilen auf eine Schaltfläche kopieren, dann hast du s auf Knopfdruck. Code: (setq date(itoa(fix(getvar"cdate"))) date (strcat(substr date 7)"."(substr date 5 2) "."(substr date 1 4))) (entupd(cdr(assoc 330(entmod(subst (cons 1 date) (assoc 1 (setq att(entget (car (nentsel))))) att) )))) (setq att nil date nil)) Bei Fragen ... Grüße Holger ------------------ Holger Bris ...
|
| In das Form Rund um Autocad wechseln |
|
PTC Creo Elements/Direct Modeling : gemessenen Wert in der Konstruktion übertragen, wie?
Walter Geppert am 08.11.2021 um 23:34 Uhr (15)
Eine Strecke hat eine Länge und eine Richtung, braucht also zwei Eingaben. So einfach gehts also nicht.Ich würde folgende Vorgehensweise mit Hilfsgeometrien wählen:Durch Startpunkt auf der AE eine Hilflinie in der gewüschten Richtung und eine Lotrecht dazu. Dann Hilfsgeometrie parallel starten zur Lotrechten, bei Abfrage des Abstands "Messen Kantenlänge aufrufen" und Ergebnis mit "Übernehmen" (grüner Returnhaken) übertragen------------------meine LISP-Makros sind mit vielen anderen aus diesem Forum auf osd ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
Lisp : Problem mit Attributsblock
CADmium am 03.05.2011 um 17:21 Uhr (0)
Zitat:Original erstellt von bertl24:Nur kann ich eben das Attribut in Lisp nicht "anpacken" :-)entweder mit (entget(car(nentsel "Att wählen:")))oder mit(if (and(setq OBJEKTDATEN(entget (car (entsel "Blockref wählen:")))) (assoc 66 OBJEKTDATEN) ) (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN))))) (if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB") (=(strcase (cdr(assoc 2 OBJEKTDATEN))) "ATTRIBUTS ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Datenbank mit lisp
Ulf Böger am 11.07.2003 um 10:30 Uhr (0)
Hi, hier die Tip s, die ich auf die Schnelle habe. Die Funktion mask_ausg ist die eigentliche Funktion. Hier wird die Datenbankrecherche angeworfen usw.! Alle anderen Funktionen sind ja dann auch nicht von mir. Aber die stellen die Verbindung her usw.! Voraussetzung ist, dass du eine Datenquelle (Windows) mit dem Namen prosort eingerichtet hast. Ich habe da eben auch Schwierigkeiten gehabt das hier hinzubekommen. Kann aber an meinem System liegen. Ich hoffe du bekommst es hin! Die Sach mit dem VBA ist natü ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : LISP in AutoCAD 2002
Bernd Cuder am 21.02.2003 um 01:30 Uhr (0)
@Mapcar wir hatten da mal eine kleine Differenz! aber in diesem punkt sind wir uns offensichtlich einig, Autodesk ändert einfach die Grundlagen mit jeder zweiten, dritten... Version aber damit muß auch ich in ARX leben, mein code mußte auch für 2000 umgeschrieben werden aber ich habe mich damit abgefunden, (Wobei du hast dich ja nicht über den Beitrag aufgeregt sondern nur klargestellt) LG Bernd ------------------ Bernd Cuder Cad&Co makes CAD easy
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Zukunft von Lisp/ARX
CADchup am 24.04.2006 um 08:38 Uhr (0)
Hi, Zitat:Original erstellt von Brischke:Ich denke solange es AutoCAD gibt, wird es auch AutoLisp geben. Wie lange das Sein wird ... ???das sehe ich genauso. Autodesk wird sich nicht die Mühe machen und AutoLISP aus seinen Produkten entfernen. Ich denke, der Aufwand wäre erheblich und der Nutzen???Ganz davon abgesehen würde Autodesk sich dadurch erhebliche Negativ-Publicity einhandeln und den Zorn vieler Nutzer und Entwickler auf sich ziehen.GrußCADchup------------------CADmaro.de
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Befehl Layer / Spalte Farbe
Bernd10 am 22.12.2004 um 16:10 Uhr (0)
Hallo, im Dialogfenster des Befehls layer gibt es die Spalte Farbe (siehe Anlage). Wie kann ich in Lisp die Information dieser Spalte ermitteln, wenn der Layername bekannt ist? Mit (tblsearch layer layername) bin ich nicht weiter gekommen. Danke im Voraus und viele Grüße Bernd EDIT: Warum werden immer meine alten System-Infos verwendet, obwhl ich sie in meinem Profil aktualisert habe? [Diese Nachricht wurde von Bernd10 am 22. Dez. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Bereinigen - Alles bereinigt nicht Alles
CADmium am 08.11.2011 um 18:10 Uhr (0)
Zitat:Original erstellt von Peter2:c) Befehl über Lisp: Rückmeldung bei Erfolg und immer NIL (wo das wohl herkommt ..)Code:Befehl: (command "_.purge" "X")2 leere Textobjekte gelöscht. nil Befehl: (command "_.purge" "X") nil die Rückgabe des command-aufrufes ist immer nil !! -- F1Der Text ist einfach eine Ausgabe, die innerhalb des Befehls erfolgt... damit ist auch d) Schrott ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte ...
|
| In das Form Rund um AutoCAD wechseln |
