---

Hallo,

wenn ich ein Rechteck habe kann ich ja mit 'cal; mee einfach in die Mitte kopieren. Gibt es eine Möglichkeit das als Basispunkt zum kopieren gleich der Basispunkt vom Objekt zu nehmen ohne ihn immer durch ein Klick bestimmen zu müssen?

Im Idealfall:
1. Klick - Befehl
2. Klick - Objekt
3. Klick - erste Ecke
4. Klick - zweite Ecke

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich würde mittels Objektfanfspur und Objektfang Mittelpunkt den Schnittpunkt der Diagonalen bestimmen und den als Basispunkt beim Kopieren verwenden. Oder einen dynamischen Block definieren, der als Basispunkt eben den gewünschten punkt aufweist.
Oder habe ich da etwas falsch verstanden ?

------------------
- gü -

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Beim kopieren kommt ja die Abfrage "Basispunkt". Da soll einfach der Basispunkt von dem zuvor gewählten Objekt genommen werden.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Welches copy meinst du denn ?
_copybase
_copy

Die wollen eigentlich eine Objektauswahl (können also auch mehrere Objekte sein)

als Basispunkt könnte man dann (wenn existiert) den 1. GC10 des 1.Objektes in der Auswahl nehmen ...

und erste Ecke ? zweite Ecke ?

sorry 

Glaskugelmodus :

(command "_copybase" (if(setq OBJ(car(entsel"\nObjekt:")))
                      (cdr(assoc 10(entget OBJ)))
                      (getpoint "\nBasispunkt:")
                    )
                    (ssget) ""
)   

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was meinst Du mit:

Zitat:

---

... Idealfall:
...
3. Klick - erste Ecke
4. Klick - zweite Ecke

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

3. Klick - erste Ecke
4. Klick - zweite Ecke

ist um mittig in das Rechteck das Objekt kopieren zu können.

Das ist aber nicht das Problem. Es soll eben der Basispunkt vom Objekt als Basispunkt zum kopieren verwendet werden.

CADmium sein Code sieht schon danach aus. Wenn ich das richtig verstehe wird der Einfügepunkt vom ausgewählten Objekt an die Variable OBJ übergeben. Ich muß mal schau ob ich da was drauß basteln kann.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

>> Es soll eben der Basispunkt vom Objekt als Basispunkt zum kopieren

Und hier - in dieser Formulierung - sehe ich die Unsicherheit bzw. Auslöser der (für xem vielleicht unverständlichen) Rückfragen.

Ein Rechteck hat keinen 'Basispunkt', Basispunkte haben nur Blöcke oder Texte!

Dass der Mittelpunkt eines Rechtecks ein Basispunkt sein soll, das musst Du, xem, dem AutoCAD erst beibringen, denn AutoCAD weiß davon nix (dass im Falle Rechteck die Mitte zwischen Vertex1 und Vertex3 gelten soll).

- alfred -

------------------
www.hollaus.at

---

Also wenn ich Dich richtig verstehe, willst Du ein Objekt in einem Rechteck zentrieren. Dafür hatte ich mal das geschrieben:

Code:

---

(defun c:vox-center-objekts ( / o1 o2 pm1 pm2)
  (vl-load-com)
  (setq o1 (entsel "zu verschiebendes Objekt:"))
  (setq o2 (entsel "\nZielobjekt:"))
  (vla-getboundingbox (vlax-ename->vla-object (car o1)) 'p0 'p1)
  (setq pm1 (mapcar '/ (mapcar '+ (vlax-safearray->list p0) (vlax-safearray->list p1)) '(2 2 2)))
  (vla-getboundingbox (vlax-ename->vla-object (car o2)) 'p0 'p1)
  (setq pm2 (mapcar '/ (mapcar '+ (vlax-safearray->list p0) (vlax-safearray->list p1)) '(2 2 2)))
  (command "_move" o1 "" pm1 pm2)
)

---

Vielleicht hilft's Dir ja.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke wronzky,

ich werde später noch etwas basteln. Aber so ungefähr soll es sein.

Das Rechteck ist nicht als Rechteck vorhanden (z. B. ein Raum im Grundriss) und muss mit zwei Ecken definiert werden.

Aber das mit dem Objekt wählen und den Basispunkt als Verschiebepunkt paßt schon.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe es jetzt mal so versucht. Läuft auch ohne Fehlermeldung, nur wird das Objekt nicht kopiert. 

Code:

---

(defun c:test ( / o1 pm1 )
  (vl-load-com)
  (setq o1 (entsel "zu verschiebendes Objekt:"))
  (vla-getboundingbox (vlax-ename->vla-object (car o1)) 'p0 'p1)
  (setq pm1 (mapcar '/ (mapcar '+ (vlax-safearray->list p0) (vlax-safearray->list p1)) '(2 2 2)))
  (command "_copy" o1 "" pm1 "" "'cal" "mee")
)

---

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuch's mal so:

Code:

---

(defun c:vox-center-objekts2 ( / o1 pm1 pm2)
  (vl-load-com)
  (setq o1 (entsel "zu verschiebendes Objekt:"))
  (vla-getboundingbox (vlax-ename->vla-object (car o1)) 'p0 'p1)
  (setq pm1 (mapcar '/ (mapcar '+ (vlax-safearray->list p0) (vlax-safearray->list p1)) '(2 2 2)))
  (setq pm2 (mapcar '/ (mapcar '+ (getpoint "1. Ecke") (getpoint "2. Ecke")) '(2 2 2)))
  (command "_move" o1 "" pm1 pm2)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Falls das zu verschiebende Objekt auch kein Rechteck ist, sondern etwas mit Basispunkt...?

Code:

---

(defun c:vox-center-objekts2 ( / o1 pm1 pm2)
  (vl-load-com)
  (if (setq o1 (entsel "zu verschiebendes Objekt:"))
    (progn
      (setq pm1 (cdr (assoc 10 (entget (car o1)))))
      (setq pm2 (mapcar '/ (mapcar '+ (getpoint "1. Ecke") (getpoint "2. Ecke")) '(2 2 2)))
      (command "_move" o1 "" pm1 pm2)
    )     
  )
)

---

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke an alle,

ich hab es jetzt so gemacht und läuft supi.

Code:

---

(defun c:mcopy ( / o1 pm1 pm2)
  (vl-load-com)
  (if (setq o1 (entsel "zu verschiebendes Objekt:"))
    (progn
      (setq pm1 (cdr (assoc 10 (entget (car o1)))))
      (setq pm2 (mapcar '/ (mapcar '+ (getpoint "1. Ecke") (getpoint "2. Ecke")) '(2 2 2)))
      (command "_copy" o1 "" pm1 pm2)
    )     
  )
)

---

Wie baut man da jetzt noch eine Wiederholung ein, dass wie beim kopieren (mehrfach) immer wieder die beiden Ecken abgefragt werden?

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... z.B. mit einer While-Schleife (das "vl-load-com" kannst Du weglassen, wenn Du keine vl-Funktionen verwendest):

Code:

---

(defun c:mcopy ( / o1 pm1 pm2 p1 p2)
  (if (setq o1 (entsel "zu kopierendes Objekt:"))
    (while
      (and
        (setq pm1 (cdr (assoc 10 (entget (car o1)))))
        (setq p1 (getpoint "1. Ecke"))
        (setq p2 (getpoint "2. Ecke"))
        (setq pm2 (mapcar '/ (mapcar '+ p1 p2) '(2 2 2)))
      )
      (command "_copy" o1 "" pm1 pm2)
    )   
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

warum funktioniert der Befehl nicht mehr wenn ich das BKS um 10° dreh oder den Ursprung verändere?

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

weil die GC BKS-Koordinaten sind und keine Weltkoordinaten ?

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

¿¿¿¿ _COPY -> M2P ????

Give Befehlsmodifikatoren a chance ...

------------------
Gruß, Björn

AutoCAD 2011 Certified Professional
Virtual-Pix GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

axo - der Basispunkt ruft er als Weltkoordinaten ab 

einfach den Basispunkt von Hand auswählen dann gehts!

Code:

---

(defun c:mmove ( / o1 pm1 pm2 p1 p2)
  (if (setq o1 (entsel "zu verschiebendes Objekt:"))
      (and     
        (setq pm1 (getpoint "\nBasispunkt:"))
        (setq p1 (getpoint "1. Ecke"))
        (setq p2 (getpoint "2. Ecke"))
        (setq pm2 (mapcar '/ (mapcar '+ p1 p2) '(2 2 2)))
      (command "_move" o1 "" pm1 pm2)
    )   
  )
)

---

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi @ all,

sehe ich wie Björn, dies geht mit Objektmodifiziere m2p auch ohne Programmierung:

Sucht den Mittelpunkt zwischen zwei Punkten

Befehlseingabe: Geben Sie an einer Eingabeaufforderung für einen Punkt mtp ein.
Der Befehlsmodifizierer für den Mittelpunkt zwischen zwei Punkten (MTP) kann bei laufenden Objektfängen oder bei außer Kraft gesetztem Objektfang verwendet werden. OFANG (Befehl)

Geben Sie an einer Eingabeaufforderung für einen Punkt mtp oder m2p ein.

Erster Punkt der Mitte: Geben Sie einen Punkt an.

Zweiter Punkt der Mitte: Geben Sie einen zweiten Punkt an.

------------------
Gruß
epb

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Copy.dwg

Hallo,

ich habe hier mal ein Beispiel wie die Programmierung nicht sauber funktioniert, warum auch immer.

Code:

---

(defun c:mcopy ( / o1 pm1 pm2 p1 p2)
  (if (setq o1 (entsel "zu kopierendes Objekt:"))
    (while
      (and
        (setq pm1 (cdr (assoc 10 (entget (car o1)))))
        (setq p1 (getpoint "1. Ecke"))
        (setq p2 (getpoint "2. Ecke"))
        (setq pm2 (mapcar '/ (mapcar '+ p1 p2) '(2 2 2)))
      )
      (command "_copy" o1 "" pm1 pm2)
    )   
  )
)

---

Bei Ausführung des Codes wird das blaue Kreuz nicht mittig kopiert. Als Punkte nehme ich die zwei rot markierten Punkte.
Scheinbar stört der Text, denn wenn ich den lösche funktioniert es 
Genauso wenn ich bei der Angabe der zwei Punkte rein zoome bis ich den Text nicht mehr sehe.

Kann das einer bestätigen das in der kompletten Ansicht der Text stört und der Code nicht sauber funktioniert?

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1. Warum arbeitest du noch immer mit Lispzeilen wenn es doch unlängst die Fangoption "Mitte2Punkte" gibt ?

2. Ich gehe bei deiner Beschreibung von folgendem aus:
   Du hast den permanenten Objektfang mit der Option Basispunkt aktiv
   Dein AutoCAD ist so eingestellt das der Ofang in Scripten berücksichtigt werden soll (Osnapcoord=2)
   Das in Kombination würde Ergeben das dein Kreuz am Basispunkt des MTextes landet - ist es so ?

Also: Osnapcoord auf 1 stellen, mindestens für den move-Command
(ist die Wichtigste Einstellung welche man beim verwenden von Makros,Scripten und Commands vornehmen muß - es sei denn das es natürlich überlegt und explizit gewollt auf 2 oder 0 stehen soll)
Alternative: Boardmittel m2p nutzen   

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke cadffm,

mit Osnapcoord=1 funktioniert es!

"Mitte2Punkte" geht zwar auch nur möchte ich möglichst wenig Eingaben machen, was mit dem Code einfach besser läuft.

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

den Objektfang kann man aber auch im Command benutzen .

Wenn du "heute" Osnapcoord auf 1 stellst und alles ist gut,
dann tippe ich auf ca.500x fluchen über AutoCAD weil das Ergebnis nicht so  war wie erhofft.
(beim Verwenden von Script/Makro/Command)

na denn 

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP