|
Lisp : Gruppen auflösen
Dorfy am 10.08.2006 um 08:37 Uhr (0)
Hallo JörnErstmal Danke Danke Danke ... das ist es ... super.Den eigebauten Fehler habe ich auch gefunden gehabt.Gestern das erste mal den Visual Lisp Editor in AutoCadentdeckt und benutzt ... super Sache ... dieser gab mir dannauch den Tip bzw. die Info mit Get-Groupname für Argument eineObjektliste und nicht Objektname ...Dennoch DankeNun, für verschachtelte Gruppen habe ich die Funktion "xgg" (siehe Anhang) ... das Bastelprojekt sollte noch für mehrereverschachtelte Gruppen in Anlehnung an "xgg" weiterg ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Attribute in Blöcken automatisch nummerieren (+1)
Dorfy am 23.08.2011 um 16:42 Uhr (0)
hab ich doch geschrieben(setq num (1+ num)) ;vor der Schleife 1 abziehenweil wir innerhalb einer Schleife hochzählen 1+somit wird auch der Startwert mit 1 beaufschlagt, deshalb im Vorfeld 1 abziehenoder anders proggen Edit: (setq num (1+ num)) hinter der command-Zeile ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 23. Aug. 2011 editiert.][Diese Nachricht ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Block um Einfügepunkt drehen
Dorfy am 29.04.2010 um 06:26 Uhr (0)
Zitat:Original erstellt von Bauvermesser:... bei mir klapt es, es kommt eben nur nach meiner drinnrum fummelei am Schluss eine Fehlermeldung, aber die ignoriere ich einfach...mit allen Elementen im Auswahlsatz? probier mal mit den Zeilen(while ( i n) ;solange wie Zaehler max (setq nam (ssname aus i)) ;jedem i aus Auswahl einen Namen (setq ins (cdr (assoc 10 (entget nam)))) (command "drehen" nam "" ins) (while (/=(getvar "CMDACTIVE")0)(command pause)) (setq i(1+ i)) ) ;whileund ... ach egal ----------- ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Objektfang für gesperrte Layer
Dorfy am 22.06.2010 um 15:09 Uhr (0)
Zitat:Original erstellt von CADJojo:Achtung: Es geht mir um den [b]Objektfang ![/B]geht nicht...muss halt ein workaround her ...Layer ausschalten ... oder Edit: Mit einer Programmierung prüfen ob in der direkten „Nähe“ des gefangenen Punktes alle Objekte auf gesperrten Layern liegen. Aber der Objektfang bleibt nur die Punktübergabe kann unterdrückt werden, ggf. mit Zwischenmeldung.------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : vla-explode: MTexte?
Dorfy am 18.05.2011 um 15:59 Uhr (0)
Block oder Blockreferenz...Objekt wählen: ; IAcadBlockReference: AutoCAD Block Reference-Schnittstelle (Blockreferenz); Eigenschaftswerte:; Application (RO) = ...; InsUnits (RO) = "Millimeter"; InsUnitsFactor (RO) = 1.0; IsDynamicBlock (RO) = 0...; Unterstützte Methoden:; ArrayPolar (3); ArrayRectangular (6); ConvertToAnonymousBlock (); ConvertToStaticBlock (1); Copy (); Delete (); Explode (); GetAttributes (); GetBoundingBox (2); GetConstantAttributes (); GetDynamicBlockProperties (); GetE ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: MTexte?
Dorfy am 18.05.2011 um 15:59 Uhr (0)
Block oder Blockreferenz...Objekt wählen: ; IAcadBlockReference: AutoCAD Block Reference-Schnittstelle (Blockreferenz); Eigenschaftswerte:; Application (RO) = ...; InsUnits (RO) = "Millimeter"; InsUnitsFactor (RO) = 1.0; IsDynamicBlock (RO) = 0...; Unterstützte Methoden:; ArrayPolar (3); ArrayRectangular (6); ConvertToAnonymousBlock (); ConvertToStaticBlock (1); Copy (); Delete (); Explode (); GetAttributes (); GetBoundingBox (2); GetConstantAttributes (); GetDynamicBlockProperties (); GetE ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Linienlängen addieren ?
Dorfy am 03.08.2011 um 09:35 Uhr (0)
GeomProps nette arx-Datei, zeigt noch einiges mehr ansiehe auch hier vierter Beitrag - Erklärung in englischaber ob sie unter 2011 und höher läuft kann ich nicht sagen.------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 03. Aug. 2011 editiert.][Diese Nachricht wurde von Dorfy am 03. Aug. 2011 editiert.][Diese Nachricht wurde von Dorfy am 03. Aug. 2011 editiert.]
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Texthintergrund
Dorfy am 11.01.2011 um 11:48 Uhr (0)
hi,auf die Schnelle im Überfliegen...du stopfst alle Objekte in die Schleife... haben die denn die gewünschte Eigenschaft?vllt so --Code:(repeat (sslength ss) (setq objekt (ssname ss zähler) zähler (1+ zähler) vlobj (vlax-ename-vla-object objekt)) (if (vlax-property-available-p vlobj "CustomScale") (vla-put-CustomScale vlobj AF-Faktor)) ) ;schleife Endeungetestet ggf liegt af-faktor im falschen Format vor - hab ich aber nicht nachvollzogen------------------Mfg Heiko Elefantenjagd in Afrika ". ...
|
| In das Form Lisp wechseln |
|
Lisp : leerstellen im shell befehl
Dorfy am 08.06.2011 um 13:25 Uhr (0)
Zitat:Original erstellt von chris888:...ich will "getvar" "savename" auslesen und anschließen mir eine "shell" schreiben der mir den ordner öffnet inder die .dwg datei gespeichert ist....mfg chirs???(startapp "Explorer"(getvar "DWGPREFIX"))ist sicher NICHT das was du willst, wäre zu einfach...?------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 08. Jun. 2011 ed ...
|
| In das Form Lisp wechseln |
|
Lisp : Skalieren mit VLA ???
Dorfy am 10.05.2011 um 08:08 Uhr (0)
ScaleEntity MethodScales an object equally in the X, Y, and Z directions???edit1:Code:(vla-ScaleEntity(vlax-ename-vla-object (car (entsel))) (vlax-3d-point (0 0 0)) 3.0)edit2:bei einer linie funzt es(vlax-method-applicable-p vlaobj ScaleEntity) also testen ob es geht ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am 10. Mai. 2011 editiert.][Diese Nachric ...
|
| In das Form Lisp wechseln |
|
Lisp : warum gehts nicht ?? immer probleme mit if
Dorfy am 06.07.2011 um 08:59 Uhr (0)
Zitat:Original erstellt von chris888:...Bleibt nur noch die frage von oben:Kann man eine Variable in einer Zeichnung speichern?...häng sie als xdata an ein von dir definiertes Objektzum Thema xdata solltest du genug im Forum finden Edit: dictionary wäre auch noch möglich... viel spaß beim variablen speichern ------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."[Diese Nachricht wurde von Dorfy am ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Raster
Dorfy am 04.05.2010 um 14:22 Uhr (0)
Zitat:Original erstellt von xem: manchmal sind es die einfach Dinge ...ja ;) kannst ja mal folgende Zeilen einbauen - ungetestetCode:(trans(list (+ (car LOWERLEFT) (/ COLSPACING 2.0)) (+ (cadr LOWERLEFT) (/ ROWSPACING 2.0)) 0 ) 1 0) Edit: hier einbauenCode:...(command "_copy" ;_ Ausführung des Kopieren-Befehls mit selektiertem RasterobjektSS""(cdr CORNER3)(list (+ (car LOWERLEFT) (/ COLSPACING 2.0)) (+ (cadr LOWERLEFT) (/ ROWSPACING 2.0)) 0))...und ... egal------------------Mfg Heiko Elefanten ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : grread / grdraw
Dorfy am 31.07.2009 um 09:47 Uhr (0)
Zitat:Original erstellt von Steff179:... nur das wenn ich Pan dazwischen verwende (mittlere Maustaste) dann zeichnet es immer das letzte neu wenn ich mal still halte (auf die letzte Cursor Position),was schräg aussieht ...Sehr schwer zu verstehen was du da willst Was möchtest du denn genau?! Die Linie soll von Punkt zu Punkt im BKS gehen und sich bei pan nicht verändern?" grdraw - Draws a vector between two points, in the current viewport"------------------Mfg HeikoElefantenjagd in Afrika "... LISP-Progr ...
|
| In das Form Lisp wechseln |
