|
Rund um Autocad : acad2000i-->Layerfilter
CADwiesel am 05.07.2006 um 08:57 Uhr (0)
ok nu iss alles klarhier der Kot 4 free und alleIst ohne VL und läuft ab Autocad 2000 / 2000 LT (mit Extender)Code:(defun C:RemoveLFilter (/ DUMMY FILTERS dict filtercode) (if((substr (getvar "acadver") 1 2)"15") (setq filtercode 350) (setq filtercode 360) ) (if (and (setq DUMMY (entget (tblobjname "LAYER" "0"))) (setq DUMMY (cdr (assoc 330 DUMMY))) (setq DUMMY (entget DUMMY)) (setq DUMMY (cdr (assoc 360 DUMMY))) (setq DUMMY (entget DUMMY)) ) ;_ ende von and (progn (if (setq ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Positionsnummern
tom.berger am 04.06.2004 um 14:01 Uhr (0)
Zitat: Original erstellt von CADwiesel: @ Tom Was soll denn das werden? ist das hier ein Kritikforum oder eine Hilfsplattform? ... aber ich helfe Dir doch, Deine LISP-Kenntnisse zu erweitern :-) Und davon ab: konstruktive Kritik ist immer eine Hilfe. Ich jedenfalls bitte darum. Zitat: Wo ist eigentlich dein kreatiever Hilfsansatz zu seiner Frage? Den sollte jeder erkennen können. Inhaltlich besteht er darin zu zeigen, dass Dein Vorschlag völlig überflüssig war, weil Dein kleines LISP Pr ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Entwicklung einer allgemeinen *Error* Funktion...
CADchup am 29.02.2004 um 18:08 Uhr (0)
Hi, ich lese mir die Beiträge hier ca. alle ein bis zwei Tage von vorne bis hinten durch und jedesmal wirft mein Hirn irgendwann Blasen. Trotzdem: Ein schönes Thema, das in deutschen Foren wohl noch nie so ausführlich diskutiert wurde. So langsam drängt sich mir allerdings der Verdacht auf, dass es den eierlegenden Wollmilcherrorhandler, der alles mögliche berücksichtigt und auch noch unter Steinzeit-Acad läuft, nicht geben kann oder aber so komplex ist, dass er von kaum jemand verstanden, geschweige de ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Polylinie in Kreis umwandeln
CADwiesel am 24.03.2005 um 12:58 Uhr (0)
hier isses(defun C:P2C (/ as elem minx maxx miny maxy mitte) (vl-load-com) (while (if (setq as (ssget ((0 . "*POLYLINE")))) (progn (repeat (sslength as) (setq elem (ssname as 0)) (vla-getboundingbox (vlax-ename-vla-object elem) xmin xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray-list xmin)) MINY (cadr (vlax-safearray-list xmin)) MAXX (car (vlax-safearray-list xmax)) ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Unterstreichen von Strings?
autocart am 03.02.2005 um 15:12 Uhr (0)
@Cadwiesel: Langsam bin ich solche Müll-Antworten leid. Wenn du Moderator bist solltest du wirklich darüber erhaben sein. (Bist aber nicht der einzige.) Das Problem liegt darin, dass die Meisten sich leider kaum Zeit nehmen wirklich darüber nachzudenken, was die Beiträge anderer Leute bedeuten, wenn deren Beiträge überhaupt richtig gelesen und nicht nur überfolgen werden. Ich zitiere aus Cadmiumns Link: Zitat: Auf jeden Fall ist o bzw. o bei LISP für Überstreichung und nicht für Durchstreichen ! Und ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Boesch.lisp - Objekt schneidet keine Kante
KahSandra am 26.08.2009 um 10:40 Uhr (0)
Hallo,ich war total begeistert, als ich die CADWiesel Boesch.lisp entdeckt habe, musste aber leider feststellen, dass es bei mir nicht funktioniert. Ich erhalte fast immer die Meldung Objekt schneidet keine Kante. Nichts gewählt, keine Gruppe geschaffen.Allein für 2 Polylinien wurde eine Böschung erzeugt, aber auch nur, wenn ich einen Abstand zwischen 997 und 1001 (oder einem Vielfachen) gewählt habe. Für andere Abstände erhalte ich die gleiche Meldung wie oben. (Gut, ich hab jetzt nicht sämtliche Möglich ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Liste aller Beschriftungen als txt
Cadzia am 14.12.2004 um 12:35 Uhr (0)
hab hier auch noch was ausgegraben (auch von Cadwiesel, soweit ich mich erinnere): (defun C:txtlies (/) (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (command "_UNDO" "_MARK") (setq as (ssx_fe)) (setq tt (ssget "x" as)) (setq txtdat "c:/temp/tmptxt.txt") (if (/= tt nil) (progn (repeat (sslength tt) (setq as (entget (ssname tt 0))) (setq txtis (cdr (assoc 1 as))) (setq dat (open txtdat "a")) ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Flaechen berechung
CADwiesel am 26.04.2006 um 07:44 Uhr (0)
so müßte s PassenCode:(defun c:area_feet(/ t_2 Ss) (setq Ss nil t_2 nil ) ;_ end of setq (setq Ss (ssget ((0 . "*POLYLINE")))) (setq md_zaehler 0) (setq gesamt 0) (if (not Ss) (princ (strcat "
Da waren keine Polylinien dabei.")) (progn (while (setq t_2 (ssname Ss 0)) (setq md_in (cdr (assoc 10 (entget t_2)))) (setq startp md_in) (command "_.area" "_o") (command t_2) (entmake (LIST (0 . "TEXT") (cons 8 (getvar "clayer")) (CONS 10 startp) (40 . 0.3 ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Objekthierarchie ausgeben
AutoArch am 10.11.2010 um 11:49 Uhr (0)
Guten Morgen,bin leider noch nicht wirklich weiter gekommen. Habe mit den Funktionen Blockdoc von Cadwiesel und der Funktion von Andreas aus diesem Beitrag experimentiert. Geht schon in die richtige Richtung, macht aber einiges doch anders als es für mich sinnvoll ist.Am einfachsten wäre es für mich, wenn ich per Schriftfeld in einem Attribut entweder den (Effective)Name des übergeordneten Objektsoder die Objekt-ID der Blockdefinition von der meine Blockreferenz, in der das besagte Attribut enthalten ist ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Entwicklung einer allgemeinen *Error* Funktion...
mapcar am 29.02.2004 um 00:40 Uhr (0)
Thomas schrub: Ich vermute mal, wer einen ErrorHandler-Wizard braucht, baut sich keinen Errorhandler in seinen Code ein..... Da bin ich mir nicht so sicher. Eine Million Lispler schreibt immer wieder (setq *error* old_error), ohne auch nur im Ansatz begriffen zu haben, warum... Ausserdem: Auch ich benutze Wizards - wir arbeiten nicht am C64. Wer versteht denn schon was von dem ganzen grünen Code in Visual C++ (= irgendwelche Wizard-Makros)? Wir benutzen auch die vla-curve-...-Funktionen, ohne den ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp/Script Anzeigenreihenfolge
TomiProg am 17.11.2004 um 15:12 Uhr (0)
Zitat: Original erstellt von CADwiesel: in diesem Lisp ist logischerweise genausokein Fehler drin, wie in deinem vorherigen Posting. gehe einfach mal dein Lisp im VL-Editor - im debuggmodus durch und überwache mal (getvar "cmdactive") irgendwo wird die Setvar bei einem Commandbefehl auf 1 stehen - vielleicht sogar schon bevor du zu dem draworder - command kommst. Aber der Fehler wird sicherlich bei irgendeinem command liegen, das nicht beendet wurde. Das bedeutet, sollange ich noch ein Command-Bef ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
mapcar am 09.08.2004 um 00:41 Uhr (0)
Schönes Beispiel für das, was ich immer wieder (und ob s jemand hören will oder nicht) hier erzähle. So sollte ein Interface aussehen: (defun c:machwas() (machwas(objekte-wählen)) (princ) ) (defun machwas(objekte / ) (...) ) Hätte sich Adesk an diese einfachen Grundregeln gehalten, wäre das jetzt kein Problem. Lokale Funktionen wie in burst.lsp sind ein nettes Feature - aber da hat man etwas übertrieben: Alles lokal zu (defun c:burst()...) ist zuviel des Guten, so bleibt nur noch ein Befehl ohne Para ...
|
| In das Form AutoLisp wechseln |
|
Inventor : erster scheuer Blick auf 10
Leo Laimer am 06.12.2004 um 08:09 Uhr (0)
Hallo Freunde, CADwiesel hat gerade ein Zitat im ACAD-Forum gepostet: What s New in Upcoming Autodesk Software During the keynote address of Autodesk Univeristy 2004 this week, Autodesk revealed publically to 4,400 attendees some of the features that might appear in future releases of AutoCAD and Inventor. For AutoCAD: * Dynamic blocks - these are much like the symbols found in the now-abandoned Actrix product. These blocks have shape-coded handles that indicate whether the block can be rotated in increme ...
|
| In das Form Inventor wechseln |
