Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Koordinaten von Xref

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Koordinaten von Xref (815 mal gelesen)
fmfm
Mitglied
Facility Management


Sehen Sie sich das Profil von fmfm an!   Senden Sie eine Private Message an fmfm  Schreiben Sie einen Gästebucheintrag für fmfm

Beiträge: 258
Registriert: 18.10.2016

AutoCad 2019

erstellt am: 14. Feb. 2018 18:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen

gibts die möglichkeit Koordinaten von einer bestimmten Xref rauszufinden?

zum Beispiel: der äusserste linke Punkt unten und der äusserste rechte Punkt oben als koordinatenzahl...

Edit: ohne die Xref mit der Maus anzuklicken

Gruss

[Diese Nachricht wurde von fmfm am 14. Feb. 2018 editiert.]

[Diese Nachricht wurde von fmfm am 14. Feb. 2018 editiert.]

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 15. Feb. 2018 08:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für fmfm 10 Unities + Antwort hilfreich

wenn es nur einmal eingefügt ist, kann man die Referenz mit ssget und namensfilter suchen ... das erste InsertObjekt im Auswahlsatz dann in ein vla-object umwandeln und via get-boudingbox die Koordinaten des umschreibenden Rechtecks ermitteln..

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 15. Feb. 2018 08:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für fmfm 10 Unities + Antwort hilfreich

Hallo fmfm,
die Koordianten würde ich über vla-BoundingBox ermitteln.
Die Auswahl der XREF's habe ich in 2 Schritten vorgenommen:
1. BlockTabelle durchlaufen und nach Eigenschaft vla-IsXref abfragen.
2. Mit den gefundenen Block(XREF)Namen wird jeweils ein Auswahlsatz gebildet.

Alles ohne Netz und doppelten Boden, vielleicht selber mal debuggen, dann wird es klarer.

Zum Aufruf entweder "testpick", es wird ein XREF gepickt und eine Diagonale Linie gezeichnet, mit der die Abmessungen dargestellt werden.
Mit der Funktion "testblocklist" wird eine Liste mit Namen und Koordinaten zurückgegeben.
Viel Spaß beim ausprobieren.

Code:


(defun c:testPick ( / KOORDS OBJ VLA-OBJ)
  (vl-load-com)
  (if (and(Setq obj (car (entsel "\nXref picken:")))
  (setq vla-obj(vlax-ename->vla-object obj))
  (setq koords (JB_xrefKoords vla-obj)))
    (command "_.line" (car koords)(cadr koords))
    )
  (princ))


(defun c:testBlockList ( / AWS KOORDS N OBJ RETLIST RETLIST1 VLA-OBJ VLA-XREFDEF)
  (vl-load-com)
  (vlax-for item
    (vla-get-blocks
      (vla-get-activedocument(vlax-get-acad-object)))
    (if(=(vla-get-IsXref item):vlax-true)
      (setq RetList (cons Item RetList))))
 
  (mapcar '(lambda(vla-XrefDef)
    (if (setq aws (ssget"_X" (list (cons 0 "INSERT")
(cons 2 (vla-get-name vla-XrefDef)))))
      (progn
(setq n 0)
(repeat (sslength aws)
  (if (setq koords(JB_xrefKoords
    (vlax-ename->vla-object(ssname aws n))))
    (setq RetList1 (cons(list (vla-get-name vla-XrefDef)
      koords)RetList1)))
  (setq n (+ n 1)))))
   
    )
  RetList)
  RetList1)
       


(defun JB_xrefKoords (vla-obj / LISTE)
 
  (if vla-obj
    (if (and(not(vl-catch-all-error-p
  (setq liste(vl-catch-all-apply
      'JB_xrefKoords:getBoundingBox
      (list vla-obj)))))
    liste)
      (list
(vlax-safearray->list (car liste))
(vlax-safearray->list (cadr liste))))
    (alert "Kein gültiges XREF"))
  )
(defun JB_xrefKoords:getBoundingBox (vla-obj / p1 p2)
  (vla-GetBoundingBox vla-obj 'p1 'p2)
  (list p1 p2))


------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Liniensignaturen Youtube

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz