|
Rund um AutoCAD : Bereinigen als LISP oder Makro Frage
BaCAD am 11.07.2013 um 17:48 Uhr (0)
HiIch habe bei uns im Büro schon einige Makros mit Hilfe dieses Forums machen könnte. Auch konnte ich hier und allgemein im Netz schon viele nützliche LISP-Befehle finden, die ich mit anwählbaren Buttons ins AutoCAD integriert habe.Jetzt kommt es hier immer wieder vor, dass Ingenieure gewisse Pläne (oft auch fremde Pläne) in ihr Statik-Programm einlesen müssen. Dabei ist es wichtig, dass z. B. keine Blöcke mehr in den Zeichnungen sind, Bemassungen und wohl auch die meisten Texte sind auch nicht mehr wichti ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : mittels Lisp erzeugte Gruppe erscheint nicht im Gruppenmanager
Dorfy am 19.07.2007 um 09:04 Uhr (0)
Hallo,(defun C:MG (/ GNAME SGET) (TOGGLE-GROUPSELECT t) ;_ Sicherstellen, dass Gruppenwahl möglich ist (princ "
Zu gruppierende Objekte wählen:") (setq SGET (ssget) GNAME (menucmd "M=$(edtime,$(getvar,date),DD-MONTH-YYYY-HH-MM-SS)" ;_ erzeuge Timestamp-Gruppen-Namen ) ;_ end menucmd ) ;_ end setq (if SGET (progn (command "_.-group" "_c" GNAME "Automatisch erstellte Gruppe" SGET "" ) ;_ end of command ;(sssetfirst NIL SGET);hervorheben (princ "Gruppe ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Lisp/Script Anzeigenreihenfolge
TomiProg am 16.11.2004 um 11:39 Uhr (0)
Hallo Lispler. Ich habe ein Problem mit dem "_DRAWORDER"-Command. Wenn ich den Befehl (command "_draworder" SS1 "" "o") ausführen lasse, wobei SS1 ein Auswahlsatz ist, bekomme ich nur Schrott zurück. AutoLISP setzt diesen Befehl nicht um. In der Befehlszeile bleibt das Programm stehen mit folgender Anzeige: Auswahlsatz: xy Ich kann nur noch Return oder ESC drücken und als Antwort auf Return bekomme ich als Meldung: Unbekannter Befehl "TEST". Drücken Sie F1-Taste ... Unbekannter Befehl "TEST". Drücken S ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Schnittweg berechnen?
CAD-Huebner am 11.12.2008 um 23:25 Uhr (0)
Willkommen bei CAD.DE und AUGCE! Vier wichtige Links für den problemlosen Einstieg:Richtig Fragen - Nettiquette - Suchfunktion - System-InfoDer Befehl heißt DATENEXTRAKT und ist seit Version 2008 in AutoCAD einthalten.Natürlich gab es auch zuvor schon (Lisp)-Routinen und Makros zum Summieren von Linienlängen.Die Suche bei CAD.de bringt dann einige weiterführende Tipps, hier mal eine kleine Auswahl: http://ww3.cad.de/foren/ubb/Forum54/HTML/019492.shtml#000001 http://ww3.cad.de/foren/ubb/Forum54/HTML/02 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : MTEXT mit entmake setzen
romi1 am 27.03.2010 um 14:07 Uhr (0)
Hallo!Vielen Dank für den Tipp! Hab das Lisp nun also folgendermaßen umgebaut, und es scheint zu funktionieren:Code:(setq li1 (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (list 10 (car einsetzp) (cadr einsetzp)) (cons 40 2.5) (cons 41 250) (cons 50 0.0) ) ) (if ( (strlen mtext-zeile) 250) (setq li2 (list (cons 1 mtext-zeile))) (progn (setq li2 ()) (while ( (strlen mtext-zeile) 25 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : grread, grdraw?
chrimo am 26.05.2004 um 14:50 Uhr (0)
Hallo Wenn man eine Linie zeichnet, spannt sich ja für den nach-Punkt ein Gummiband vom vorherigen Punkt zum Cursor, bzw. kann man ja auch z.B. bei getpoint einen Startpunkt angeben. Ich möchte nun, dass paralell zum Gummiband eine 2. Linie angezeigt wird. (Hintergrund: Habe ein Lisp für Wände, wo man einen Linienzug zeichnet und jeweils eine paralelle Linie dazu gezeichnet wird. Möchte, dass angezeigt wird, auf welcher Seite die paralelle Linie kommen wird.) Habs bisher vergeblich mit grdraw, grread v ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Lisp zur Streckenaufteilung und -ausmittlung
Schachinger am 02.05.2003 um 17:25 Uhr (0)
guckst du hier: (defun c:mittlung () (setq obj (ssget)) (setq Basispunkt (getpoint "Basispunkt: ")) (setq Teilung (getreal "
Teilung: ")) (setq Anzahl (getint "Anzahl: ")) (setq Mittelpunkt (getpoint "Mittelpunkt der Anordnung: ")) (setq Drehwinkel (getangle Mittelpunkt "Drehwinkel: ")) (setq x (+ Anzahl 0.5)) (setq ss (ssadd)) (repeat Anzahl (setq x (- x 1.0)) (setq e1 (entlast)) (command "_copy" obj "" Basispunkt (list (+ (- (car Mittelpunkt) (/ (* Anzahl Teilung) 2.0)) (* x ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Geländemodell DGM Höhenpunkte
mapcar am 18.11.2004 um 18:58 Uhr (0)
flaschenpost schrieb: Diese Triangel-Netze sind eigentlich unästhetisch Interessante Theorie;-) Das Programm von Piazza erzeugt aber nun mal triangulierte Daten. Das Problem bei den viereckigen Dingern ist, dass die Flächen nicht planar sind - ausser wenn das ganze Mesh völlig flach ist wie ein Teich bei Windstille. Und dann braucht man es ja eigentlich gar nicht, oder? Das, was Acad als 3dNetz anbietet, ist nur als Drahtmodell tauglich. Rendern lässt sich s nicht. Was ist ein Massenelement im ADT? Gruß, ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : alle layer auf einen Kopieren
CADmium am 13.03.2008 um 21:14 Uhr (0)
(setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN)))) kannst du auskommentieren und dann die Zeilen wo Layerdaten verwendet werden, also bei der Linienstärke ebenfallsn Semikolon vor.P.S. ich finds nicht so toll, wenn einfach nur kopiert wird, ohne sich die Mühe zu machen , die Sachen wenigstens im Ansatz zu verstehen oder zumindest das zu wollen, aber .. nun ja ..stellt euch mal vor , hier postet einer n Lisp, das alle eure dwgs löscht.. (ich nicht )das brauch noch nicht mal ne kompilierte vlx ...
|
| In das Form Rund um AutoCAD wechseln |
|
Workmanager : ModelManager: Nummern - Generator für Instanzname
krambambulin am 08.04.2004 um 11:10 Uhr (0)
Grüezi! Ich habe die Aufgabe, ModelManager bei uns einzuführen. Die Installation von ORACLE und ModelManager mit Hilfe der Anleitung in eSupportMarketplace und dem Telefon-Support von CoCreate ging hervorragend - läuft einwandfrei. Nun meine Anpassung/Frage: Im (Feinstanz-)Werkzeugbau hat jedes Werkzeug einen Stempel . Da die Datenbank jedoch einen einmaligen (Instanz-)Namen verlangt, soll dieser nun mit einer Laufnummer eindeutig benennt werden. Mich in Lisp einzuarbeiten, trau ich mir zu. - Aber wo soll ...
|
| In das Form Workmanager wechseln |
|
OneSpace Modeling : Eckfreisparung über Makro erstellen
Walter Geppert am 06.03.2006 um 19:24 Uhr (0)
Zitat:Original erstellt von netvista:...Ist es mit einem kleinen Makro möglich Eckfreisparungen (wie in den Anhängen zu sehen) zu erstellen?Ja Scherz beiseite, so was lässt sich schon realisieren, klein wird das Makro aber wohl nicht werden, speziell, wenn die Freisparung wie im Massbild gefordert mit Variable1 und Variable2 auch asymmetrisch sein soll. Man müsste auch absichern, dass die gewählten Kanten gerade sind, nur zwei angrenzende, ebene Flächen haben usw. und so toll wie die Fasen- oder Verrundu ...
|
| In das Form OneSpace Modeling wechseln |
|
PTC Creo Elements/Direct Modeling : Raduis oder Durchmesser
Walter Geppert am 19.11.2020 um 16:36 Uhr (10)
Wie wärs mit ein wenig Kopfrechnen Zu meiner Schulzeit (frühe 70er) sind wir gestanden, wenn der Mathelehrer reinkam, dann gabs das grosse Einmaleins und wer eine Frage wusste durfte sich setzen (PS: hat nicht die ganze Stunde gebraucht wis alle durch waren )Mathematische Standard-Tools: Logarithmentafeln und Rechenschieber.Mit dem ersten Tascherechner der Klasse auf TI30-Niveau war ich "Walter der Elektronenrächer". Bei Klassenarbeiten und beim Abi war sowas dann sowieso nicht erlaubt.Im Maschinenbau-Ko ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
AutoLisp : Trassen zeichnen
CADuceus am 20.01.2005 um 15:19 Uhr (0)
Nun, CADmium, ich bin Anfänger und ich gebe zu, dass ich eine fertige Lösung nicht ablehnen würde und schliesse nicht aus, dieses Forum durch Zweckentfremdung zu missbrauchen. Um nicht gleich gesteinigt zu werden sag ichs mal so: Ich habe durchaus Interesse daran es selber zu programmieren, habe es aber noch nie hingekriegt (bis auf den gpath ). Sicher möchte ich am liebsten jede Zeile zumindest verstehen. Wie tief ich mich schlussendlich mit der Materie LISP auseinandersetze hängt auch ein Bisschen davon ...
|
| In das Form AutoLisp wechseln |
