|
Rund um AutoCAD : sript mit layerabhängigen Funktion
CADmium am 17.11.2009 um 07:58 Uhr (0)
mit script wird das nichts .. da mußt du schon Lisp o. ä. nehmen Bsp :(if(and(setq L(tblobjname "LAYER" "AM_0")) (setq LT(cdr(assoc 6(entget L)))) ) (prompt(strcat"
Layer 123 vorhanden mit LT "LT"
")) (prompt"
Layer 123 nicht vorhanden
"))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Lisp Layer aktivieren
CADmium am 08.03.2011 um 11:35 Uhr (0)
Zitat:Original erstellt von alfred neswadba:Hi,Code:(command "_-layer" "_se" "0" "")- alfred -besser Code:(command "_-layer" "_m" "0" "")dann wird der Layer nicht nur gesetzt, sonder auch erzeugt, wenn nicht vorhanden.------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Zeichung mit 400 Layouts ohne die Übersicht zu verlieren?
CADmium am 07.03.2011 um 11:27 Uhr (0)
Zitat:Original erstellt von Plotter:Würd gerne das LSP mit DCL Date noch testen, bekomme aber immer die Meldung, dass das Menü fehlt. Wo muss ich die DCL Datei denn hinpacken damit es läuft?in ein supportverzeichnis ... du kannst die Lisp aber auch zusammen mit der DCL zu einer vlx kompilieren .. dann hast du nur eine Datei------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Farbe von Attributen im Block ändern
CADmium am 24.11.2009 um 14:08 Uhr (0)
Zitat:Original erstellt von xem:Hallo,ich habe hier einen Block der mich schon einige Zeit ärgert.Ich möchte gern die Attribute auf Farbe 7 und dazu nicht alles einzeln bearbeiten.Weiß zufällig jemand wie ich die Farbe schnell und einfach ändern kann?bei Einfach und schnell fällt mir immer-- TOOL ein .... wie man an die Atts einer Referenz rankommt , und wie man die Farbe von Objekten ändert ist hier im Forum aber nun schon öfter diskutiert und dokumentiert worden .. wie weit bist du denn inzwischen mit d ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Fett-Eigenschaft bei mehreren MTEXT-Objekten gleichzeitig entfernen
CADmium am 14.12.2009 um 11:30 Uhr (0)
jo .. im Textstring alle Formatierungszeichen b1 durch b0 ersetzen .. sollte auch per Lisp realisierbar sein------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : bezug auf zentrum (lisp)
CADmium am 25.02.2011 um 09:08 Uhr (0)
so .... Wir haben auch ein Lispbrett !!Stelle entsprechende Fragen doch bitte der Übersicht halber dort!(Auch wenn die entsprechenden Leute in beiden Brettern mitlesen) Zu deiner Frage:..der Mittelpunkt eines Kreises ist im GC10 gespeichert(princ(cdr(assoc 10(entget(car(entsel "
Kreis wählen:"))))))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Visual Lisp und Interprozesskommunikation
CADmium am 11.01.2010 um 11:36 Uhr (0)
mit Visual Lisp sind die Zugriffsmöglichkeiten auf die Windows-API begrenzt .. wenn dein Prog über eine COM-Schnittstelle verfügt geht das aber evtl. darüber .... mit netload kann man auch dlls laden ... ACAD hat auch ne .NET -Schnittstelle , wo man Befehle und Funktionen zugänglich machen kann. Aber mit ACAD 2000 fällt .net wohl flach .. das war damals noch nicht------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Befehlsbezug innerhalb einer lisp
CADmium am 22.02.2011 um 15:44 Uhr (0)
Aua .... (defun SWITCHLAY(LAYLIST ON?) (mapcar (lambda(X / Y GC62) (if(and(=(type X)STR)(setq Y(tblobjname "LAYER" X)) (setq Y(entget Y))(setq GC62(cdr(assoc 62 Y))) ) (entmod(subst(cons 62 (*(abs GC62)(if ON? 1 -1)))(assoc 62 Y)Y)) ) ) LAYLIST ))(defun C:MYLAYOFF() (SWITCHLAY ("HL___BEM_BRUTTO""HL___BEM_MAU" "HL___BEM_FENS" "HL___BEM_NETTO") nil))(defun C:MYLAYON() (SWITCHLAY ("HL___BEM_BRUTTO""HL___BEM_MAU" "HL___BEM_FENS" "HL___BEM_NETTO") T))------------------ - Thomas - ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Befehlsbezug innerhalb einer lisp
CADmium am 22.02.2011 um 14:40 Uhr (0)
zu 3. welche denn ?------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Befehlsbezug innerhalb einer lisp
CADmium am 22.02.2011 um 13:19 Uhr (0)
mit ssget wählt man keiner Layer ..Layer schaltet man z.b. so------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Befehlsbezug innerhalb einer lisp
CADmium am 22.02.2011 um 11:25 Uhr (0)
eine Zeile Code sagt mehr als 100 Worte(defun C:acadliste() (princ "Mennö!!"))(defun C:ali() (c:acadliste))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Texte global ändern
CADmium am 18.01.2010 um 10:26 Uhr (0)
Zitat:Original erstellt von _Trolly:Hallo Steff179,bei Deiner Lisp haben wir den Nachteil bemerkt, das Texte die an derzu rundenden Zahl stehen z.B. ... m verschluckt werden.Aber sonst klappt`s.tja .. ungenaue Aufgabenstellung würd ich sagen .... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Script - alle Layer wählen
CADmium am 20.01.2010 um 14:00 Uhr (0)
die Zeile ist schon Lisp... mach doch gleich alles so ... alles andere wird rumgestümper... und zu alle Blockreferenzen einer Zeichnung auflösen finden sich einige codschnipsel hier im Forum ...------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
