| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Geometrie verschieben via LISP (1210 mal gelesen)
|
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 17. Aug. 2010 18:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute ich möchte ein LISP erstellen, welches sämtliche Geometrie um einen gewissen Wert verschiebt (z.B. @10,0)... Als AutoCAD-Schaltfläche (Makro) wäre das auch ganz einfach: _move;all;;0,0;10,0; ich benötige aber eine LISP. Leider sind meine LISP-Kentnisse sehr beschränkt :-( Kann mir jemand das Makro oben in eine LISP "übersetzen"? Für alle Antworten bin ich sehr dankbar.
mfg neo
------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 17. Aug. 2010 20:09 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
also wenn dir das Makro ausreicht, dann bleibe einfach bei dem AutoCAD-Befehl _move : (command "_move" "_all" "" "0,0" "10,0") denke bei Macros und Scripten aber immer an gesperrte oder gefrorene Layer und stelle osnapcoord immer auf 1 bei so Aktionen, gell ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) [Diese Nachricht wurde von cadffm am 17. Aug. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Aug. 2010 20:10 <-- editieren / zitieren --> Unities abgeben: Nur für neo4matrix
|
neo4matrix Mitglied
Beiträge: 152 Registriert: 15.01.2008 HP™ z2 Tower G4 Workstation mit Intel® Core™ i9-9900K 8x 3.6 GHz-5.0 GHz 32 GB Arbeitsspeicher 1 TB HP Z Turbo PCIe® SSD NVIDIA® Quadro® P2200 mit 5 GB RAM HP™ 24" LPS LED TFT 16:10 ZR2440w. Windows 10 Pro, 64 Bit AutoCAD 2019 Design Suite Standard, SP1, 64 Bit ecscad 2019, v19.1.0.20, 64 Bit Microstation v8 2004, 32 Bit MicroStation CONNECT Edition Update 11 Microsoft Office 365, 32 Bit Microsoft Visio 2013, 32 Bit
|
erstellt am: 18. Aug. 2010 20:25 <-- editieren / zitieren --> Unities abgeben:
Danke cadffm, Danke CADmium, Hat tip top geklappt! (command XY) kannte ich noch nicht. Danke. Infos am Rande: osnapcoord ist immer auf 1. es gibt nix gefrohrenes, nix ausgeblendetes, da es sich um das schemaprogramm "AutoCAD ecscad 2010" handelt. hab da eine lisp erstellt, welche bei jedem schemablatt automatisch abgearbeitet wird beim blättern. die sieht jetzt so aus: (princ "\nSystemvariablen für AutoCAD ecscad geladen.\nTexte werden gleich neu ausgerichtet...\n") (setvar "textfill" 1) (setvar "pickfirst" 1) (setvar "pickadd" 1) (setvar "pickdrag" 0) (setvar "grips" 0) (setvar "mirrtext" 0) (setvar "mbuttonpan" 1) (command "_move" "_all" "" "0,0" "0,0" "regenall" "_zoom" "_e") ;; Silent load. (princ) ... und beim verschieben um 0,0 werden die texte neu ausgerichtet :-D
mfg neo
------------------ Welcome to the Real Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|