|
Rund um Autocad : Alle Objekte innerhalb eines Polygons waehlen ??
Claudio am 16.04.2004 um 18:04 Uhr (0)
Hallo Grumbleman! In der Hoffnung, dass Du LISP-bewandert bist möchte Dir jetzt mal nur auf Deine ERSTE Frage antworten - Wie selektiert man Textobjekte innerhalb einer umrandenden Polylinie: ;;;LW-POLYLINIE auswählen, Text innerhalb wird ausgewählt ;;;Achtung:keine Polylinien mit Überkreuzungen !! (defun c:PW(/ Plist ELE AWA1) ;;Programmaufruf mit PW (setq ELE (entget (car (entsel
POLYLINIE WÄHLEN : )))) ;;Umrandung (if (= (cdr (asso ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : wblock
Bernhard GSD am 25.08.2005 um 12:53 Uhr (0)
Liegt eventuell an der AuswahlmethodeDu solltest Kreuzen (über die ganze Zeichung) statt ALLE verwenden.ps.: Das folgende Lisp spürt Blöcke mit gesuchten Layern auf:(DEFUN c:laysuch () (SETQ string (STRCASE (GETSTRING "Layername : ")) block T block (TBLNEXT "BLOCK" T) elem (CDR (ASSOC -2 block)) name (CDR (ASSOC 2 block)) ) (PRINC "searching...") (IF (WCMATCH (CDR (ASSOC 8 (ENTGET elem))) string) (PROGN (SETQ elem nil) (PRINC (STRCAT " " name "
"))) ) (WHILE elem (SETQ elem (ENTNEXT elem)) (IF elem ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Layoutwechsel per Script
Plotter am 01.04.2021 um 11:05 Uhr (1)
Danke für die Erläuterungen!So ähnlich hatte ich mir es auch schon fast gedacht.Allerdings bricht die Frunktion immer ab.Sieht für mich nach dem letzten ZOOM Befehl aus.In der Befehlszeile klappt es mit G und mit ALLE, in dem Lisp nicht!?Sieht im F2 Textfenster so aus:Code:Befehl: (foreach n (layoutlist) (setvar "ctab" n) (command "_zoom" "_W" "-50,-50" "650,400" "_ERASE" "_W" "470,25" "570,290" "_ZOOM" "ALLE"))_zoomFensterecke angeben, Skalierfaktor eingeben (nX oder nXP) oder[Alles/Mitte/Dynamisch/Grenze ...
|
| In das Form Rund um AutoCAD wechseln |
|
ADT Architectural Desktop : TFK/Fassade
flaschenpost am 14.03.2005 um 12:22 Uhr (0)
Hallo Herbert, ich dachte erst, die Tür wird fest und die Restfelder bleiben variabel über definierte Länge bzw. Anzahl (Heiko). Die Aufgabe hieße ja Alles gleichmäßig teilen, aber ein Teil anders - und das verträgt sich vermutlich nicht mit der Logik der ADT-Fassade. Der Bezug ist dummerweise immer nur Raster, da spielen die Elementbreiten keine Rolle. Wenn man z.B. einen zweiten Pfosten macht und diesem eine Breite von 1m gibt, dann kann man diesem Pfosten auch einen festen Index zuweisen, wo er stehe ...
|
| In das Form ADT Architectural Desktop wechseln |
|
CoCreate Modeling : Änderungen am LISP am_direction
netvista am 19.03.2009 um 15:29 Uhr (0)
Zitat:Original erstellt von der_Wolfgang:Aber sage mal.. Auch damals gab es schon General Views Also Ansichten aus beliebiger Richtung. Da haette man doch keine verhinderte Schnitz-Ansicht nehmen muessen?Auszug aus der DIN 6 T1:Muss von der üblichen Darstellung (Projektionsmethode 1 oder 3) abgewichen werden, so ist die Pfeilmethode anzuwenden.Pfeilmethode:Eine zugehörige Ansicht wird in der durch den Pfeil gekennzeichneten Richtung und durch einen Großbuchstaben dargestellt.Da CCM keine Möglichkeit biet ...
|
| In das Form CoCreate Modeling wechseln |
|
Rund um Autocad : Expresstools
Angelika Preiwuss am 12.10.2001 um 08:34 Uhr (0)
Hallo Kurt Herbert Express Tools oder früher (bei AutoCAD 12, 13 ,14) hießen die auch mal Bonus Tools sind nützliche zusätzliche Befehle für AutoCAD (LISP Routinen), die findige Leute geschrieben haben und Autodesk dann zeitweise entweder auf CD mitgeliefert hat oder die man auf point a runterladen konnte. Normalerweise waren die aber nur auf der reinen AutoCAD 2000 CD (wurde mitinstalliert, wenn man vollständige Installation anwählt) auf der 2000i schon nicht mehr und nicht auf den Mechanical CDs. Es ist ...
|
| In das Form Rund um Autocad wechseln |
|
OneSpace Modeling : Ausbruch
RainerH am 24.02.2004 um 14:14 Uhr (0)
Hallo Walter, erstmal DANKE fuer Deinen Vorschlag !!! Bei Deinem LISP wird das gewuenschte Teil zusatzlich zu den schon vorhandenen mitangezeigt. Ich wollte es so haben, dass eben nur mehr dieses im ZusatzDF angezeigt wird. Mit Hilfe Deines Vorschlages habe ich nun das ganze so abaendern koennen, dass nur mehr das Besitzer-Teil incl. der Ausbruchs-AE im aktuellen Fenster ( ZusatzDF ) zurueckbleibt. Sieht nun so aus: (progn (let (ret blatt anslist ans) (setf ret nil) (setf blatt (oli::sd-am-inq- ...
|
| In das Form OneSpace Modeling wechseln |
|
AutoLisp : Block -> Ursprung -> in Auswahlsatz.... aber wie?!
cadffm am 17.12.2002 um 08:06 Uhr (0)
( @Holger-- bitte korregieren ) Moin, also wenn du den 3-Zeiler gerade mal eingetippt hättest zum testen, so würdest du sehen das es SO nicht klappt. (setq aws (entlast)) _explode !aws _copy !aws == 0 gefunden... was ich daher ableite, das dein zunächst gefundenes Objekt ( die Blockreferenz ) ja nicht mehr existiert ! funktionieren würde es allerdings mit (ssget "_p"); "_p"=vorher dabei ist mir eines allerdings etwas rätselhaft: Wenn du mit (entlast) an den gewünschten Block kommst, und du ihn da ...
|
| In das Form AutoLisp wechseln |
|
Mechanical Desktop : Ansicht exportieren
MichaHo am 20.06.2001 um 16:40 Uhr (0)
Hallo MDT -Anwender, folgende Situation: Ich habe mehrere 3D-Zeichnungen, in denen sich auch die entsprechende 2D-Ableitung befindet. Um das ganze zu konvertieren (nach ME10..) muss die Ableitung aber im Modell-Bereich sein. Da ich nicht die Zeit habe, alle Zeichnungen manuell zu laden und die Ansichten zu exportieren suche ich eine Lisp-Routine oder etwas ähnliches in VBA, mit dessen Hilfe ich das ganze Automatisieren kann. Folgende Abläufe müssten da drin sein: Dateiname aus Liste lesen Datei öffnen wech ...
|
| In das Form Mechanical Desktop wechseln |
|
Rund um AutoCAD : Teilung eines Grundstücks / einer Fläche
Proxy am 19.08.2004 um 09:08 Uhr (1)
@ DIG15: das ist klar.normalerweise müsste die gesamtfläche erst ermittelt werden mit _area _object dieser wert durch X geteilt werden und dann kommt die lustige Aufgabe die vorhandene Fläche "human" aufzuteilen. Man könnte sie ja mit _offset so machen dass dsie dann bei dem n-fachen (n1) entsprechend stoppt was eher einer Mohnschnecke ähnlich wäre, jedoch keinerlei Bedeutung für die Aufgabenstellung hätte. Eigentlich müsste dann der Zeichner eine Seite als Referenz bestimmen die mit einer anderen berechne ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
red-hot-dirk am 03.02.2014 um 21:49 Uhr (1)
Hallo Leute, danke fuer die Loesung mit dem (cons 40 ah), hat funktiniert. Ich habe nicht mit so einer tatkraeftigen Unterstuetzung gerechnet, deshalb wollte ich das hier nicht zu kompliziert gestalten und dachte ich versuche Schritt fuer Schritt mit meinem bischen Lisp Wissen zu einem Ergebniss zu kommen. Das Ihr hier alle richtige *****s in Lisp seid, wusste ich nicht. Ich hoffe das Entschuldigt das ich nicht von Anfang an das ganze Problem in jedem Detail beschrieben habe.Ich versuche jetzt mal das ganz ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern hochzählen
Dober Heinz am 19.10.2005 um 15:17 Uhr (0)
Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 copytext) copytext)) (entmod neuedxf) )(def ...
|
| In das Form AutoLisp wechseln |
