|
Rund um Autocad : Lisp/externe Daten einlesen
scj am 24.06.2003 um 09:39 Uhr (0)
Sieh dir mal mein Programmier-Beispiel für Bewegungssimulationen in CAD auf www.black-cad.de an. Da sind die Daten zwar über Tastatur zur Steuerung einzugeben, aber prinzipiell müsste das auch über eine Sensorschnittstelle gehen. Beste Grüße Jochen
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Lisp/externe Daten einlesen
Brischke am 24.06.2003 um 10:56 Uhr (0)
Hallo exilgreis1, prinzipiell ist das auf jeden Fall möglich. Wie kommen aber die Daten vom Sensor nach AutoCAD? Soll das in Echtezit passieren, dann muss es irgendein Programm geben, welches die Verschiebung des Objektes in AutoCAD anstößt. Mann kann natürlich auch einen Reactor einbauen, der alle Minute? prüft, ob neue Daten vorliegen und dann das Lisp startet. Was auch geklärt werden muß, woher AutoCAD weiß welches Objekt verschoben werden soll. Ich stelle mir vor, dass diese Daten entweder vom Sensor m ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Lisp/externe Daten einlesen
exilgreis1 am 24.06.2003 um 17:43 Uhr (0)
Hallo Leute! Erst mal danke für eure Antworten. Da ich erst mal Cad-Programme ausloten soll, in denen die Möglichkeit besteht die schon erwähnten Aufgaben zu erfüllen, freut es mich zu hören,daß es möglich wäre. Hallo Jochen Ich habe mir dein Beispielprogramm Bewegungssimulation angesehen. Das Programm bricht jedoch, nachdem der zweite Zylinder gezeichnet ist mit folgender Fehlermeldung ab. . . . . Current ucs name: *NO NAME* Enter an option [New/Move/orthoGraphic/Prev/Restore/Save/Del/Apply/?/World] Wo ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blöcke auf Polylinien
Brischke am 24.06.2003 um 16:40 Uhr (0)
Hallo Harry, mit Standard Acad wüßte ich keine Lösung - mit Lisp schon. Folgende Zeilen sollten das für Dich erledigen: Code: (defun c:bpk ( / pl attreq bnam) (princ "
LWPolylinie wählen:") (setq attreq (getvar "ATTREQ") pl (entsel) pl (if pl (entget(car pl))) bnam "") (setvar "ATTREQ" 0) (if (and pl (= "LWPOLYLINE" (cdr (assoc 0 pl))) ) (progn (while (not (tblobjname "BLOCK" bnam)) (initget 1) (setq bnam (getstring "
Blockn ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blöcke auf Polylinien
The VIP am 25.06.2003 um 12:00 Uhr (0)
Zitat: Original erstellt von Brischke: Hallo Harry, mit Standard Acad wüßte ich keine Lösung - mit Lisp schon. Folgende Zeilen sollten das für Dich erledigen: Code: (defun c:bpk ( / pl attreq bnam) (princ "
LWPolylinie wählen:") (setq attreq (getvar "ATTREQ") pl (entsel) pl (if pl (entget(car pl))) bnam "") (setvar "ATTREQ" 0) (if (and pl (= "LWPOLYLINE" (cdr (assoc 0 pl))) ) (progn (while (not (tblobjname "BLOCK" bnam)) (initg ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
CADwiesel am 23.06.2003 um 14:10 Uhr (0)
ganz einfach wäre eine Lösung, wenn Du dir den Dateinamen in eine ascii datei schreiben lässt, un dann den Inhalt der ascii datei dem Befehl open, oder startapp übergibst: Bsp: ab in datei = (setq NAME (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")) f (open "c:
ame.txt" "w") ) (write-line NAME f) (close f) (setq f (open "c:
ame.txt" "r")) (setq NAME (read-line f)) (close f) (startapp "notepad.exe" "" NAME) Evtl vorhandene Ähnlichkeiten mit anderen Quellcode s sind rein Zufällig...Bla, bla ;-) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
cadwomen am 23.06.2003 um 14:17 Uhr (0)
Hallo CADwiesel, bist du des wahnsinns :-)) mit der Antwortgeschwindigkeit bringst du meinen Rechner und mich in Schwierigkeiten- sind net so schnell. Danke, wird gleich getestet, aber wo wird *.g gegen *h getauscht ?? Bick ich nicht cw
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
Brischke am 23.06.2003 um 14:19 Uhr (0)
Hallo cadwomen, wenn es nur darum geht das g von *.dwg gegen ein h zu tauschen, dann nimm die folgenden Zeilen. Code: (setq NAME (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")) NAMEH (strcat (substr NAME 1 (1- (strlen NAME))) "h") ) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33)!?
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
CADwiesel am 23.06.2003 um 14:26 Uhr (0)
Räusper.... Danke Holger ich werde dir was überweisen , blöd, blöd.. ------------------ Gruß CADwiesel
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
cadwomen am 23.06.2003 um 21:43 Uhr (0)
Danke an euch beide - mix man beides funks wunderbar. Schreib das ganz noch zusammen mit *.bmp und dann könnens alle kriegen. CU cw
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DWGLog zusatz Lisp
cadwomen am 25.06.2003 um 15:08 Uhr (0)
Zip an cadwiesel zum bereitstellen gesendet CU cw
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Abwicklung einer Polilinie mit Punkten
Brischke am 26.06.2003 um 08:47 Uhr (0)
Hallo wastl, ich habe sowas noch nicht gesehen, da das nun aber kein großer Aufwand ist, habe ich mal schnell ein paar Zeilen zusammen geschrieben. Code: (defun c:plab (/ pl pld plli) (princ "
LWPolylinie wählen:") (setq pl (entsel) pld (if pl (entget(setq pl(car pl))))) (if pld (cond ((= "LWPOLYLINE" (cdr (assoc 0 pld))) (setq plli (reverse(apply append (mapcar (lambda (P) (if (= 10 (car P)) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Abwicklung einer Polilinie mit Punkten
fitztech am 26.06.2003 um 09:00 Uhr (0)
Holger darf ich dich gott nenen? Danke für dieses geile LISP! Kannst du mir noch ne antwort auf meine 2. frage geben? Dann wär ich der glücklichste mensch auf dieser erde! gruß wastl
|
| In das Form Rund um Autocad wechseln |
