|
Lisp : Benutzerabfrage in einer Endlosschleife
CADwiesel am 17.03.2009 um 15:17 Uhr (0)
also der 1. Teil deiner Ausführung: Zitat:Das Messgerät gibt über die serielle Schnittstelle je 1sek einen Zeichenstring aus der die Koordinaten und Qualität enthält. Mit Lisp sollte es wohl möglich sein Diese kontinuierlich abzufragen. ist mir leider noch etwas myseriös, aber wenn du es sagst...Grundsätzlich solltest du in deinen Versuchen ersteinmal alle Daten aus der Asciidatei in eine Liste einlesen.Sind ja eh nur spieldaten - die Wirklichkeit wir sicher anders aussehen.Dann kannst du jede Sec einen da ...
|
| In das Form Lisp wechseln |
|
Lisp : Plotterkonfiguration auf allen Layouts ändern
dusan.markovic am 31.07.2009 um 12:06 Uhr (0)
Ein liebes Hallo an alle Forummitglieder!Ich möchte eine Skript-Datei schreiben, die mir nur die Plottereinstellung (auf welchen Plotter geplottet wird) auf allen vorhandenen Layouts in der Zeichnungsdatei ändert. Dazu dachte ich, dass über das Kommando -plot... zu erledigen und dann jeweils das entsprechende Layout als Variable dem -plot Kommando anzugeben. Dies habe ich auch so gemacht und das Problem dabei ist, dass mir auch die Seiteneinstellungen geändert werden, was ich natürlich nicht möchte.Gibt es ...
|
| In das Form Lisp wechseln |
|
Lisp : savedata.lsp
cad4fun am 15.07.2010 um 11:36 Uhr (0)
von Vladimir NesterovskyIch bekomme beim Laden der Datei die Meldung:Fehler: no function definition: DICT-GETDer Ausschnitt dazu:;; Get A [Key] Value From Dictionary [Name](cond ((member (substr (getvar "acadver") 1 2) ( "13" "14")) (defun dict-get ( name key ) ;; name and key As strings (x-relist ;; decode the data! (cdr (member (100 . "AcDbXrecord") (dict-getrawdata name key)))))) ((member (substr (getvar "acadver") 1 2) ( "15" "16")) (defun dict-get ( name key ) ;; name and key As strings ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Schraffur - Mehrere Punkte eingeben
nring am 19.05.2004 um 15:00 Uhr (0)
Hallo, ich versuche mich ein wenig in der Lisp Programmierung und habe eine kleine Routine erstellt mit der eine Schraffur erzeugt wird. Es funktioniert soweit solange nur ein Punkt zur Eingabe der Schraffurfläche benötigt wird. Wie kann das Programm umgestaltet werden damit die Eingabe mehrerer Punkte möglich ist? (defun C:schra () (setq aktueller_layer(getvar CLAYER )) (setq bksakt (getvar ucsname ));; Speichern des aktuellen BKS (setq bkstemp (getpoint Neues BKS eingeben )) (command BKS ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Versetzen auf gemessener Strecke
Dober Heinz am 10.11.2005 um 08:31 Uhr (0)
Hallo habe mir ein Lisp geschrieben, wo ich eine Stecke Messe, diese Strecke dann teile und eine Linie auch dieser Strecke versetzten lass.aber das Versetzten funkt nicht so richtig.(defun c:mteilen (/ tei-len) (setq pt1 (getpoint "
Anfangspunkt eingeben: ")) (setq pt2 (getpoint "
Endpunkt eingeben: ")) (setq lange (distance pt1 pt2)) (setq teil (getint "
Wieviele Linien: ")) (setq tei-len (/ lange teil)) (setq entset (entsel)) (setq Element (car entset)) (setq side_point (getpoint "Punkt auf Seite ange ...
|
| In das Form AutoLisp wechseln |
|
Lisp : reactor in lisp
zech am 12.05.2011 um 13:39 Uhr (0)
Hallo,ich habe ein Problem mit de reactoren. Ich weiß nicht genau welchen ich benutzen muss oder obes überhaut geht.(im Moment nehme ich den command reactor mit vlr-commandEnded)Ich habe in der Zeichnung viele verschiedene Blöcke und möchte den reactor nur aktivierenwenn es ein Block ist dessen Name mit "P_" anfängt. Ich klicke also einen Block an mit der linken Maustaste, greife ihn und verschiebe ihn.Jetzt möchte z.B.: den Layer ändern, bekomme ich hin, aber dies macht der reactor für alleswas ich versch ...
|
| In das Form Lisp wechseln |
 |
Lisp : Civil3d API progn mit Vlisp C#
cadplayer am 20.11.2012 um 11:05 Uhr (0)
Um mal in die Praxis mit Visual-Lisp zurückzukehren. Ich habe vor ein einfaches Tool zu schreiben, welches mir von einer bestimmten Linie die Länge ermittelt und dann einen Text erzeugt, der den Längenwert beinhaltet und an den Startpunkt der Linie in den entsprechenden Layer setztCode:(vl-load-com)(setq vl-en (vlax-ename-vla-object (car (entsel "
Select line "))))(setq vl-layer (vla-get-layer vl-en))(setq vl-length (vla-get-length vl-en))(vlax-safearray-...(vla-addtext (rtos vl-length 2 2) (vla-startpoint ...
|
| In das Form Lisp wechseln |
|
Lisp : Block um Einfügepunkt drehen
archtools am 16.03.2010 um 22:34 Uhr (0)
Zitat:Original erstellt von Bauvermesser:Hallo,benutze aus diesem Forum eine LSP zum Drehen eines Blockes um den Einfügepunkt.Nimm das hier:Code:(defun modent (ename dxf val / old) (if (setq old (assoc dxf (entget ename))) (entmod (subst (cons dxf val) old (entget ename) ) ) (entmod (cons (cons dxf val) (entget ename))) ))Damit kannst Du fast alles ändern. Den Drehwinkel der Einfügung findest Du in DXF-Gruppencode 50. Um den auf 90° zu bringen, schreibst Du also:Befehl: (modent (car (entsel) ...
|
| In das Form Lisp wechseln |
|
Lisp : Modellansicht BKS 90 Grad drehen
Dorfy am 15.07.2011 um 08:35 Uhr (1)
hi, vielleicht liegt es daran, dass du dein Anliegen "unglücklich" erklärt hast?!Du bist im Modelbereich und willst diesen drehen?Code:(defun c:z ( / ) (command "bks" "w"); um immer von Welt auszugehen (command "bks" "z" "90"); bks drehen um z 90° - hier Anpassung xyz (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen (princ))oder bist du im Layoutbereich und willst ein Fenster drehen?Wenn das oben nicht passt, einfach mal dein Anliegen in mehr Worte hüllen oder besser ein Bild oder ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktoren auf Cannoscale
Danillo am 16.03.2013 um 14:18 Uhr (0)
Hallo Holger,werde mit .net mal ansehen, da hast du sicher recht. Was ich eigentlich meinte ist, dass auch heute Autocad meist nur zum Strichezeichnen verwendet wird, wie eben bereits vor 20 Jahren. Ich spreche da vor allem vom Hochbau, Ausführungsplanung, also jenem Gebiet wo ich tätig bin. Auch wenn es heutzutage Revit und ähnliche Programme gibt, zeichnen die meisten Planungsbüros noch mit Acad, Strich für Strich. Und die meisten meiner Kollegen verwenden nicht einmal Lisp-Programme (einige Extremfälle ...
|
| In das Form Lisp wechseln |
|
Lisp : DCL / Text und width
Bernd10 am 10.10.2006 um 11:03 Uhr (0)
Hallo,ich habe das Problem, dass ich in einem DCL-Dialog die Länge eines bestimmten Text-Elements variabel gestalten möchte. Dazu gebe ich im DCL-Dialog beim Text-Element mit dem Key ct_frage_jna eine Breite von 80 an (siehe unten). ddfrage_jna : dialog{ label = "Frage"; initial_focus = "accept"; // OK-Button spacer_1; : text { key = "ct_frage_jna"; alignment = centered; is_bold = true; width = 80; } spacer_1; : row { fixed_width = true; alignment = centered; : button { key = "cb_frage_j"; label ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
cadffm am 20.07.2010 um 11:57 Uhr (0)
Gemeint war: Du liest den Text über Lisp ein, im Beispiel wurde derString sogar an das Symbol "str" gepappt.an str hängt nun also der String "(defun c:test () (alert "HALLO"))"nun könnte man so: (eval (read str)) : zB den AutoCADbefehl "Test" definieren - ausgehend von einem "String" der in der Datei gespeichert wurde.Nur wie bereis am Anfang gesagt wurde - du brauchst ja im System erst mal eine Funktion welche diesen lesen&umsetzen macht.Dictionarys.. da sind zB. Multilinienstile gespeichert usw."ACAD_COL ...
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke entsprechend Datenbank einfügen
Danillo am 11.03.2021 um 23:50 Uhr (1)
Hallo Leute,ich habe eine Tabelle mit Koordinaten und mehreren Zusatzdaten, konkret Koordinaten mit Hausnummern. Ich habe ein LISP-Progamm geschrieben, welches Zeile für Zeile de Daten liest und einen Block an der entsprechenden Stelle einfügt und die Attribute mit den Zusatzdaten (z.B. der Hausnummer) ausfüllt. Dazu verwende ich den _-Insert Befehl. Leider läuft das Programm sehr langsam und stürzt bei einer großen Datenmenge ab, d.h. wenn z.B. mehr als 1000 Blöcke eingefügt werden.Hat jemand einen Tipp f ...
|
| In das Form Lisp wechseln |
