|
Rund um AutoCAD : Suche Lisp oder Makro: Objekte auf Layer 0 und vonLayer / vonBlock
SNOOP_69 am 24.03.2014 um 17:31 Uhr (1)
Hallo Jürgen,genau darum geht es. Ich möchte Objekte auswählen die ich zu einem Block zusammenfassen möchte und dann eben auf einen Klick die kompletten Eigenschaften "Blocktauglich" machen...also folgendes:- Layer ändern auf: 0- Linientyp: vonLayer- Linienfarbe: vonLayer- Linienstärke: vonLayer- LTFaktor: 1ein 2. Tool sollte exakt das gleiche machen...nur eben mit vonBlock Einstellungen!
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Lisp-Prog. ändern und habe keine Ahnung!
archtools am 07.01.2007 um 12:46 Uhr (0)
Zitat:Original erstellt von Burschii:Gewußt wie!!! Klappt Prima.Danke vielmals.Gruß, BurschiiIch weiss, ich mach mich damit immer wieder unbeliebt, aber es ist nun mal ein Fakt: dass Du fremden Quellcode hier veröffentlichst, ohne auf eine ausdrückliche Erlaubnis des Urhebers zu verweisen, kann einerseits als Straftat verfolgt werden und kann andererseits recht drastische zivilrechtliche Folgen für Dich haben, wenn Du so eine Erlaubnis tatsächlich nicht hast.In Zeiten, in denen große Firmen ein gut funkti ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Meldung: Kann nicht zu LISP zurückkehren u.a.
Musicus am 12.03.2008 um 14:26 Uhr (0)
So, funktioniert jetzt bestens!Die Zeichenfolge (_ ) kommt zwar immernoch zwischendurch, scheint aber nicht zu stören, wenn noch was hinterher kommt, nur am Ende muss ich halt mit Enter bestätigen, kann ich mit leben.Jetzt hab ich eine Routine, die mir alle Soll-Layer anlegt, alle Elemente von den Ist-Layern (die noch komplett definiert werden müssen, bisher ist nur ne Auswahl berücksichtigt) auf die Soll-Layer verschiebt, alle Farben und Linientypen auf Vonlayer legt. Läuft in einem Rutsch durch.Jetzt sin ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Lisp/externe Daten einlesen
exilgreis1 am 24.06.2003 um 17:43 Uhr (0)
Hallo Leute! Erst mal danke für eure Antworten. Da ich erst mal Cad-Programme ausloten soll, in denen die Möglichkeit besteht die schon erwähnten Aufgaben zu erfüllen, freut es mich zu hören,daß es möglich wäre. Hallo Jochen Ich habe mir dein Beispielprogramm Bewegungssimulation angesehen. Das Programm bricht jedoch, nachdem der zweite Zylinder gezeichnet ist mit folgender Fehlermeldung ab. . . . . Current ucs name: *NO NAME* Enter an option [New/Move/orthoGraphic/Prev/Restore/Save/Del/Apply/?/World] Wo ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Blöcke mit Lisp auf Layer 0 und Farbe von Block setzen
cadffm am 20.09.2016 um 09:01 Uhr (1)
Dann schau in der Hilfe nahc welchen DXF-Code es betrifft (oder durchwühle 20 Threads zu NUKE),dann kommentierst du den Part aus im Programm.DXF Linientyp: http://help.autodesk.com/view/ACD/2017/DEU/?guid=GUID-3F0380A5-1C15-464D-BC66-2C5F094BCFB9 Auskommentieren geht mit ; (davor / ganmze Zeile = ; am Zeilenanfang)vorher so in der Art:(wenn Linientyp gefunden (dann ändere diesen))hinterher so;(wenn Linientyp gefunden; (dann ändere diesen) .Ach jetzt sehe ich das oben ja der Code gepostet wurde.. aber ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Achtung Fehler im LISP steel.lsp
mapcar am 25.06.2004 um 02:35 Uhr (0)
Zitat: Original erstellt von CB_: Moin, Moin! Zitat: Original erstellt von CB_: leider hat sich in der steel.tbl ein Fehler eingeschlichen. Scheinbar nicht der einzige. Entschuldige, aber manchmal kann ich auch nicht mehr. Worum geht es denn hier? Zitat: Original erstellt von CB_: Das Profil HEB-800 ist darin mit einer Höhe von 700 angegeben. Bei HAL 9000 hatte sich auch ein Fehler eingeschlichen, und das waren sicher mehr als 700 Meter. Kilometer, Parsec, AE, Lichtjahre? Zita ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : LISP: Höhenkoten platzieren
cadffm am 03.08.2018 um 11:45 Uhr (1)
Also zusammengefasst:Läuft nicht durch weil, siehe Stefan, du schließt die Punktdatei wieder. Das Close-Statement gehörthinter die While-Schleife, nicht in die While-Schleife.Verschiedene Layer in einem Block nutzen für Text sichtbar/unsichtbar ist auch schon angesprochen worden.Angenommen die Punkte landen alle auf Layer "PUNKTE", dann würde ich für den Z-Wert eine Attributdefinition auf Layer "PUNKT_Z-WERT" legen.Möchte man diese nicht sehen schaltet man den Layer aus, Möcht eman die Punkte mit allem dru ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
marc.scherer am 25.02.2008 um 12:40 Uhr (0)
Zitat:Original erstellt von Geos:Heute weiß ich das auch, aber vor 10 Jahren eben noch nicht ...Jau, ist halt so mit altem Code, bei mir ned anders ;-) Zitat:Original erstellt von Geos:Das "_under" entspricht ja dem "N" - nun hat aber Marc eine Änderung auf "U" vorgeschlagen (= "_back") und Andi sagt, es funktioniert. ???Was passiert dann mit "(ssname aws 0)" - bei "unten/_back" wird ja kein Objekt mehr abgefragt ??? (das Solid soll ja nur unter die Grenze - entspricht (ssname aws 0) - gelegt werden und ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Block einfügen mit LISP und Wert 1
Dober Heinz am 14.01.2009 um 10:44 Uhr (0)
Hallo XEMHier habe ich was.(defun c:raum (/ Blockn corner1 corner2 columns rows roomwidth roomheight colspacing rowspacing)(setq Blockn (getstring "Blockname? "))(setq corner1 (getpoint "erste Ecke im Raum: ")corner2 (getpoint "gegenüber liegende Ecke: ")columns (getint "Anzahl X Richtung: ")rows (getint "Anzahl Y Richtung: ")roomwidth (abs (- (car corner1) (car corner2)))roomheight (abs (- (cadr corner1) (cadr corner2)))colspacing (/ roomwidth columns)rowspacing (/ roomheight rows)lowerleft(list(min (car ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
andi90 am 24.02.2008 um 18:21 Uhr (0)
Hallo Marc,vielen Dank für deine Mühen.Ich beschreibe Dir, was ich brauche.Ich suche eine Routine, die mir nach dem klicken in einen Raum (geschlossene Fläche aus Linien, Polylinien, Kreisen und Bögen)die Fläche und den Umfang zurückgibt und diese als Text im Raum absetzt. Bei der Fläche müssen Stützen etc. abgezogen werden, so ähnlich wie beim schraffieren die Inseln.Das vorgenannte Programm fragt beim Start nach den Layern, die berücksichtigt werden sollen. Das ist sehr praktisch, da man alleLayer einges ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : LISP, FIltern und kopieren v. P-Linien ab bestimmter Länge.
CADmium am 19.12.2012 um 10:46 Uhr (0)
ok .. was zum Lernen ( hoffentlich )(defun PSELECT(LAENGE LAYER / AWS) (vl-load-com) (if(and(setq AWS(ssget "_X" (list(0 . "*POLYLINE")(cons 410(getvar"CTAB"))))) (=(type LAYER)STR) (setq LISTE(vl-remove-if null (mapcar (lambda(X / OBJ L) (if(and(setq OBJ (cadr X)) (setq OBJ(vlax-ename-vla-object OBJ)) (setq L (vlax-curve-getdistatparam OBJ(vlax-curve-getendparam OBJ))) ( L 60.0) ) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Script oder Lisp zum Entfernen von Abdeckungen und Schraffuren in Fremdzeichnungen
Rembetiko am 03.07.2018 um 10:30 Uhr (1)
Hallo zusammen,ich suche nach einer kleinen überschaubaren Lösung: Wir bekommen derzeit dauerhaft Pläne von Architekten in denen störende Schraffuren (Solid) und Abdeckungen (Farbe 255) in verschachtelten Blöcken enthalten sind. Derzeit mache ich das über Blockeditor und Schnellauswahl, ist aber sehr mühselig - da es fast wöchentlich neue Pläne gibt und ich in jeden Plan immer relativ tief einsteigen muss um da ran zu kommen. Jemand einen Tipp oder Idee?Danke fürs Anschauen------------------*So spielt das ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp-Datei kann nicht ausgeführt werden
CADmium am 13.11.2012 um 15:42 Uhr (0)
du rufst da den Textbefehl auf, anschließend wird gleich der Punkt übergeben ... das geht schief, bei einem aktuellen Textstil mit der Texthöhe 0 , d da erst die Texthöhe erwartet wird ...oder wo steigt der Befehl aus ? Besser wäre schon sowas :(defun C:CNC (/ P A B) (if(and(or(setq P (getpoint "
Zu bemassenden Punkt eingeben: ")) (prompt "
kein Punkt gewählt.") ) (or(setq A (getpoint "Textbeginn eingeben: ")) (prompt "
kein TextstartPunkt gewählt.") ) (setq B (strcat(rtos( ...
|
| In das Form Rund um AutoCAD wechseln |
