| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: ein LISP-Tool für Parallelbemaßung (2611 mal gelesen)
|
lillyfee Mitglied angestellte
Beiträge: 14 Registriert: 12.10.2004
|
erstellt am: 31. Jan. 2005 16:15 <-- editieren / zitieren --> Unities abgeben:
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 31. Jan. 2005 17:37 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
Hallo lillyfee, vielleicht kann Dir folgendes LISP weiterhelfen. Über =>Extras=>Anwendung laden.., die Datei "bem_bks.lsp" laden und dann in der Befehlszeile über "bem_bks" aufrufen. ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2007,cadMANdu Win 2000 XP
|
erstellt am: 02. Feb. 2005 14:19 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
|
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 02. Feb. 2005 14:45 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
Hallo AsSchu, wenn alle Objekte die zu bemaßen sind eine Ausrichtung haben, okay, aber sonst muß ich doch auch wieder für jedes Objekt das BKS erstellen und ausrichten, oder verstehe ich das falsch? ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2007,cadMANdu Win 2000 XP
|
erstellt am: 02. Feb. 2005 15:54 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
Zitat: Original erstellt von joern bosse: Hallo AsSchu,wenn alle Objekte die zu bemaßen sind eine Ausrichtung haben, okay, aber sonst muß ich doch auch wieder für jedes Objekt das BKS erstellen und ausrichten, oder verstehe ich das falsch?
ja na und nimm das :xplan von hier http://autocad.cad.de/ und schon ist das relativ einfach
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 09. Feb. 2005 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
hi ! das oben gepostete tool erstellt eine bemassung zwischen zwei punkten. lilyfee sucht aber eine möglichkeit ein parallelmass zu generieren und deshalb habe ich die punktwahl um objektfänge wie folgt erweitert: (progn (setvar "osmode" 512);Ofang nächster (if (setq pkt1 (getpoint "\nStartpunkt der Bemassung eingeben.")) (progn (setvar "osmode" 128);Ofang Lot (setq pkt2 (getpoint pkt1 "\nEndpunkt der Bemassung eingeben.")) );end-progn ) nur kommt jetzt so eine merkwürdige fehlermeldung: Endpunkt der Bemassung eingeben._.ucs Aktueller BKS-Name: *WELT* Option eingeben [Neu/Schieben/orthoGonal/VOrher/HOlen/SPeichern/Löschen/Anwenden/?/Welt] <Welt>: _e Objekt für BKS-Ausrichtung wählen: Befehl: _.ucs Aktueller BKS-Name: *KEIN NAME* Option eingeben [Neu/Schieben/orthoGonal/VOrher/HOlen/SPeichern/Löschen/Anwenden/?/Welt] <Welt>: _3 Neuen Ursprung angeben <0,0,0>: Punkt auf der positiven X-Achse angeben <30.7905,0.0000,0.0000>: Punkt mit positiven Y-Wert in der XY-Ebene des BKS angeben <29.7905,-1.0000,0.0000>: ; Fehler: Fehlerhafter Argumenttyp: 2D-/3D-Punkt: nil Punkt mit positiven Y-Wert in der XY-Ebene des BKS angeben <29.7905,-1.0000,0.0000>: *Abbruch* Befehl: *Abbruch* ... allerdings kann ich die nicht nachvollziehen ! kann mir einer von euch auf die sprünge helfen. gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 09. Feb. 2005 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für lillyfee
Hallo Jan, ich habe die Objektfänge so wie Du es beschrieben hast eingefügt und es klappt. Du kannst ja mal die Codes vergleichen: (defun c:bem_bks (/ ucs pkt1 pkt2 aws_line osmode_alt) (setq osmode_alt (getvar "OSMODE")) (if (= (getvar "WORLDUCS") 1) (progn (setvar "osmode" 512);Ofang nächster (if (setq pkt1 (getpoint "\nStartpunkt der Bemassung eingeben.")) (progn (setvar "osmode" 128);Ofang Lot (setq pkt2 (getpoint pkt1 "\nEndpunkt der Bemassung eingeben."))) ) (if (and pkt1 pkt2) (progn (command "_.line" pkt1 pkt2 "") (setq aws_line (ssadd (entlast))) (command "_.ucs" "_e" (entlast)) (command "_.ucs" "_3" (trans (cdr (assoc 10 (entget (entlast)))) 0 1) (mapcar '+ '(0 -10 0) (trans (cdr (assoc 10 (entget (entlast)))) 0 1) ) (trans (cdr (assoc 11 (entget (entlast)))) 0 1) ) (command "_.DIMALIGNED" (trans (cdr (assoc 10 (entget (entlast)))) 0 1) (trans (cdr (assoc 11 (entget (entlast)))) 0 1) (trans (mapcar '(lambda (A) (/ A 2.0)) (mapcar '+ (cdr (assoc 10 (entget (entlast)))) (cdr (assoc 11 (entget (entlast)))) ) ) 0 1 ) ) (command "_.erase" aws_line "") (command "_.ucs" "") ) (alert "\nKeine gültigen Punkte eingegeben.") ) ) (alert "\nFür das Programm muß das Weltkoordinatensystem aktuell sein." ) ) (setvar "OSMODE" osmode_alt) (princ) )
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |