|
Rund um AutoCAD : Lisp Linien Winkel 45 Grad filtern
he-st am 17.12.2012 um 16:09 Uhr (0)
Hallo CAD Gemeinde,ich habe ein älteres Lisp Tool gefunden mit dem man automatisch Linien die im 45° Winkel gezeichnet wurden löschen kann. Dieses wird z.B. für Mauerwerksschraffuren benötigt. Jetzt möchte ich aber nicht das das Tool die Linien löscht, sondern nach dem Filtern wieder abbricht, sodass dich die gefilterten Elemente verändern kann (anderer Layer)Wäre toll wenn mir jemand die Lisproutine entsprechend anpassen könnte. Meine Lisp Kenntnisse gehen nämlich gegen null (defun c:schraff45 (/ SET CT ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Linien Winkel 45 Grad filtern
CADmium am 17.12.2012 um 16:26 Uhr (0)
Das geht schon mit der Schnellauswahl .. Befehl _qselect .... Objekttyp Linie ,eigenschaft : winkel Operator: = Wert: 45------------------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."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Linien Winkel 45 Grad filtern
he-st am 17.12.2012 um 16:33 Uhr (0)
Prinzipiell schon, aber je nach dem wie die Linie gezeichnet wurde gibt es vier Möglichkeiten: 45° 135° 225° 315°.Außerdem ist mir das zu Umständlich.Das Lisptool berücksichtigt alle Möglichkeiten und wäre direkt von meinem eigenen Mausmenü aus aufrufbar. Geht wesentlich schneller als sich durch die Schnellauswahl zu klicken. Zumal es mir diese nicht immer funktioniert.
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Linien Winkel 45 Grad filtern
cadffm am 17.12.2012 um 16:44 Uhr (0)
Code:(defun c:W45Lines (/ SS DO CT OB NAME) (princ "
Es werden nur Linien im Winkel 45,135,225 und 315° gefiltert!") (setq SS (ssget ((0 . "LINE")))) (setq CT 0) (setq DO (ssadd)) ;leeren auswahlsatz erzeugen (while (setq NAME (ssname SS CT)) (setq OB (entget NAME)) (if (member (read(angtos (angle (cdr(assoc 10 OB)) (cdr (assoc 11 OB))))) (45.0 135.0 225.0 315.0)) (setq CT (1+ CT)) (ssdel NAME SS) );if );while (if (zerop(sslength ss)) (princ"
Keine Linie gewählt") ( ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Linien Winkel 45 Grad filtern
he-st am 17.12.2012 um 16:54 Uhr (0)
Genau so was hab ich gesucht.Vielen herzlichen Dank. Funktioniert super!
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
Christian01 am 19.12.2012 um 10:39 Uhr (0)
Hallo LutzDanke wusst ich auch noch nicht.Aber wie mache ich das dann mit dem neuen Layer anlegen, Kopieren und die kopierten P-Linien auf den neuen Layer legen?Einfacher währe es über LISP- Routine.------------------GrüßeChristian
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
Christian01 am 19.12.2012 um 10:19 Uhr (0)
Hallo liebe CommunityWie bereits oben im Betreff zu lesen ist, suche ich ein LISP Programm das folgendes macht:1) Filtern nach Polylinien, aber nur diese welche Länger sind als z.B.: 60,0m2) Neuen Layer anlegen: z.B.: _P-Linie603) Die gefilteren P-Linien auf den neuen Layer kopiert (nicht verschiebt bzw. verändert)Ich brauche eine Übersicht über diese Linien.Habe schon viel herumprobiert und die Community durchsucht.Auch versucht bestehende LISPs umgeschrieben, wie z.B.: Dieses hierAber in diesem Bereich b ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
Dig15 am 19.12.2012 um 10:22 Uhr (0)
Muss es ein Lisp sein? Das geht doch auch über die Schnellauswahl.------------------Viele Grüße LutzGlück Auf!
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
CADmium am 19.12.2012 um 10:46 Uhr (0)
ok .. was zum Lernen ( hoffentlich )(defun PSELECT(LAENGE LAYER / AWS) (vl-load-com) (if(and(setq AWS(ssget "_X" (list(0 . "*POLYLINE")(cons 410(getvar"CTAB"))))) (=(type LAYER)STR) (setq LISTE(vl-remove-if null (mapcar (lambda(X / OBJ L) (if(and(setq OBJ (cadr X)) (setq OBJ(vlax-ename-vla-object OBJ)) (setq L (vlax-curve-getdistatparam OBJ(vlax-curve-getendparam OBJ))) ( L 60.0) ) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
Dig15 am 19.12.2012 um 10:49 Uhr (0)
Zitat:Original erstellt von Christian01:...Aber wie mache ich das dann mit dem neuen Layer anlegen, Kopieren und die kopierten P-Linien auf den neuen Layer legen?...Befehl AUFLAYKOP - kommt ehemals aus den E-Tools. Ist aber mittlerweile ins ACAD gewandert. MFL - Start - Layer (aufklappen).Aber Du hast ja nun ein Lisp. Frohe Weihnachten... ------------------Viele Grüße LutzGlück Auf!
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
Christian01 am 19.12.2012 um 12:13 Uhr (0)
@CADmiumFür PSELECT habe ich TRASSESELCT genommen. PSELECT ist bereits ein Befehl in ACADWie kann ich diesen Befehl ausführen?Mittels "APPLOAD" lade ich den Befehl.Bei der Behlseingabe: "TRASSESELCT" eingebe -- Befehl nicht vorhanden.Bei der Änderung der Lisp auf:(defun C:TRASSESELCT(LAENGE LAYER / AWS)kommt die Fehlermeldung:; Fehler: Zu wenig ArgumenteMache ich irgendetwas falsch?------------------GrüßeChristian
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
CADmium am 19.12.2012 um 12:17 Uhr (0)
Aufruf mit(TrasseSELECT 60 "LAYERNAME") nimmt alle PLs mit Länge 60 und schmeißt sie auf den LAYER "Layername"------------------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."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Achsen von Volumenkörpern
jupa am 20.12.2012 um 13:13 Uhr (0)
Hallo Pinto, schon in dem Thread "Befehl Massprop bzw. Masseig " habe ich nicht so richtig verstanden, von welcher "Achse" Du eigentlich sprichst. So wie offenbar auch andere bin ich von der Vermutung ausgegangen, Du könntest die (Haupt-)Trägheitsachsen meinen. Und nach Deiner Bestätigung, CADchups LISP hätte Dir geholfen hatte ich das dann für mich abgehakt. Da Dein Problem aber noch immer nicht geklärt zu sein scheint, muß ich nun doch mal nachfragen, welche Achse (Du wählst ausdrücklich den Singular!) D ...
|
| In das Form Rund um AutoCAD wechseln |
