| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Grips und Koordfilter per Lisp (698 mal gelesen)
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 18. Sep. 2010 19:30 <-- editieren / zitieren --> Unities abgeben:
Servus Ich hab 3D-Polylines (auch solche mit sehr vielen Vertices - also nix mit "Eigenschaften"), wo ich einzelne Z-Koords. korrigieren muss. "Zu Fuss" (mit Grips und Punktfilter):
PL anklicken (-> Grips) Punkt wählen ("heiß" machen) ".XY" eingeben Neue Z-Koord zeigen oder eingeben Nun wollte ich das Ganze per Lisp nachstellen, um mir das wählen des Punktes (immer Endpkt. nahe Pickpkt.) und das eingeben von ".XY" zu ersparen. Aber genau das gelingt mir nicht: Code: (defun c:h (/ #obj #pkt) (setq #obj (entsel)) (setq #pkt (osnap (cadr #obj) "_END")) (sssetfirst nil (ssadd (car #obj))) ---> (command #pkt ".xy") so wie ich dachte gehts aber nicht ... )
(Was ähnliches hatten wir hier schon mal: http://ww3.cad.de/foren/ubb/Forum145/HTML/001832.shtml#000000) Hat jemand eine Idee (neue Erkenntnisse)? ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11
|
erstellt am: 19. Sep. 2010 08:56 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 19. Sep. 2010 16:25 <-- editieren / zitieren --> Unities abgeben:
Servus Udo Ja, mit STRETCH ginge es auch: Code: (defun c:h (/ #obj #pkt) (setq #obj (entsel)) (setq #pkt (osnap (cadr #obj) "_END")) (command "_STRETCH" "_crossing" "_end" #pkt "@" "" #pkt ".XY" #pkt) )
(der "Umweg" über entsel - statt getpoint - ist gewollt, da man so das zu wählende Objekt aufleuchten sieht)Trotzdem würde mich (prinzipiell) interessieren, ob es auch eine Lösung über die GRIPS gäbe? ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|