| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PRO.FILE: Maximieren Sie Ihren Nutzen mit dem richtigen Support!, Webinar am 24.07.2024 |
Autor
|
Thema: Lisp Datei für Raumaustattung (1100 mal gelesen)
|
Przemo Mitglied TZ Elektrotechnik
Beiträge: 10 Registriert: 02.12.2008
|
erstellt am: 02. Dez. 2008 11:49 <-- editieren / zitieren --> Unities abgeben:
Hi, kennt einer vielleicht so ein Lisp Programm womit man Räume mit Elektrosachen ausstatten kann? In der alten Firma hatten wir so ein Lisp Programm womit man erste und zweite Ecke vom Raum angab danach den Blocknaman (Leuchte die eingefügt werden soll) Skalierung, Drehung, Anzahl X Richtung, Anzahl Y Richtung und dann war die Leuchte mittig im Raum. Wenn einer so was kennt würde ich mich über Antworten freuen, oder wenn jemand mir Hilfestellung geben kann wie man so ein Programm selber schreiben kann. ps. komme an das Programm von der alten Firma nicht mehr drann.... Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 02. Dez. 2008 12:03 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
Hi und herzlich willkommen auf cad.de! Dein Tool heisst eigentlich: Richtiges arbeiten mit AutoCAD. Nimm den (Block)Einfügedialog, bei Einfügepunkt arbeite mit Mittelpunkt zwischen zwei Punkten (dann jeweils die Raumecken wählen) und der Block für die Lampe muss ja sowieso da sein... - die Skalierung ist denke ich nicht das Problem... ------------------ Grüsse Thomas Korrekturen zum Kochbuch AutoLISP Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Przemo Mitglied TZ Elektrotechnik
Beiträge: 10 Registriert: 02.12.2008
|
erstellt am: 02. Dez. 2008 12:16 <-- editieren / zitieren --> Unities abgeben:
Hi, das ist mir schon klar aber wie willst Du symetrisch vier Leuchten in X Richtung ung 2 Leuchten in Y Richtung aufteilen??? Dan mußt Du schon ein raster Zeichnen! Genau so mit Rauchmeldern oder anderen Sachen die Im Raum Plaziert werden sollen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 02. Dez. 2008 12:20 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
|
E-Boy Ehrenmitglied V.I.P. h.c. Elektroinstallateurmeister
Beiträge: 2731 Registriert: 23.06.2005 Autocad MEP 2019 E-Tools Win 10
|
erstellt am: 02. Dez. 2008 12:23 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
|
Przemo Mitglied TZ Elektrotechnik
Beiträge: 10 Registriert: 02.12.2008
|
erstellt am: 02. Dez. 2008 12:30 <-- editieren / zitieren --> Unities abgeben:
es war eine Lisp Datei die ich geladen habe und gut war, bei einen Raum ist es kein Problem wie Ihr es sagt aber wenn Du ein Gebäude mit ca. 200 Räumen Austatten mußt tippt man sich dämlich.... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 02. Dez. 2008 12:38 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
|
Przemo Mitglied TZ Elektrotechnik
Beiträge: 10 Registriert: 02.12.2008
|
erstellt am: 02. Dez. 2008 12:55 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 02. Dez. 2008 13:10 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
nee, du hattest gefragt: ".. oder wenn jemand mir Hilfestellung geben kann wie man so ein Programm selber schreiben kann... " .. und dazu hab ich dir 2 Links gepostet. Was du genau willst , ist was ziemlich spezielles, und da glaube ich nicht, das das jemand so rumliegen hat ... die meisten werden , wenn sie sowas machen müssen, halt die genannten Workarounds verwenden. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002 Autocad 2020/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 16,0GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2019
|
erstellt am: 02. Dez. 2008 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
Hallo Przemo Das hab ich mal gefunden im internet. Ist schon lange her, funktioniert aber. (defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing) (setq corner1 (getpoint "Select one corner of room: ") corner2 (getpoint "Select opposite corner of room: ") columns (getint "Number of columns: ") rows (getint "Number of rows: ") roomwidth (abs (- (car corner1) (car corner2))) roomheight (abs (- (cadr corner1) (cadr corner2))) colspacing (/ roomwidth columns) rowspacing (/ roomheight rows) lowerleft (list (min (car corner1) (car corner2)) (min (cadr corner1) (cadr corner2)) ); end list ); end setq (command "_insert" "taster" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "") (command "_array" "l" "" "R" rows columns rowspacing colspacing) )
------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 15. Dez. 2008 11:05 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
Zitat: Original erstellt von Dober Heinz: Hallo PrzemoDas hab ich mal gefunden im internet. Ist schon lange her, funktioniert aber. (defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing) (setq corner1 (getpoint "Select one corner of room: ") corner2 (getpoint "Select opposite corner of room: ") columns (getint "Number of columns: ") rows (getint "Number of rows: ") roomwidth (abs (- (car corner1) (car corner2))) roomheight (abs (- (cadr corner1) (cadr corner2))) colspacing (/ roomwidth columns) rowspacing (/ roomheight rows) lowerleft (list (min (car corner1) (car corner2)) (min (cadr corner1) (cadr corner2)) ); end list ); end setq (command "_insert" "taster" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "") (command "_array" "l" "" "R" rows columns rowspacing colspacing) )
Hallo, bei mir funzt es nicht Da kommt eine Fehlermeldung. Befehl: trial Select one corner of room: Select opposite corner of room: Number of columns: 2 Number of rows: 3 _insert Blocknamen eingeben oder [?] <E-Beleuchtung>: E-Beleuchtung Einheiten: Millimeter Konvertierung: 1.0000 Einfügepunkt angeben oder [Basispunkt/Faktor/X/Y/Z/Drehen]: X-Skalierfaktor eingeben, entgegengesetzte Ecke angeben oder [Ecke/XYZ] <1>: Y-Skalierfaktor eingeben <X-skalierfaktor verwenden>: Drehwinkel angeben <0>: _array Erfordert gültigen numerischen Winkel oder zweiten Punkt. ; Fehler: Funktion abgebrochen Drehwinkel angeben <0>: 0 Befehl: *Abbruch* Weiß jemand woran das liegen kann?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 15. Dez. 2008 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
hab den fehler gefunden: (defun c:trial (/ corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing) (setq corner1 (getpoint "Select one corner of room: ") corner2 (getpoint "Select opposite corner of room: ") columns (getint "Number of columns: ") rows (getint "Number of rows: ") roomwidth (abs (- (car corner1) (car corner2))) roomheight (abs (- (cadr corner1) (cadr corner2))) colspacing (/ roomwidth columns) rowspacing (/ roomheight rows) lowerleft (list (min (car corner1) (car corner2)) (min (cadr corner1) (cadr corner2)) ); end list ); end setq (command "_insert" "E-Beleuchtung" (list(+ (car lowerleft) (/ colspacing 2.0))(+ (cadr lowerleft) (/ rowspacing 2.0))0)"" "" "") (command "_array" "l" "" "R" rows columns rowspacing colspacing) ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Przemo Mitglied TZ Elektrotechnik
Beiträge: 10 Registriert: 02.12.2008
|
erstellt am: 15. Dez. 2008 11:21 <-- editieren / zitieren --> Unities abgeben:
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002 Autocad 2020/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 16,0GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2019
|
erstellt am: 15. Dez. 2008 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Przemo
|