|
Lisp : befehlszeile in zwischenspeicher kopieren
CADmium am 12.04.2011 um 16:52 Uhr (0)
Die meisten modernen Programmiersprachen stellen meist einfache Zugriffsmöglichkeiten auf die Zwischenablage bereit, AutoLisp leider nicht. Aber über ActiveX und einem Windowsobjekt, welches die Zugriffsmethoden auf das Clipboard für sich gekapselt hat, gelingt die Nutzbarmachung für Lisp ebenfalls. Im Programm muß dafür zuerst die ActiveX-Schnittstelle mit (vl-load-com) aktiviert werden. Dann kann mit (vlax-create-object "htmlfile") eine Instanz des Objektes, über welches auf die Zwischenablage zugegriffe ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : suche online Literatur über AutoCAD 2004
CADmium am 20.07.2007 um 21:39 Uhr (0)
naja .. ich kenne die Bücher aus deinen Links nicht, aber .. 1. bist du im englischen so fit? 2. .. Reference ist meistens ein NAchschlagewerk, das nicht auf Feinheiten, Machbarkeiten, Herangehensweisen bei der Programmierung einget.Das "Autocad programmieren mit VBA" hatte ich schon mal durchgeblättert. Machte einen ordentlichen Eindruck. Geht auf das Objektmodell in ACAD und die ganzen Manipulationsmöglichkeiten ein. Grundlagen des VB werden auch behandelt.Um eine wirkliche Empfehlung auszusprechen müßte ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Pfade zu appload/Inhalt über Lisp hinzufügen ?
CADmium am 17.03.2005 um 07:52 Uhr (0)
@cadffm die korrekte Funktion für Strings heißt substr ! .. und strcat hättest du auch noch erwähnen können .. Es sollte dann so etwas bei rauskommen: Code: (defun DT :DELPATH(PATH / ACAD POS) (setq ACAD(strcase(getenv ACAD ))) (setq PATH(strcase PATH)) (cond ((setq POS (vl-string-search (strcat ; PATH) ACAD)) (Setq ACAD(strcat (substr ACAD 1 POS)(substr ACAD (+ POS (+(strlen PATH)2))))) ) ((setq POS (vl-string-search (strcat PATH ; ) ACAD)) (Se ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Unterschiede ACAD08 und 09 bei lisp?
CADmium am 23.06.2009 um 17:21 Uhr (0)
Zitat:Original erstellt von thors-hammer:hallo woppi,ich verwende in meinen programmen immer folgende zeilen:;am Anfang des Programms(setq aosmode (getvar "OSMODE")) ;alter OFANG(setvar "OSMODE" 0) ;setzt OFANG auf keinen(MACHWAS);am Ende des Programms(setvar "OSMODE" aosmode) ;setzt auf alten OFANGdann gibt es bei mir keine probleme mit den commands.lg Manueles sei denn , ein command verlang nach Usereingabe , der User bricht ab : dann wird OSMODE nicht zurückgesetzt und das Fluchen beim Weiterarbeiten i ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Inhalt eines Layers zu Block konvertieren
CADmium am 15.06.2009 um 11:26 Uhr (0)
Willkommen bei Cad.de ... wenn du sowas öfter brauchst, sparst du duch sicher Zeit mit so einer One-Klick-Variante ... dafür muß man dann im Vorfeld für die Programmierung etwas mehr Zeit aufwenden .. wie weit bist du denn schon? Wo hakt dein Code ?Oder erwartest du, dass jemand für dich diese Zeit aufwendet, was zusammensucht und eine Fertiglösung präsentiert ? P.S. Das Lisp an sich sollte dann nicht das Problem sein. Schnipsel davon sind auf jeden Fall schon im Forum zu finden... aber dein Psosting lie ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Layerfarben automatisch grau färben
CADmium am 10.09.2008 um 19:48 Uhr (0)
Die Us sind Nebensache und die werden von jedem persönlich anders gehandhabt und das war auch nicht von mir tierisch Ernst gemeint.zu dem, "warum mir das klar ist" : Erfahrung .. ich hab halt öfter schon ähnliches gemacht .... und mit der Erfahrung kommt dann auch der Blick auf das Machbare und auch auf Umsetzgeschwindigkeit. Bei neueren (meist undokumentierten) Sachen bleibt aber meist bloß : selbst ausprobieren und testen (Wege hab ich dir IHMO gezeigt und einiges hast du ja auch selbst rausgefunden[ist ...
|
| In das Form Lisp wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
CADmium am 21.04.2005 um 09:41 Uhr (0)
Ein Block kann ja bloß einmal in einer Zeichnung vorkommen und dann nur öfter referenziert werden. Auswählbar sind die Blockreferenzen. Beim Umbenennen eines Blocks, der nach der gewählten Blockreferenz gesucht wird , macht es demnach Sinn nur EINE Blockreferenz auswählen zu lassen, bzw. die erste der aktuellen Auswahl zu nutzen. Nutzt man die Option Neuer Name = Timestamp könnte ich noch eine Automatisierung implementieren. Bei Neuer Name = * wird der Block anonymisiert. BLOCKS-NOTANONYMUS wandelt alle an ...
|
| In das Form Lisp wechseln |
|
Lisp : Gruppen auflösen
CADmium am 29.08.2006 um 08:25 Uhr (0)
Zitat:Original erstellt von Dorfy:@CADmium IMHO oberste Gruppe enthält die meisten Elemente, lasse mich aber gern eines besseren belehren, mfg Dorfydas mag vielleicht bei deiner Arbeitsweise so sein und in der Hinsicht stellt das Lisp sicher einen Workaround dar, aber z.B. man kann ja auch mal mit PICKSTYLE 1 und mal mit PICKSTYLE 0 arbeiten .. da kann ich dann eine ganze Gruppenhierachie haben mit Objekt A in der "untersten" Gruppe .. zusätzlich ist Objekt A aber auch noch Member einer anderen Gruppe mit ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Attribute löschen
CADmium am 12.08.2004 um 08:22 Uhr (0)
Vielleicht hilft auch das kleine Lisp: (vl-load-com) (defun c:del-atts( / INSERT VLA-INSERT) (if(and (setq INSERT (ssget _:S ((0 . INSERT )))) (setq INSERT (ssname INSERT 0)) (setq VLA-INSERT (vlax-ename- vla-object INSERT)) (=(vlax-get-property VLA-INSERT HasAttributes) :vlax-true) ) (progn (setq ATTS (vlax-variant-value(vla-GetAttributes VLA-INSERT))) (setq INDEX (-(vlax-safearray-get-l-bound ATTS 1)1)) (repeat (-(vlax-saf ...
|
| In das Form AutoCAD Mechanical wechseln |
|
AutoLisp : Block-Symbol auslesen
CADmium am 26.02.2005 um 10:16 Uhr (0)
Willkommen im Forum! Fängst ja gleich mit einem nicht gerade (für Lisp) einfachen Thema an, aber mal ein paar Infos: Jeder Nicht-Layout-Block kann ein Voransichtsbild besitzen. Dieses ist im (sich wiederholenden) GC 310 der Blockdefinition in Form von Binärdaten abgelegt. - Device Independent Bitmap 1. Bitmap-Header .. ersten 4 Bytes = Länge des Headers 2. Farbpallette 256 x 4 Bytes ( R G B + unbenutzt) 3. Pixel-Informationen, Pro Pixel 1 Byte, welches auf eine Farbe der Palette verweist. Be ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Markierte Objekte auf einen anderen Layer legen
CADmium am 06.07.2010 um 12:30 Uhr (0)
Hmm ich dachte mit der Markierung eigentlich an ein Ändern im Eigenschaftsfenster .. Befehl _propertiesmit Lisp würd ich das rudimentär so machen :(defun C:LAYMECH(/ AWS) (if(setq AWS (ssget "_x" ((0 . "INSERT") (2 . "*AQA_dpv*,*AQA_upv*,*AQA_dps*,*AQA_dpm*,*AQA_upm*,*AQA_upj*,*AQA_dpf*,*AQA_dpn*,*AQA_dpb*") ) ) ) (progn (setq I -1) (repeat (sslength AWS) (setq DATA(entget(ssname AWS (setq I(1+ I)))) ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Schriftfeld in ACAD
CADmium am 26.02.2007 um 12:34 Uhr (0)
Zitat:Original erstellt von pharao2007:Ja, sorry, in dem andern Forum hat man mich darauf hingewiesen, dass das ja nur rund um AutoCAD ist, und die mir bestimmt nicht weiterhelfen könnten. Da dachte ich, ich versuchs mal direkt hier im Mechanical Forum *grübel*Wie krieg ich das denn hin mit der Programierung, kann mir da einer Helfen??? Kenn mich damit so überhaupt nicht aus *grübel* Sind das diese .ini Dateien???LGpharaoDas sind keine *.ini Dateien ... obwohl ein Prog sowas für gewissen Grundeinstellunge ...
|
| In das Form AutoCAD Mechanical wechseln |
|
Rund um AutoCAD : Objektauswahl bei Makros
CADmium am 19.08.2008 um 07:54 Uhr (0)
tcircle ist ein Befehl aus den Expresstools, welcher in der Datei acettxt.lsp definiert wird. Mit einem command-Aufruf wird das also nix.Und innerhalb der Routine wird ssget zur Auswahlsatzerstellung aufgerufen. Wenn was vor Befehlsaufruf selektiert wurde wird das von dem ssget genommen, wenn nicht, wird der Nutzer von dem internen ssget aufgefordert Textobjekte zu wählen.Wenn du nun ein Tcircle haben möchtest, was die Objektwahl und den Abstand offenläßt, aber die Option Rechteck r und v für Variable setz ...
|
| In das Form Rund um AutoCAD wechseln |
