|
Rund um AutoCAD : Punktsymbole nach BKS ausrichten
Kramer24 am 30.11.2010 um 17:49 Uhr (0)
Zora,willkommen.Ich bin mir nicht sicher, aber mit dem Befehl "_copybase" müsste dein Vorhaben funktionieren.Ansicht nach Text-BKS ausrichten - "_copybase" - neues BKS + neue Ansicht aktuell - einfügen.Was passiert?EDIT: Na, es wird wohl nicht funktionieren, weil die Objekte zum WKS ganz anders liegen. Evtl. gibt es ein Lisp, was die Texte und/oder Punktsymbole dreht.Lothar[Diese Nachricht wurde von Kramer24 am 30. Nov. 2010 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Bereinigen und Prüfung erzwingen
Brischke am 19.12.2002 um 08:50 Uhr (0)
Hi Assi, beim Schließen einer Zeichnung ist das so eine Sache. Genauso gut kann man das auch beim Öffnen einer Zeichnung erledigen, was dann auch problemlos zu integrieren ist. Dazu einfach in eine *.mnl - Datei (eines immer geladenen Menüs) die notwendigen Befehle reinschreiben und fertig. (command "_.purge" "_all" "" "_n") (command "_.audit" "_Y") Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Jetzt neu: FreeDownload
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Erinnerung an ausgeblendete Objekte
Ingo Struck am 18.08.2017 um 10:38 Uhr (1)
Zitat:Möglich wäre auch die Änderung der Farbe des Fadenkreuzes, aber da gibt es meines Wissens keine Systemvariable.Die Farbe des Fadenkreuzes ist in der Registry gespeichert und die Variable (keine Systemvariable) heißt "XhairPickboxEtc". Hierauf kann man mit der AutoCAD Vollversion und Lisp sowie mit AutoCAD LT und DIESEL über "getenv/sentenv" zugreifen. Hier gibt es den Speicherort der Variablen sowie ein Beispiel dazu. mfg, Ingo ------------------"Umwege erhöhen die Ortskenntnisse!"
|
| In das Form Rund um AutoCAD wechseln |
|
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 |
