|
Lisp : Transparente Punkte in while Schleife
MARTINLE am 19.11.2013 um 05:54 Uhr (1)
(defun c:2PC (/ p1 p2 p3 wp1 wp2 wp3) (while (setq p1 (getpoint "Punkt1")) (setq p2 (getpoint "Punkt2")) (setq wp1 (trans p1 1 0)) (setq wp2 (trans p2 1 0)) (command "_ucs" "3p" p1 p2 "") (command "bemlinear" (trans wp1 0 1) (trans wp2 0 1) pause) (command "Bemweiter" Pause) (while (/= (getvar "CMDACTIVE") 0) (command pause)) (command "._ucs" "vo") ))Hallo,Obiges Lisp funktioniert soweit.Nur wenn ich bei p2 einen transparenten Objektfang (lotrecht) oder einen Punkt mit der Objektfangspur g ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Block modifizieren
TK_KE am 02.09.2003 um 08:57 Uhr (0)
@ CADWiesel! Vielen Dank! Funktioniert prima. Muß mich wohl doch mit VLISP beschäftigen. Gibts irgentwo ein (am besten deutschsprachiges) Tutorial oder wenigstens eine über die ACAD-Hilfe hinausgehende Befehlsreferenz dazu? Quelltextbeispiele sind natürlich auch willkommen. @CADchup Woher das Teil kommt ist doch Wurst. Solche Programmschnipsel sollten sowieso sowas wie öffentlich sein. Würde der Entwicklung von Lisp echt gut tun. Reicht schon, wenn sich Autodesk nicht in die Karten gucken läßt. ... Das mi ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Installationsprogramm für Lisp-Programme
benwisch am 05.05.2004 um 17:05 Uhr (0)
Also.... für eine normale WindowsSsetupRoutine gibt es das Programm Inno Setup . Es ist ein Freeware-Programm und ist Script-gesteuert. --cut in-- Yes, it may be used completely free of charge, even when deploying commercial applications. --cut out-- IMHO ein absolut empfehlenswertes Programm!! Für die Installation unter Autocad (Suchpfad, Autostartgruppe, Profilbearbeitung...etc.) gibt es das Programm Acad Install . Ist auch Freeware und man muß nur einen Obulus entrichten, wenn man seinen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Linie spiegel
mkl-cad am 23.03.2006 um 09:39 Uhr (0)
HalloHier ein Lisp Programm welches alle Linien so dreht das Linien mit Symbolen bzw. Texten in leserlicher Richtung stehen. Also von vorne oder von rechts gelesen werden.(defun c:leitungd (/ n a anz o ap ep w ob) ;Leitungen drehen (setq n 0) (setq a (ssget "X" ((0 . "LINE")))) (if (= a nil) (alert "Eh du! Da sind keine Linien in der Zeichnung")(progn (setq anz (sslength a)) (repeat anz (setq o (ssname a n)) (setq n (+ 1 n)) (setq ob (entget o)) (setq ap (assoc 10 ob)) (setq ap (cdr ap)) (setq ep ( ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Datenbank mit lisp
GG-GREGOR am 26.08.2003 um 18:25 Uhr (0)
(DEFUN C:EXEL () (setq excel (vlax-get-object excel.application ) ExcelWorkbook (if excel (vlax-get-property excel C://mappe1.xls )) ExcelSheet (if ExcelWorkbook (vlax-get-property ExcelWorkbook mappe1.xls )) ExcelCells (if ExcelSheet (vlax-get-property ExcelSheet Tabelle1 )) ) (SETQ A (vlax-get-property ExcelCells 1A )) );END OF DEFUN irgend wie hab ich den hund drin !!!! was ist falsch ?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemnte auf neuen Layer kopieren und unter die alten legen
Brischke am 28.08.2004 um 16:35 Uhr (0)
Hallo Tom, sind die Elemente des Layers A nicht in irgendwelchen Blöcken verschachtelt, dann kannst du mit (setq aws(ssget _X ((8 . A )))) die Elemente in einem Auswahlsatz zusammen fassen. Layer B erzeugen: (command _.-layer _M B ) Diesen Auswahlsatz kannst du nun für den Kopierbefehl benutzen. (command _.copy aws (0.0 0.0) (0.0 0.0)) mit (command _.CHPROP aws _LA B ) kannst du die zuvor kopierten Elemente auf den Layer B packen. Bei Fragen ... Grüße Holger PS: Klammern etc m ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : XRef Dialogfenster auschalten
GVenhoff am 14.12.2004 um 16:59 Uhr (0)
Hallo, ich würde gerne eine LISP erstellen mit der ich aus einem Ordner alle DWG s 1. Bereinigen; 2. Zoom Grenzen 3. Speichern und schliessen kann. In vielen Zeichnungen sind Xref die meisten werden gefunden. Leider sind in einigen Zeichnungen XRefs die nun nicht mehr aufzufinden sind. Und so kommt das Dialogfenster in dem ich die nicht gefundenen XRef auswählen könnte. Leider kann ich diese Frage, oder das Dialogfenster nicht übergehen...oder besser ich kenne den Trick nicht. Kann mir bitte jemand helfe ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Diplomarbeit
Dorfy am 09.12.2010 um 15:48 Uhr (0)
Zitat:Original erstellt von skyzem:Super, genau solche Sachen wollte ich Lesen.Seht ihr eventuell schon einen groben Stolperstein oder sonstige Übermannungen meinerseits? Zitat:Original erstellt von skyzem:Ps. Von AutoLISP habe ich im Moment noch keine grossen Kentnisse. Darum auch die Bitte um Ansätze und eher weniger Codebeispiele - das soll ja meine Aufgabe bleiben. ... den Stolperstein hast du doch schon allein gefunden ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer baue ...
|
| In das Form Lisp wechseln |
|
AutoLisp : DCL verkleinern
Brischke am 11.06.2004 um 12:42 Uhr (0)
Hallo Jürgen, prinzipiell ist es so. Aber wie gesagt. Du musst vorher aber unbedingt eine Analyse machen, wie die Tiles miteinander verquickt sind. Dann kannst du das Fenster teilen und musst die Funktionalitäten wieder erzeugen. Der Beitrag von mir, die von dir angesprochene lsp-Datei, kann dir nur beim Verstehen des ganzen helfen und eben den generellen, prinzipiellen Umgang vermitteln. Am konkreten Programm sind dann sicher genügend Stolpersteine zu umfahren. Grüße Holger ------------------ Holger Bri ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Arbeitsgeschwindigkeit durch Anzeigen in Befehlszeilen
Brischke am 12.11.2003 um 09:29 Uhr (0)
Hallo Andrea, jede Ausgabe am Bildschirm, egal ob in der Textzeile oder im Grafikbereich beeinflußt die Geschwindigkeit eines Programms. Deshalb sind in meinen Programmen nur auf besonderen Wunsch Statusmeldungen zu finden. Ebenfalls ist CMDECHO immer auf 0 gesetzt. Wenn das Programm mit vielen Koordinatensystemen arbeitet schalte ich zusätzlich auch das BKS aus. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
