| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Ersatzteilwesen optimieren mit CIDEON Sparify, eine Pressemitteilung
|
|
Autor
|
Thema: Lisp zur Streckenaufteilung und -ausmittlung (636 mal gelesen)
|
David Galvagno
Mitglied
   Beiträge: 148
Registriert: 10.12.2002 Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C
|
erstellt am: 02. Mai. 2003 15:57  <-- editieren / zitieren -->   Unities abgeben:          
ich habe immer wieder das Problem, dass ich über eine gegebene Strecke x mit Objekten im fixen Abstand y aufteilen muss. Dabei möchte ich die Anfangsstrecke und Endstrecke (also vor und nach der Aufteilung mit den Objekten im Abstand y), welche ja nicht bekannt sind (oder nur mit REchenarbeit (x-(Anzahl*y))/2), ausmitteln. Dabei sollen mir die Objekte verteilt werden auf der Strecke (x-(Anzahl*y)). Wer hat ein ähnliches Problem auch schon gelöst oder weiss vielleicht ein LIsp hierzu ? ------------------
Gruss David Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur
Beiträge: 2041
Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 02. Mai. 2003 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno 
guckst du hier: (defun c:mittlung ()
(setq obj (ssget))
(setq Basispunkt (getpoint "Basispunkt: "))
(setq Teilung (getreal "\nTeilung: "))
(setq Anzahl (getint "Anzahl: "))
(setq Mittelpunkt (getpoint "Mittelpunkt der Anordnung: "))
(setq Drehwinkel (getangle Mittelpunkt "Drehwinkel: "))
(setq x (+ Anzahl 0.5))
(setq ss (ssadd))
(repeat Anzahl
(setq x (- x 1.0))
(setq e1 (entlast))
(command "_copy" obj "" Basispunkt (list (+ (- (car Mittelpunkt) (/ (* Anzahl Teilung) 2.0)) (* x Teilung)) (cadr Mittelpunkt) (caddr Mittelpunkt)))
(while (setq e1 (entnext e1)) (ssadd e1 ss))
)
(command "_rotate" ss "" Mittelpunkt (/ (* Drehwinkel 180.0) PI))
) ------------------
mfg Siegfried Schachinger
http://www.tbschatz.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
David Galvagno
Mitglied
Beiträge: 148
Registriert: 10.12.2002 Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C
|
erstellt am: 06. Mai. 2003 15:46 <-- editieren / zitieren --> Unities abgeben:
leider funktioniert das LIsp noch nicht - was mache ich wohl falsch, wenn ich den Text in eine Lsp-Datei kopiere, abspeichere unter einem Namen saufteil.lsp und dann dem Buttom "^C^C(autoload "saufteil " '("saufteil "));saufteil" im Werkzeugkasten als Makro zuweise ? ------------------
Gruss David Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel
Moderator
CAD4FM UG
    
Beiträge: 1989
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 06. Mai. 2003 15:58 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno
|
Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur
Beiträge: 2041
Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 06. Mai. 2003 16:05 <-- editieren / zitieren --> Unities abgeben: Nur für David Galvagno
|
David Galvagno
Mitglied
Beiträge: 148
Registriert: 10.12.2002 Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C
|
erstellt am: 08. Aug. 2003 17:35 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
