|
Lisp : Fläche von Hatch/Solid
Geos am 30.10.2008 um 11:45 Uhr (0)
Grüß Euch@heikoHab mal ein HATCH ausgewählt:Code:Befehl: (vlax-dump-object (vlax-ename-vla-object (car (entsel))) T)Objekt wählen: ; IAcadHatch: AutoCAD Hatch-Schnittstelle (Schraffur); Eigenschaftswerte:; Application (RO) = #VLA-OBJECT IAcadApplication 00b9d604; AssociativeHatch = 0; Document (RO) = #VLA-OBJECT IAcadDocument 05400520; Elevation = 0.0; GradientAngle = 0.0; GradientCentered = -1; GradientColor1 = #VLA-OBJECT IAcadAcCmColor 1adbd4a0; GradientColor2 = #VLA-OBJECT IAcadAcCmColor 1adb95 ...
|
| In das Form Lisp wechseln |
|
Lisp : Fläche von Hatch/Solid
CADmium am 30.10.2008 um 12:23 Uhr (0)
Zitat:Original erstellt von Geos:Das Objekt-Modell (oder besser, diese Seite) kenn ich - aber da lande ich ja dann bei VBA und nicht bei Lisp - oder hab ich was übersehen ?Gibts da zwischen Lisp und VBA Unterschiede ??? Die Logik und die Namen und die Parameter sind doch dieselben .... ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Änfängerfrage zu mapcar, lambda
molo am 29.10.2008 um 12:47 Uhr (0)
Moin Moin,ich habe mit viel Mühe eine kleine Lisp hinbekommen die mir einen Text mit einer Zeichenkette auf eine bestimmte Farbe setzt.----------------------------------------------------------;; Morten Lorenz;; Test einen Text mit einer Zeichenkette eine Farbe zuzuweisen(defun mltest (string / as)(setq as (ssget "x" (list (cons 0 "TEXT") (cons 1 string))))(if as (command "._change" as "" "Eigenschaften" "_color" "2" ""))(setq as nil)(princ))-------------------------------------------------------------Wenn ...
|
| In das Form Lisp wechseln |
|
Lisp : Änfängerfrage zu mapcar, lambda
CADmium am 29.10.2008 um 12:59 Uhr (0)
2 Möglichkeiten ..1. Einen Auswahlsatz bilden mit mehreren möglichen Textstrings.. also einfach dein 1. Lisp aufrufen mit (mltest "F90,F80,F70")oder2. oder so (defun mltest (stringliste) (mapcar (lambda(STRING / AS) (if(setq as (ssget "x" (list (cons 0 "TEXT") (cons 1 string)))) (command "._change" as "" "Eigenschaften" "_color" "2" "") ) ) STRINGLISTE ) (princ))-- aufruf mit (mltest ("F90" "F80" "F70"))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende ...
|
| In das Form Lisp wechseln |
|
Lisp : Änfängerfrage zu mapcar, lambda
s.wickel am 30.10.2008 um 12:43 Uhr (0)
Hallo Thomas, Holger, Heiko!Das war eine Hilfe, wie man Sie sich vorstellt. Ich finde es toll, dass ihr so viel Zeit in dieses Forum investiert. Dieser Beitrag ist eine echte Lehrstunde in Sachen LISP. @Morten: Frager die mitdenken und keine fertige Lösung erwarten werden geliebt. Mach weiter so. Das musste mal gesagt werden.Gruß Stefan
|
| In das Form Lisp wechseln |
|
Lisp : erstes programm
cadffm am 30.10.2008 um 12:52 Uhr (0)
cadwiesel.de das Programm SCC2 holen ("Scriptgenerator") oder so ähnlich.Anmerkung: Diese Version bearbeitet nur DWGProgramm im SDI Modus laufen lassen, Dateiauswahl der DWGs .. und angabe welches Script ausgeführt werden soll !PS: Denke dann an das _.QSAVE am Ende Wenn du es (für dich der einfachste Weg) so machst wie ich dirdas zeigte mit dem Script dann benötigst du nur nur am Endedas _.QSAVE und als *.scr abspeichern und fertig.TIP: Erstmal in Kopien.dwg testen EDIT: Will man das ein Lisp ausgeführt ...
|
| In das Form Lisp wechseln |
|
Lisp : Farbcode
Dorfy am 22.09.2008 um 13:36 Uhr (0)
Hi,wenn Du die Beispiele Lisp installiert hast,kannst Du Dir im Verzeichniss Autocad...SampleVisualLISPdie color-util.lsp mal näher anschauen...mfg Heiko
|
| In das Form Lisp wechseln |
|
Lisp : plotstiltabelle in den ordner der .dwg kopieren
CAD-Huebner am 01.11.2008 um 11:51 Uhr (0)
Aber wenns denn so sein soll:So z.B. findet man via Lisp/ActiveX die Plotstiltabelle zum aktuellen Layout heraus: http://ww3.cad.de/foren/ubb/Forum145/HTML/000618.shtml#000001 oder siehe hier http://ww3.cad.de/foren/ubb/Forum145/HTML/000283.shtml#000000 Die gefundenen CTBs könnte man dann ins Zeichnungsverzeichnis kopieren ( vl-file-copy ... und mitdiesen Tools verwenden http://www.cadwerk.com/download/createlink/clink.html oder http://www.cadmaro.de/downloads/freeware/linkplotstyles.html Siehe dazu folgen ...
|
| In das Form Lisp wechseln |
|
Lisp : Fläche von Hatch/Solid
Geos am 01.11.2008 um 18:00 Uhr (0)
Da seht Ihr, auf welch blöde Ideen man kommen kann, wenn man auf Vermutungen angewiesen ist. Warum funkt (vlax-put-property) beim Layer und nicht beim Patternname (bzw. warum ist Patternname RO, wenn über setPattern doch änderbar)?Try and Error mag ja auch eine Lernmöglichkeit sein, aber bei mir funktioniert das nur, wenn der Teil der Versuche, die mit Error enden, sehr stark in der Minderheit bleiben.Meine eigentliche Aufgabe ist nicht das Programmieren, aber wenn ich bei meiner Arbeit "vor einen Hinderni ...
|
| In das Form Lisp wechseln |
|
Lisp : erstes programm
autocart am 03.11.2008 um 20:22 Uhr (0)
Hallo Neu Einsteiger!Also ein "ENTER" in der Kommando-Zeile ist im Skript entweder mit einem Druck auf die Enter-Taste oder einem Leerzeichen bewirkt.Im Lisp-Code geht das mit (command ""). Nur (command) bewirkt übrigens ein Escape, soviel ich weiß.Damit wäre das einmal erledigt.Als Alternative zu SCC2 kann ich dir noch das "scriptpro" direkt von Autodesk anbieten. Das gibt es hier zum downloaden (für Autocad ab Version 2007 aufwärts).Ansonsten merkt man (nicht bös gemeint), dass du "erst vor kurzem begonn ...
|
| In das Form Lisp wechseln |
|
Lisp : cui
lutzc am 04.11.2008 um 10:29 Uhr (0)
Hallo,könntest du mir das bitte etwas näher erläutern mit der DLL.Das Tool reshacker habe ich bereits.Weißt du vielleicht auch eine Lösung auf meine andere Frage,wie ich Supportpfade per Lisp ergänzen kann?Danke und GrußChristian
|
| In das Form Lisp wechseln |
|
Lisp : amsetup in LISp Datei
CADwiesel am 05.11.2008 um 14:26 Uhr (0)
bau mal vor dem Aufruf ein (initdia) ein vielleicht hilft das ja schon------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : amsetup in LISp Datei
CADmium am 04.11.2008 um 15:02 Uhr (0)
... Die Sysvar EXPERT muß auf 5 gesetzt werden ...aber sicherlich willst du nicht nur eine Zeichnung konvertieren, sondern ganze Verzeichnisse ? ...Falls ja, so etwas hatte ich schon mal für jemanden realisiert ...------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
