|
AutoLisp : xref
CADwiesel am 18.04.2005 um 09:55 Uhr (0)
naja, um alle Koordinaten der Schnittpunkte der Achsen zu ermitteln, musst du wohl erstmal alle Achslinien einsammeln und dann miteinander vergleichen. wobei ja die Elemente, die in dem Block verwendet wurden in der Blocktabelle stehen dürften. aber wie holgi schon sagte - die koordinaten werden auf die Ausgangszeichnung umgerechner werden müssen ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : xref
CADwiesel am 19.04.2005 um 07:45 Uhr (0)
Das geht auch ohne VL. Du brauchst also für deine Anforderung nichts neues zu lernen. ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
CADmium am 20.04.2005 um 10:27 Uhr (0)
bei www.Cadwiesel.de solltest du fündig werden, wenn nicht - Anhang als vlx speichern , in ACAD laden und dann mit Block-rename aufrufen , bzw. für die ganze Zeichnung :BLOCKS-NOTANONYMUS------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."[Diese Nachricht wurde von CADmium am 20. Apr. 2005 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
Peter2 am 20.04.2005 um 10:50 Uhr (0)
habe gestern leider nur etwas oberflächlich bei Cadwiesel gesucht und mit Stichwort "anonym" nichts gefunden, aber jetzt habe ich nochmals ordentlich geschaut - und sieh da:BenennUBL neue VersionBenennt Unbenannte Blöcke (die mit * beginnen) in Benannte um. Es können entweder einzelne Böcke umbenannt werden,(Bsp: X347) oder durch eingabe von * innerhalb des Blocknamens alle die dem Suchkriterium entsprechenden (Bsp: X*)DankePeter------------------Für jedes Problem gibt es eine einfache Lösung.Die ist abe ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Nummern forlaufend
CADwiesel am 20.04.2005 um 14:48 Uhr (0)
n kleines Schmankerl von meinereiner Code: (defun c:num (/ PointByCrosshair TXTDRAW LAY_OLD prefix nr th AWS LAY_NEW ipt) (defun PointByCrosshair (color tx wi / P p0 p1 tt) (Setq p0 (getvar extmin ) p1 (getvar extmax ) ) ;_ end of Setq (if ( (length (cdr (setq P (grread t 5 0)))) 3) (setq P (cons 3 (list (list (+ (/ (nth 0 p0) 2) (/ (nth 0 p1) 2)) (+ (/ (nth 1 p0) 2) (/ (nth 1 p1) 2)) (+ (/ (nth ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
Peter2 am 21.04.2005 um 10:18 Uhr (0)
Zitat:Original erstellt von CADmium:Beim Umbenennen eines Blocks, der nach der gewählten Blockreferenz gesucht wird , macht es demnach Sinn nur EINE Blockreferenz auswählen zu lassen, bzw. die erste der aktuellen Auswahl zu nutzen.Die Auswahl nur eines Blockes macht Sinn, aber die Meldung "Objekte wählen:" macht dem harmlosen Anwender glaubhaft, dass hier mehr auf einmal bearbeitet wird. Steht hier ein "ssget" dahinter? Weil "entsel" fragt nur nach "Objekt wählen:", und da weiss man, dass es nur um eines ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linie auf der Letzter Punkt(lastpoint) liegt wählen
CADwiesel am 09.05.2005 um 11:07 Uhr (0)
es ist in der Tat so, das diese Methode Probleme verursacht. versuch es mal so: (ssget _C (getvar lastpoint )(getvar lastpoint )) ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Websites von Reini Urban und Vladimir Nesterovsky
CADwiesel am 17.05.2005 um 08:08 Uhr (0)
Zitat: So richtig aktuell scheinen mir die Seiten nicht mehr zu sein. jo - das stimmt wohl Zitat: Wisst ihr mehr: Gibt es andere Seiten? klar gibts andere Seiten, kommt aber drauf an, was du suchst. die wohl bedeutensde deutsche Seite zu autolisp dürfte wohl die von mapcar sein. Ansonnsten wirst du dich wohl auf den Englischsprachigen Seiten von z.b. Afralisp umschauen müssen. Zitat: Sind beide nur mehr beschränkt (oder in anderen Bereichen) aktiv? In der Tat, scheinen sich die Namenhaf ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _TRIM
CADwiesel am 17.05.2005 um 11:39 Uhr (0)
hier noch eins nur mit wahl der beiden Stutzkanten Code: (defun pts(ENAME) (cons (vlax-curve-getendpoint (vlax-ename- vla-object ENAME)) (vlax-curve-getstartpoint (vlax-ename- vla-object ENAME)) ) ) (if(setq elem1(car(entsel
1. Kante wählen: ))) (setq p1 (car (pts elem1)) p2 (cdr (pts elem1)) ) ) (if(setq elem2(car(entsel
2. Kante wählen: ))) (setq p3 (car (pts elem2)) p4 (cdr(pts elem2)) ) ) (if(and p1 p3) (progn (setq as1(ssget _C p1 p3)) (repeat(s ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _TRIM
CADwiesel am 17.05.2005 um 13:49 Uhr (0)
sorry, nu isses richtig (vl-load-com) nicht vergessen! ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _TRIM
CADwiesel am 17.05.2005 um 14:47 Uhr (0)
naja, wo ist dann der Unterschied, Zwischen deinem Programm und dem Stutzen-befehl? ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : TEMPPREFIX
CADwiesel am 18.05.2005 um 07:59 Uhr (0)
:hmm kann ich nicht nachvollziehen - habs schon mit Rotwein probiert - ging aber auch nicht besser ;D ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Websites von Reini Urban und Vladimir Nesterovsky
Peter2 am 18.05.2005 um 11:33 Uhr (0)
Zitat: Original erstellt von CADwiesel: klar gibts andere Seiten, kommt aber drauf an, was du suchst. Die Frage nach anderen Seiten war so gemeint: andere Seiten dieser beiden Herren . Danke für die Rückmeldung. Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-)
|
| In das Form AutoLisp wechseln |
