| | |
 | 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: 'MIDX (193 mal gelesen)
|
Zec
Mitglied
Cad Konstr.
   Beiträge: 58
Registriert: 28.09.2005
|
erstellt am: 27. Sep. 2006 12:23  <-- editieren / zitieren -->   Unities abgeben:          
hallo, hätte mal ein anliegen, wie kann ich denn befehl 'midx auf ein makro legen. ('midx -> transparenter befehl sucht den mittelpunkt) ;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; MIDx
;
; Funktion berechnet transparent innerhalb eines andere Befehls den
; Mittelpunkt zwischen zwei durch den Benutzer angegebenen Punkten.
;
; Bei notwendiger Eingabe einer Koordinate innerhalb eines Befehls
; (z.B. LINIE) den Befehl 'midx eingeben. Bei der Eingabe auf das
; Apostroph achten!
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; (c) Dipl.-Ing. Volker Kleppel
; http://www.cadwerk.com
; vkleppel@gmx.de
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
; Version: 1.0 Datum: 5.1.1999
; AutoCAD12 [ ] AutoCAD14 [x] AutoCAD2000(i) [x]
; AutoCAD2002 [x] AutoCAD2004 [x] AutoCAD2005 [x]
; Freeware [x] Shareware [ ]
;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= (defun c:midx ( / p1 p2 p3)
(setvar "osnapcoord" 1)
(setq p1 (getpoint "\nErsten Punkt wählen"))
(setq p2 (getpoint "\nErsten Punkt wählen"))
(setq p3 (strcat (rtos (+ (car p1) (* (- (car p2) (car p1)) 0.5)) 2 8) "," (rtos (+ (cadr p1) (* 0.5 (- (cadr p2) (cadr p1)))) 2 8) ",0.0"))
(print p3)
) (princ "\nMIDX geladen. Aufruf durch Eingabe von 'MIDX innerhalb eines anderen Befehls")
(print)
gruß
ZEC
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADdog
Ehrenmitglied V.I.P. h.c.
Beiträge: 2276
Registriert: 30.04.2004 Intel Xeon 3,6 GHz
32 GB RAM
NVIDIA Quadro P2000
Windows 10 Enterprise
AutoCADmap 3D 2023
WS-Landcad 2023
QGIS 3.28.5
|
erstellt am: 27. Sep. 2006 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für Zec 
Hallo, ich weiß, dass es nicht die direkte Antwort ist, aber ich hab ein Makro, was IMHO dasselbe tut auf einem button: _non;'cal;(cur+cur)/2; ganz normale ACAD-Kommandos, das spart mir, das lisp zu laden ------------------
 gruß CADdog, the dog formerly known as TR AutoCAD spricht mit einem, aber viele hören nicht zu. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun
Ehrenmitglied
Beiträge: 1846
Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit
HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM
ATI FirePro V (FireGL V) Graphics Adapter
Treiberversion: 15.201.1151.1008
|
erstellt am: 27. Sep. 2006 12:39 <-- editieren / zitieren --> Unities abgeben: Nur für Zec
|
Zec
Mitglied
Cad Konstr.
Beiträge: 58
Registriert: 28.09.2005
|
erstellt am: 28. Sep. 2006 09:13 <-- editieren / zitieren --> Unities abgeben:
|
gmk
Mitglied
Dipl.-Ing.(FH) Vermessung
Beiträge: 669
Registriert: 23.10.2002 Autocad 2004, WS CadCompass, Normica V2000, WinXP Prof., AMD Athlon 64 X2, 2GB, NVIDIA GeForce 7600GS, HP1055CM
|
erstellt am: 28. Sep. 2006 11:16 <-- editieren / zitieren --> Unities abgeben: Nur für Zec
|
Foren auf CAD.de (alle Foren)
| 
