|
Lisp : mittels Lisp erzeugte Gruppe erscheint nicht im Gruppenmanager
Dorfy am 19.07.2007 um 09:04 Uhr (0)
Hallo,(defun C:MG (/ GNAME SGET) (TOGGLE-GROUPSELECT t) ;_ Sicherstellen, dass Gruppenwahl möglich ist (princ "
Zu gruppierende Objekte wählen:") (setq SGET (ssget) GNAME (menucmd "M=$(edtime,$(getvar,date),DD-MONTH-YYYY-HH-MM-SS)" ;_ erzeuge Timestamp-Gruppen-Namen ) ;_ end menucmd ) ;_ end setq (if SGET (progn (command "_.-group" "_c" GNAME "Automatisch erstellte Gruppe" SGET "" ) ;_ end of command ;(sssetfirst NIL SGET);hervorheben (princ "Gruppe ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lisp/Script Anzeigenreihenfolge
TomiProg am 16.11.2004 um 11:39 Uhr (0)
Hallo Lispler. Ich habe ein Problem mit dem "_DRAWORDER"-Command. Wenn ich den Befehl (command "_draworder" SS1 "" "o") ausführen lasse, wobei SS1 ein Auswahlsatz ist, bekomme ich nur Schrott zurück. AutoLISP setzt diesen Befehl nicht um. In der Befehlszeile bleibt das Programm stehen mit folgender Anzeige: Auswahlsatz: xy Ich kann nur noch Return oder ESC drücken und als Antwort auf Return bekomme ich als Meldung: Unbekannter Befehl "TEST". Drücken Sie F1-Taste ... Unbekannter Befehl "TEST". Drücken S ...
|
| In das Form AutoLisp wechseln |
|
Lisp : MTEXT mit entmake setzen
romi1 am 27.03.2010 um 14:07 Uhr (0)
Hallo!Vielen Dank für den Tipp! Hab das Lisp nun also folgendermaßen umgebaut, und es scheint zu funktionieren:Code:(setq li1 (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (list 10 (car einsetzp) (cadr einsetzp)) (cons 40 2.5) (cons 41 250) (cons 50 0.0) ) ) (if ( (strlen mtext-zeile) 250) (setq li2 (list (cons 1 mtext-zeile))) (progn (setq li2 ()) (while ( (strlen mtext-zeile) 25 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : grread, grdraw?
chrimo am 26.05.2004 um 14:50 Uhr (0)
Hallo Wenn man eine Linie zeichnet, spannt sich ja für den nach-Punkt ein Gummiband vom vorherigen Punkt zum Cursor, bzw. kann man ja auch z.B. bei getpoint einen Startpunkt angeben. Ich möchte nun, dass paralell zum Gummiband eine 2. Linie angezeigt wird. (Hintergrund: Habe ein Lisp für Wände, wo man einen Linienzug zeichnet und jeweils eine paralelle Linie dazu gezeichnet wird. Möchte, dass angezeigt wird, auf welcher Seite die paralelle Linie kommen wird.) Habs bisher vergeblich mit grdraw, grread v ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Geländemodell DGM Höhenpunkte
mapcar am 18.11.2004 um 18:58 Uhr (0)
flaschenpost schrieb: Diese Triangel-Netze sind eigentlich unästhetisch Interessante Theorie;-) Das Programm von Piazza erzeugt aber nun mal triangulierte Daten. Das Problem bei den viereckigen Dingern ist, dass die Flächen nicht planar sind - ausser wenn das ganze Mesh völlig flach ist wie ein Teich bei Windstille. Und dann braucht man es ja eigentlich gar nicht, oder? Das, was Acad als 3dNetz anbietet, ist nur als Drahtmodell tauglich. Rendern lässt sich s nicht. Was ist ein Massenelement im ADT? Gruß, ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Trassen zeichnen
CADuceus am 20.01.2005 um 15:19 Uhr (0)
Nun, CADmium, ich bin Anfänger und ich gebe zu, dass ich eine fertige Lösung nicht ablehnen würde und schliesse nicht aus, dieses Forum durch Zweckentfremdung zu missbrauchen. Um nicht gleich gesteinigt zu werden sag ichs mal so: Ich habe durchaus Interesse daran es selber zu programmieren, habe es aber noch nie hingekriegt (bis auf den gpath ). Sicher möchte ich am liebsten jede Zeile zumindest verstehen. Wie tief ich mich schlussendlich mit der Materie LISP auseinandersetze hängt auch ein Bisschen davon ...
|
| In das Form AutoLisp wechseln |
afkoord.lsp.txt |
Lisp : Gitterkoordinaten
Jourjik am 12.04.2013 um 12:44 Uhr (0)
Hallo Forum,Bei uns arbeiten wir seit Jahren mit Autocad Map 3D, und aktuell auch mit 2014er Version.in Netz habe ich das Lisp-Programm Afkoord gefunden und bis Acad version 2013 hat auch alles ganz gut funktioniert, aber seit dem ich mit 2014 er Version arbeite, das program wird unterbrochen mit unten afgelistete Meldungen.kann Mir vieleicht jemand behilflich sein und sagen wie ich das Problem wieder beheben kann?ich were sehr Dankbar .Ungültiger Punkt."Fehler aufgetreten: Funktion abgebrochen"Ungültiger ...
|
| In das Form Lisp wechseln |
|
AutoLisp : block tauschen gc2
Brischke am 14.10.2003 um 12:15 Uhr (0)
Hallo, mit dem Austauschen des Gruppencodes 2 setzt du nur einen neunen Namen ein. Das Austauschen eines Blockes mit Attributen sollte man, möchte man den Aufwand im Rahmen halten, mit (command _insert ..) machen. Dazu müssen dann natürlich die Attributwerte, ~Position, ... alles zwischen gespeichert werden. Ist immer noch ein ganz schöner Aufwand, aber es funktioniert. Ich habe das bereits in den verschiedensten Varianten realisiert, wenn du also Fragen hast ... Grüße Holger ------------------ Holger Bri ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layerlisten, Textbearbeitung
Werner-Maahs.de am 20.06.2013 um 18:36 Uhr (0)
Danke für Deine Antwort.Ich denke, ich werde nach eindeutigen Zeichenkette suchen und die jeweiligen Listenteile zunächst in eine getrennte Liste schreiben. Alle nicht gesuchten Elemente werden dabei in einer weiteren Liste geschrieben.Die gesuchten Zeichenketten sind z.B XY_ YZ_ _3D. Die Zeichen können auch mitten im Text auftauchen, also an einer nicht zu definierenden Stelle. Mein Problem ist das herausfinden, welche Listenteile diese Zeichen beinhalten. Wie die Listen bisher aufgebaut sind ist auch aus ...
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 04.09.2022 um 12:26 Uhr (1)
Vielen Dank für die Bemühungen. Ich habe folgendes versucht:(defun mycommand (cmnd / oldecho) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 1) (initcommandversion) (command cmnd) (while (eq 1 (logand 1 (getvar "cmdactive"))) (command pause) ) (setvar "cmdecho" oldecho)) (defun c:FREIHAND () (setvar "skpoly" 2) (While (mycommand "._sketch") (command "splineedit" "l" "_close" "" "" "") ))Leider funktioniert das bei mir nicht. Es wird immer noch die lezte erstellte Spline geschlossen und die S ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Listen exportieren
Brischke am 04.02.2004 um 15:39 Uhr (0)
Hi Martin, ich möchte dir jetzt nicht meine Methode aufdrücken, aber zeigen wie einfach es eigentlich ist. Deswegen ein Beispiel: Code: (defun c:xxx (/ w1 w2 w3 inDateiListe meineListeAusDatei) (setq w1 1 w2 1.1 w3 "Hallo" inDateiListe (list w1 w2 w3) ) ;;Daten wegschreiben (w:list- File "c:datei.txt" inDateiListe) ;und wieder Laden (setq meineListeAusDatei (load "c:datei.txt")) ) (defun w:list- File (datei WerteListe / f) (setq f (open datei "w")) (princ ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
Dober Heinz am 18.10.2005 um 14:29 Uhr (0)
@FuchsiHabe dein Lisp getestet(setq aus (car(entsel)))(setq umw (entget aus))(setq txt (cdr (assoc 1 umw)))(setq a2 (fSplit txt "/"))(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))))(defun fSplit (String Separator /) (setq String (replace String Separator " ")) (setq String(strcat "(list " String ")")) (eval (read String)) )(defun Replace (String SearchString ReplaceString /) (while (/=String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchSt ...
|
| In das Form AutoLisp wechseln |
|
Lisp : letzter Befehl wird ausgeführt.
Daniel Möller am 03.05.2011 um 11:31 Uhr (0)
Hallo zusammen,hoffe ihr könnt das schöne Wetter etwas genießen :-)Mittlerweile gibts bei uns dank euch schon ein paar nette LISP Routinen allerdings hab ich bei manchen noch ein Problem das beim ausführen oft der letzte Autocad Befehl ausgeführt wird. Was kann ich dagegen tun?z.b zeichne ich in autocad eine linie und führe zb. dann folgende Routine aus:(defun C:260Text() (progn (command "LAYZUSF" "N" "AQA-TEXT00260" "" "N" "TAG-Nummer" "J") ) )nilManchmal macht er dass dann nicht und will eine Linie zei ...
|
| In das Form Lisp wechseln |
