|
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 |
|
Rund um AutoCAD : ACAD2013 Anzahl Supportpfade, CUIX, MNU - PROBLEME
maysn am 04.01.2013 um 12:00 Uhr (0)
Ich danke euch herzlich.Ich versuche mich mal mit dem Programm von Brischke. Das ist die schnellste und einfachste Lösung. Aber vielleicht komme ich auf das Thema nochmal zurück, sofern ich noch eine andere Lösung suche.Dummerweise bin ich nur der Acad-Anwender, der in das Acad-Wissen reingerutscht ist und nun bin ich für die Administration zuständig. Deswegen habe ich auch von Lisp keine Ahnung oder ähnlicher Programmierung.Um euch somit Arbeit zu ersparen, versuche ich den einfacheren Weg.Grüße
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Stiegenlauf programmieren
MONKMUTU am 08.01.2013 um 13:37 Uhr (0)
Hallo,habe folgenden Lisp-Code jedoch benötige ich jetzt eine kleine Erweiterung.- siehe ZeichungWer kann mir helfen?(defun C:st (/ p1 p2 os flag anz x y ap epy epx) (command "_.LINE" pause pause "") (setq p1 (trans (cdr (assoc 10 (entget (entlast)))) 0 1) p2 (trans (cdr (assoc 11 (entget (entlast)))) 0 1) os (getvar "osmode") ) (entdel (entlast)) (setvar "osmode" 0) (setq flag T) (while flag (setq anz (getint "Anzahl der Steigungen eingeben: ")) (if ( anz 0) (setq flag nil) ) ) ...
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Multifunktionsleiste durch Lisp/vba/.NET ändern
zech am 09.01.2013 um 10:05 Uhr (0)
Hallo,wir haben uns eine eigene Registerkarte in der MFLeiste erzeugt. Die angehängte Datei zeigt einen Ausschnitt davon.Es geht dort um die unterste Reihe, wo steht 1.8 0.1 R. Dies sind flyouts in denen man für eine Bemaßung verschiedeneTexthöhen (1.8, 2.0, 2.5, usw.) wählen kann. Der zweite Eintrag bestimmt die Nachkommastellen (1, 2, 3, 4) Der dritte Eintrag ist der Textstil (R, G, A). Nun habe ich verschiedene Bemaßungen in der Zeichnung. In Lisp geschrieben haben wir ein Programm dass einige Parameter ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Multifunktionsleiste durch Lisp/vba/.NET ändern
CADmium am 09.01.2013 um 10:13 Uhr (0)
mit Lisp oder VBA kommst du da IMHO nicht ran, weil die ActivX-Schnittstelle die Ribbons nicht mit drin hat ..... C# und .Net sollte es IMHO gehen.------------------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 : Layout2 (Registerkarte) löschen
tschippie am 09.01.2013 um 10:42 Uhr (0)
Hallo zusammen,ich suche eine Möglichkeit, bei meheren DWGs das Layout2 (heist immer so) automatisch zu löschen.D.h. ich habe hier über 100 DWGs, bei denen ich dies ungern von Hand durchgehen möchte.Meine Idee wäre die, dass ich diese DWGs in AutoCAD geöffnet habe, und wenn ich das LISP-Programm starte, alle geöffneten DWGs abgearbeitet werden!Leider bin ich mit AutoCAD und mit der Programmierung nicht wirklich vertraut und weis daher auch nicht ob dies überhaupt möglch ist.Schön wäre noch, wenn die Dateie ...
|
| In das Form Rund um AutoCAD wechseln |
