|
AutoLisp : _move Blöcke Basispunkt
michelangelo am 10.12.2004 um 10:41 Uhr (0)
Ich habe ein lisp gschrieben wo ich einen punkt ermittle, jetzt möchte ich einen block anklicken können und diesen von dem blockbasispunkt zum definierten punkt verschieben. Aber wie kann ich dem lisp sagen das der erste punkt der blockbasispunkt ist? (COMMAND _move pause 0,0 xy) 0,0 sollte der basispunkt des angewählten block sein, wie kann ich das definieren? ------------------ [AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.] [Diese Nachricht wurde von michelangelo am 10. D ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 15:59 Uhr (0)
gibt es einen schiebe befehl mit dem ich einen Text oder Block anklicken kann. dann zwei punkte angeben kann und es verschieb es mir in die mit der beiden punkte. das heisst ich habe zum beispiel ein rechteck. und einen block. ich möchte zwei diagonale punkte des rechtecks ankgeben. und den block wählen. dann verschieb es den block in die mitte des rechtecks. gibts so was.?? und wen nein wie muss ich das angehen zu programmieren.? ------------------ [AutoCAD spricht mit jedem, nur leider nicht immer die g ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 16:50 Uhr (0)
ETWA SO STELLE ICH MIR DAS VOR NUR HABE ICH NICHT SO VIEL AHNUNG VON LISP DAS ICH WEISS WIE ICH DAS RICHTIG SCHREIBEN MUSS. (defun C:SBM ( / AUSWAHL p1 p2 p3) (setq AUSWAHL (ssget C ) (setq OSC_old (getvar osnapcoord )) (setvar osnapcoord 1) (setq p1 (getpoint
Ersten Punkt wählen )) (setq p2 (getpoint
zweiten 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 )) (setvar osnapcoord (pri ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
