|
Lisp : Region untere und obere Begrenzung
cad-bonn am 25.05.2011 um 09:34 Uhr (0)
Zitat:Original erstellt von cad-lisp:die Größe kannst du mit der Funktion vla-getboundingbox ermitteln.Hier ein keines Beispiel.(defun c:ufr ( / ELE LL P0 P1 UR ) ;Funktion gibt Punkte für umfassendes Rechteck zurück (vl-load-com) (setq ele(entsel "
Bitte Element wählen:")) (vla-getboundingbox (vlax-ename-vla-object (car ele)) ll ur) (setq p0 (vlax-safearray-list ll));Punkt links unten (setq p1 (vlax-safearray-list ur));Punkt rechts oben (list p0 p1) )hoffe es hilft dir weiterGrußcad-lispHallo Henning ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 25.05.2011 um 09:34 Uhr (0)
Zitat:Original erstellt von cad-lisp:die Größe kannst du mit der Funktion vla-getboundingbox ermitteln.Hier ein keines Beispiel.(defun c:ufr ( / ELE LL P0 P1 UR ) ;Funktion gibt Punkte für umfassendes Rechteck zurück (vl-load-com) (setq ele(entsel "
Bitte Element wählen:")) (vla-getboundingbox (vlax-ename-vla-object (car ele)) ll ur) (setq p0 (vlax-safearray-list ll));Punkt links unten (setq p1 (vlax-safearray-list ur));Punkt rechts oben (list p0 p1) )hoffe es hilft dir weiterGrußcad-lispHallo Henning ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte ersetzen
cad-bonn am 11.04.2011 um 14:47 Uhr (0)
Hallo vielleicht kennt jemand eine LISP Routine, die Texte auf zwei Stellen hinter dem Komma mit Null auffüllen kann.Linke Spalte sind die Zahlen die bearbeitet werden sollenRechte Spalte das gewünschte Ergebnis.207.96 207.96207.9 207.90 (Null angehängt)207.93 207.93207.9 207.90 (Null angehängt)208.01 208.01207.79 207.79207.8 207.80 (Null angehängt)mit freundlichen Grüßencad-bonn
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 09.05.2011 um 14:11 Uhr (0)
Hallo,ich würde gerne die Grenzen von mehreren Polylinien auslesen.Was ich gefunden habe: Polylinie in Region umwandeln und dann mit dem Befehl Liste die Daten der Region anzeigen. Da werden die Koordinaten der linken unteren sowie der rechten oberen Ecke angezeigt:Befehl: listeObjekte wählen: 1 gefundenREGIONBegrenzungsrahmen: Untere Begrenzung X = 137.2860 , Y = 134.5110 , Z = 0.0000Obere Begrenzung X = 408.4518 , Y = 311.6538 , Z = 0.0000Zuerst wollte ich diese Werte über die Datenextraktion (_EATTEXT) ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 09.05.2011 um 14:11 Uhr (0)
Hallo,ich würde gerne die Grenzen von mehreren Polylinien auslesen.Was ich gefunden habe: Polylinie in Region umwandeln und dann mit dem Befehl Liste die Daten der Region anzeigen. Da werden die Koordinaten der linken unteren sowie der rechten oberen Ecke angezeigt:Befehl: listeObjekte wählen: 1 gefundenREGIONBegrenzungsrahmen: Untere Begrenzung X = 137.2860 , Y = 134.5110 , Z = 0.0000Obere Begrenzung X = 408.4518 , Y = 311.6538 , Z = 0.0000Zuerst wollte ich diese Werte über die Datenextraktion (_EATTEXT) ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 01.06.2011 um 09:40 Uhr (0)
Danke für die Antwort! Ich hab es mal ausprobiert.Ergebnis:Befehl: (rtos 2.51489e+006 2 3)"2514890"Leider werden die Kommastellen nicht ausgegeben.Liegt das Problem vielleicht an meinem LISP-Programm, da es zu "große" Koordinaten sind?Ich hab mal meine Zeichnung näher an den Ursprung verschoben, da hat es auch dann mit den Nachkommastellen geklappt. Jetzt muß ich halt die Verschiebung wieder auf die Koordinaten addieren, dass find ich etwas umständlich.%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%(defun c:box ( / B ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 25.05.2011 um 10:25 Uhr (0)
Hallo Thomas, nochmal Danke!jetzt versuche ich noch einen Text (Befundnummer) zu wählen, und dieser Text soll in der Befehlszeile aufgelistet werden. Mein Versuch sieht so aus:(defun c:box ( / ELE LL P0 P1 UR BFNR) ;Funktion gibt Punkte für umfassendes Rechteck zurück (vl-load-com) (setq ele(entsel "
Bitte Element wählen:")) (vla-getboundingbox (vlax-ename-vla-object (car ele)) ll ur) (setq p0 (vlax-safearray-list ll));Punkt links unten (setq p1 (vlax-safearray-list ur));Punkt rechts oben (list p0 p1) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 01.06.2011 um 12:13 Uhr (0)
Hallo,Hbe es mit den Systemvariablen probiert. Ich schaff es immer noch nicht mir die genauen Koordinaten mit drei Nachkommastellen (z.b. 2534567.345) in der Befehlszeile anzeigen zu lassen. Über den Umweg _id wird die korrekte Koordinate angezeigt:X = 2514905.652 Y = 5631162.610 Z = 0.000Ich scheiter aber daran den Befehl _id in mein LISP einzubauen!mfg cad-bonn
|
| In das Form Lisp wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 01.06.2011 um 12:33 Uhr (0)
Mit dem Befehl rtos kann ich nicht auf ein Koordinatenpaar (x und y-Wert) zugreifen.Befehl: ( rtos 2.51489e+006 5.63116e+006 2 3); Fehler: Zu viele ArgumenteIm Lisp wäre das bei mir die Variable p0, welche in einer Liste gespeichert wird. Hab ich die Möglichkeit nur auf ein Element der Variablen zuzugreifen (z.b. x-Wert), um dann rtos anzuwenden?
|
| In das Form Lisp wechseln |
