|
Lisp : Polylinie mit Objektdaten in 3DPolylinie umwandeln
cadoc am 15.05.2019 um 12:10 Uhr (1)
Also erst mal vielen Dank aber bei mir tut sich da nichts. Das Lisp fragt nach dem Objekt.Klicke Polylinie an - wird aber nicht umgewandelt.Zum Daten dranghängen ist das erwähnte Lisp recht gut.;;;---------------------------------------------------------------------------;;;;;;; COPY_OD.LSP;;;;;; (C) Copyright 1998 by Autodesk, Inc.;;;;;; Permission to use, copy, modify, and distribute this software;;; for any purpose and without fee is hereby granted, provided;;; that the above copyright notice appe ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 19.02.2013 um 10:29 Uhr (0)
Danke Jörn, deine zwei Funktionen liefern mir einmal die Koordinatenunterschiede zw BlockPkt und AttribPkt und dann den Winkel.Ein bissel schwierig ist das nächste Problem auf das meine Frage galt, wenn die Blöcke gedreht sind können im (ich betone im Objekt UCS) die Koordinatenunterschiede und Winkel gleich sein. Also sollte die übertragung der AttribPosition auf die Zielblöcke gleich ausfallen. Tut es bei mir aber nicht.Ich weiss nur nicht wie ich das einbauen kann. Frage: Wie bekommt man die Koordinaten ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Einsatz
Brischke am 13.08.2004 um 11:17 Uhr (0)
Hallo Petra, Ergänzend zu CADmiums Posting: Code: (defun c:PIA (/ dwgpath dwg2path dwgverz) (setq dwgverz (cdr (reverse (f:str-teilen (setq dwgpath (getvar DWGPREFIX )) ) ) ) dwg2path (apply strcat (mapcar (lambda (S) (strcat S ) ) (reverse (if ( (length dwgverz) 2) (list (car dwgverz) (cadr dwgverz)) dwgverz ) ) ) ) ) (alert (strcat Ganzes Verzeichnis: dwgpath
letzen 2 Verzeichnisse: dwg2 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Funktion Zylinderkanten Abrunden
cadffm am 15.06.2016 um 10:38 Uhr (1)
Deine Zeilen (aus dem Netz - sowas lasse ich nicht gelten, es ist dein Copy&Paste-Werk ) solltest du neben einem leeren Blatt Papier legen (Notepad.exe ),dann das ganze noch mal NEU erstellen.Command zum erstellen der Zylinder nicht alle "sauber", Command zu Filletrad nicht sauber,merkwürdige Initget-Anweisungen und mehrfach unnötiges speichern des letzten "Osmode"-Wertes,bis hin zu deinem eigentlichen Grund des Themenstarts..Dein erster Abrunden-Vorgang soll wohl gggganz die obere Fläche des obersten Zy ...
|
| In das Form Lisp wechseln |
|
AutoLisp : BKS - Geometrie - AutoLisp
cadffm am 07.01.2003 um 11:36 Uhr (0)
Tach´chen - @ALL [cross-posting / spotlight] Meine 2 Lernstunde hat begonnen, nur der Lehrer fehlt aber ihr könnt helfen (100%ig) : Ich lasse also eine Geometrie (lwpoly´s) erzeugen. Die ganzen Koordinaten werden aus 2 Punkten (getpoint) errechnet. Das ganze funtioniert sogar (oh Wunder) im WKS. Aufgabenstellung: Ich muß eine 2.Variante erzeugen können, und zwar soll die Geometrie auch 90° gedreht erzeugt werden können- nun habe ich überlegt wie es am besten zu lösen ist. Version A: Eine 2.Be ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Drehe Block und verschiebe Attribut
spider_dd am 27.06.2012 um 16:55 Uhr (0)
Zitat:Original erstellt von cadplayer:Es kam aber zu einem guten Nebeneffekt, dass ich den Block am Bildschirm drehen kann und er solange gedreht wird bis ich einen Punkt anklicke. Vorher warst Du aber mit einem Fehler aus dem Lisp-Prog rausgeflogen. Zumindest bei mir kommt eine entsprechende Fehlermelung.Code:Befehl: RBSelect block! _ucsAktueller BKS-Name: *WELT*Ursprung des neuen BKS angeben oder [FLäche/bENannt/Objekt/VOrher/ANsicht/Welt/X/Y/Z/ZAchse] Welt: _objectObjekt für BKS-Ausrichtung wählen:Befeh ...
|
| In das Form Lisp wechseln |
|
Lisp : layer invertieren
CADmium am 21.03.2007 um 22:14 Uhr (0)
Eine gute Einführung bietet das demnächst auch hoffentlich als Buch erscheinende Tutorial von Mapcar und ein Lisp-Handbuch für R14 ... nicht zu vergessen die Onlinehilfe (aber da muß man ja erst wissen wonach man sucht .Wenn du im englischen Fit bist kann ich noch AFRALISP empfehlen.Aber noch mal zu deinem Bsp:(defun c:swi (/ lay layli) ... lay layli sind lokale Variablen (while (setq lay (tblnext "LAYER" (not lay))) ...solange mit der Funktion tblnext noch ein Layer in der Layertabelle gefunden wird, spe ...
|
| In das Form Lisp wechseln |
|
Lisp : script zur Bereinigung von Export DXF/DWG
Kodat am 18.10.2011 um 12:15 Uhr (0)
Hallo. Erstmal Danke.Da ist ja noch einiges zu klären.Dieses Lisp oder script soll einfach ausführbar sein da mehrere nicht so versierte User das erledigen sollen.Eigentlich sollte Die exportierte Datei von Revit als DWG korrekt sein.Es kommt noch das Problem hinzu das in Revit die Bemassung als Architekturbemassung erstellt wird , wo AC selbst ja ein Problem hat.Wir lösen also die komplette DWG auf um die gleich Optik wie im PDF zu erhalten. Die Externen lege auch unsere Daten zu Grunde um Konstruktionspl ...
|
| In das Form Lisp wechseln |
 |
Lisp : Setvar und acaddoc
nebuCADnezzar am 30.08.2023 um 14:37 Uhr (15)
Hallo zusammenIch wollte ein paar Grundeinstellungen "erzwingen" und hab n paar setvars in n lips geschrieben mit dem Wunsch dass die bei jedem Zeichnungsöffnen ausgeführt werden.Erst hatt ich das LISP einfach in meinem cuix angehängt, im glauben dass die ja geladen und abgerbeitet wird... Geladen wohl schon aber nicht ausgeführt.Naja nich so schlimm, umbenennen das Ding in acaddoc.lsp in nenm sicheren Ordner ist se bereits, sollte mit jedem Zeichnungs öffnen nun abgearbetet werden (zumindest baehuaptet da ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Benutzerspezifische Papiergröße
mkl-cad am 11.06.2004 um 08:35 Uhr (0)
Hallo Lisp-Fans, bin gerade dabei verschiedene Punkte zusammen zu tragen um einen eigenen Plotbefehl zu schreiben. Dabei ist mir folgendes eingefallen: Bei Plottern gibt es ja eine Benutzerspezifische Blattgröße. Die ist ja auch sinnvoll einsetzbar wenn man auf Rollen plotten möchte. Wir haben hier im Büro Blattgößen von 3 und 5 m länge. Nun wäre es schön wenn in meinem neuen Plottbefehl der User kein Papierformat angeben braucht sondern nur ob eine schmale oder eine breite Rolle eingelegt ist. Die Blattgr ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Laufenden AutoCAD-Befehl in Lisp beenden.
fred_tomke am 12.03.2007 um 10:49 Uhr (0)
Hi cadmium,nein, nicht ganz.(while (/=(getvar "cmdactive")0)(command pause))kenne ich. Diese Variante beendet das Programm, indem alle Eingaben mit Eingabe bestätigt werden. Und das ist das, was ich nicht unbedingt will.Konstruierter Fall:(vl-cmdf "_solidedit" "_face" "_color")der User pickt eine Fläche, nimmt dann die Option alle, stellt fest dass er doch nicht will und drückt ESC. Das fange ich ja ab bei getpoint. Mache ich dann wie von Dir beschrieben weiter, wird den gewählten Flächen eine andere Farbe ...
|
| In das Form Lisp wechseln |
|
Lisp : if (will nicht)
Brischke am 03.04.2014 um 18:29 Uhr (1)
Zitat:Original erstellt von nebuCADnezzar:... Ich kann nicht so richtig debuggen, ... Dann nimm die VLIDE - da kannst du debuggen (ich gehe davon aus, dass du nicht mit dem VL-Editor arbeitest - das solltest du dir angewöhnen!)Zitat:Original erstellt von nebuCADnezzar:... aber WIN2 wird nicht "definiert" oder errechnet. Die blöde Schleife scheint immer noch nicht zu funktionieren und ich seh den Grund immer noch nicht... Da musst du debuggen und schauen, welche Werte die einzelnen Variablen haben, dann wir ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemaßung (Überschreibung)
Proxy am 03.03.2004 um 07:37 Uhr (0)
Hallo, hat da ein Webfund und wollte diesen etwas meinen Wünschen entsprechend anpassen. Code: ; Dim2asoc.Lsp - This routine changes all ASSOCIATIVE dimensions ; that have had their values changed by the user ; and resets them all to their default values. ; Warning - works on all layers, whether frozen or not. ; (defun c:dim2asoc( / ss e ent n spin c ) (defun spin( c ) (cond ((= c | ) / ) ((= c / ) - ) ((= c - ) ) ((= c ) | ) ) ...
|
| In das Form AutoLisp wechseln |
