|
Lisp : Mit Lisp Blöcke auslesen und Teile des Inhalts in Textzeilen abbilden
spider_dd am 26.11.2024 um 08:33 Uhr (1)
Zitat:Original erstellt von 100dpi:...@Andreas: Das genau hab ich versucht, Acad schiebt die Texte dann aber ALLE zum Punkt 0,0 Du musst den GC 11 noch setzen, der wird bei Ausrichtungen anders als links verwendet.Also:(cons 11 (list x y z))bzw.(cons 11 (list x (- y (* text-height 1.5)) z))noch in die entmake Listen nehmen.GrußThomas[Diese Nachricht wurde von spider_dd am 26. Nov. 2024 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : 2 Plotfiles mit einem Lisp erstellen
wronzky am 05.09.2008 um 21:24 Uhr (0)
Hallo Andreas, und da wären wir schon bei Punkt 1 meines letzten Gedankenganges...Aber ich will mal nicht so sein:Code:(setq ctbPath (vla-get-printerstylesheetpath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))))Grüsse, Henning[EDIT] Nicht vergessen ein (vl-load-com) am Anfang des Codes [/EDIT]------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 05. Sep. 2008 editiert.]
|
| In das Form Lisp wechseln |
|
AutoLisp : Wendeltreppenlisp
Brischke am 02.04.2004 um 10:17 Uhr (0)
Hallo Edu, Willkommen! Eines ist sicher: Versionsunterschiede der DCL können nicht sein, da es da keine Unterschiede gibt. Schau mal in die Datei acad.dce, in dieser werden alle fehler der DCL-Dateien gelistet. Vielleicht wirst du daraus schlauer, welchen Fehler du beim Abschreiben der DCL-Datei gemacht haben könntest. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
Lisp : Ploteinstellungen per Lisp
marc.scherer am 13.05.2009 um 16:03 Uhr (0)
Zitat:Original erstellt von Geos:Werds aber beim nächsten Mal mit einem Refresh nach JEDER Einstellung/Programmzeile versuchen.Gar nicht notwendig. Nur wenn Du das PlotDEVICE (= Drucker) änderst. Dann werden nämlich einige abhängige Dinge wie z.B. der druckbare Bereich neu gelesen und gesetzt sind aber für das Programminterface noch nicht verfügbar. Eben erst NACH dem Refreshen.------------------Ciao,Marc
|
| In das Form Lisp wechseln |
|
Lisp : entmod / Objekt DIMENSION
Dorfy am 10.05.2011 um 16:12 Uhr (0)
Hi Bernd,schwarze Farbe auf schwarzem Hintergrund - cool bei mir springt die Linie "nach"...GC13 von 5253,5 6270,7auf 5253,5 6310,7oder welche Linie meinst du?mach mal bitte ein Bild/Skizze - was von wo nach wo springt oder auch nicht....------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."
|
| In das Form Lisp wechseln |
|
AutoLisp : Formatgröße übergeben
mkl-cad am 29.07.2004 um 16:50 Uhr (0)
Hallo Lispler, fand diesen Betrag sehr interessant. In ACAD kann man ja für Plotter oder Drucker eine benutzerspezifische Papiergröße angeben, wie in den vorangegangenen Beiträgen angesprochen. Gibt es eine Möglichkeit diese Papiergröße per Lisp zu ändern? Dann währe auch das Problem von CADchup gänzlich gelöst. Die Konfigurationsdatei düfte dann nur nicht auf ein Netzlaufwerk liegen. ------------------ Martin [Diese Nachricht wurde von mkl-cad am 31. Jul. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nachbar Zelle aus Tabelle
startrek am 29.06.2005 um 13:47 Uhr (0)
Hi, mal auf die Schnelle, ist weder Lisp noch besonders hübsch. Nur n kleiner Ansatz, wobei so ganz ohne Excel, nur als Liste bzw. Textfile könnt ich mir das auch vorstellen;-) Gruss Nancy Code: Sub x() Dim xlapp As Object, wb As Object Dim arr, i&, p#(2) Set xlapp = CreateObject( Excel.application ) Set wb = xlapp.workbooks.Open( D:Mappe1.xls ) arr = wb.sheets( Tabelle1 ).range( A1:B1000 ) wb.Close 0 Set xlapp = Nothing For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Mehr über Lisp-Programmierung
ROBYCAD am 17.05.2002 um 15:01 Uhr (0)
Hallo CADwiesel, danke für deinen Hinweis, dadurch bin ich schon weiter gekommen. Was ich aber suche ist etwas daß mich tiefer in dieser Psprache bringt. Hab deine Page besucht und gesehen daß du kontakt mit anderen Lisplern hast. Könntest du vieleicht mal nachhorchen ob diese leute ein paar tips für mich hätten die mir helfen könnten. P.S. Hast ne echt COOLE Page. GRUß ROBYCAD
|
| In das Form AutoLisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
snp am 15.02.2012 um 11:48 Uhr (0)
Hallo CadChup,leider komme ich nicht weiter:Hier der Code dem ich erstellt habe -- FEHLER: Falsch platzierter Punkt in Eingabeauf das "
" habe ich bewusst verzichtet, möchte alles in einer Zeile mit einen "; " getrennt haben.;;set the string - this creates the fieldSTR (strcat "%AcObjProp.16.2 Object(%\_ObjId " (rtos OBJID 2 0) "%)" STRPROPERTY " f "%lu2%pr2"%" ) "%AcObjProp.16.2 Object(%\_ObjId " (.Material) "%)" )[Diese Nachricht wurde von snp am 15. Feb. 20 ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Blöcke auf Layer legen
Brischke am 28.01.2004 um 09:48 Uhr (0)
Hallo Georg, was meinst du mit Layergruppen? Einfach einen Layer, der den Namen des Blockes hat? Du bist dir auch sicher, dass du das möchtest? Ich kann mir vorstellen, dass du dann mit einem vernünftigen Ausdruck Probleme bekommen wirst. Oder sind alles Objekten explizit Farben zugeordnet? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : QLeader Reactor
Brischke am 29.09.2004 um 14:03 Uhr (0)
Hallo Wolfgang, schau mal in der Hilfe. Wenn mich nichts täuscht, dann ist darin (egal in welcher Version) ein Beispiel enthalten. Dies gibt den Radius in der Befehlszeile aus, wenn man den Kreis mittels Griffe ändert. Dies jetzt hier mit Worten zu beschreiben fällt mir wirklich schwer. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
Lisp : ca. 1000 Systemvariablen setzen
spider_dd am 27.04.2015 um 16:51 Uhr (1)
Hallo Jürgen,so wie Du es versucht hast klappt es ja auch. Was cadffm aber meint, Du sollst es so versuchen, wie Du es in der Lisp hast, also:(setvar "3DCONVERSIONMODE " 1)Da wirst Du feststellen, dass eine Fehlermeldung kommt. Liegt, wie von cadffm auch schon gesagt, am Leerzeichen nach dem Variablennahmen und vor dem "Das betrifft dann alle Variablen.Anderer Weg: mit den Expresstools, falls bei Dir installiert, kann man die Sys-Vars rausschreiben und auch wieder einlesen.HTHGrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
CADmium am 17.03.2007 um 11:52 Uhr (0)
ne, aber probiers mal mit(defun mysettigs ( / KUNDE) (initget "1 2 3") (or(setq KUNDE(getkword "
Bitte Kunden auswählen: [1/2/3] 1:")) (setq KUNDE "1") ) (and(gencfgset "gen@Paths@DWGTITLE" (strcat "E:DWG_TitleKunde" KUNDE)) (gencfgset "gen@Paths@DWGPATH" (strcat "E:DWG_TitleKunde" KUNDE)) ) )------------------ - 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 |
