|
Rund um AutoCAD : Lisp funktioniert nicht mehr richtig
CADmium am 22.10.2018 um 08:57 Uhr (1)
(defun c:ssw() (command "_layer" "_on" "*-SW-*" "")(command "_layer" "_on" "*-RW-*" "")(princ "Schmutzwasser+RW an!")) -hier fehlt ne Klammer P.S. ich staune immer wieder, was es so für Code gibt (defun c:eew() (command "_layer" "_on" "*Fall*" "")(command "_layer" "_on" "*befestigung*" "")(command "_layer" "_on" "*Steiger*" "")(command "_layer" "_on" "*Abstandhalter*" "")(command "_layer" "_on" "*Brandschott*" "")(command "_layer" "_on" "*-SP*" "")(princ))(princ "Steiger anschalten!") - die Zeile wird beim ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Koordinaten ermitteln und/oder Text aus Block löschen
CADmium am 11.07.2012 um 11:22 Uhr (0)
Genauer schildern wäre schon Code schreiben - da deine Lispkenntnisse wohl rudimentärer Art snd , und das wird mehr als ein 10-ZeilerEinsammeln geht mit ssgetumwandeln der Objekte in vla-objekte via vlax-ename-vla-objectLänge dann mit (vlax-curve-getdistatparam OBJ(vlax-get-endparam OBJ))....Script ist klar .. aber auch das muß mit was gefüttert werden ....Da bietet sich halt ein Lisp an.....Proggen tun einige hier im Forum .... Cadwiesel / Brischke / Jörn Bosse / CADchup / meine Wenigkeit.. um nur ein pa ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Umstellung Abfrage Bildschirmmenü - Befehlszeile
CADmium am 15.09.2004 um 12:48 Uhr (0)
Deine Ladeanweisungen sind das (einfueg f:/Vorlagen_ACAD/KOPF/DIN-A0 KOP29RAND 10 10 0) (einfueg f:/Vorlagen_ACAD/KOPF/DIN-A1 KOP29RAND 10 10 0) (einfueg f:/Vorlagen_ACAD/KOPF/DIN-A2 KOP29RAND 10 10 0) (einfueg f:/Vorlagen_ACAD/KOPF/DIN-A3 KOP29RAND 10 10 0) (einfueg f:/Vorlagen_ACAD/KOPF/DIN-A4 KOP29RAND 10 10 0) (einfueg F:/Vorlagen_ACAD/KOPF/K2A2 KOP29RAND 10 10 0) (einfueg F:/Vorlagen_ACAD/KOPF/KDA2 KOP29RAND 10 10 0) (einfueg F:/Vorlagen_ACAD/KOPF/KIA2 KOP29RAND 10 1 ...
|
| In das Form Rund um Autocad wechseln |
 |
Lisp : acet-autoload2 - load subexpr
CADmium am 15.01.2014 um 10:04 Uhr (15)
Lass die Subs als lokal in der Main definiert! So kannst du sicher sein, dass immer die richtige Sub aufgerufen wird und nicht eine andere, namensgleiche, aus einem anderen Programm ,( evtl. Fremdprogrammiert ) , die etwas ganz anderes tut unt evtl. andere Parameter erwartet. Oder sei bei der Namensvergabe ganz eindeutig und dir sicher, das nix fremdes auf deinem Rechner läuft.Lisp ist nicht objektorientiert und hat keine "Varaiblenverwaltung" ... AutoLisp läuft in einem Interpreter!------------------Also ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Nur ein bestimmtes Attribut mit attedit bearbeiten
CADmium am 16.10.2006 um 11:10 Uhr (0)
Zitat:Original erstellt von marc.scherer:vlx ist eine kompilierte Version von Lisp/DCL Dateien. Nix mit Ascii-Editor. Schützt das KnowHow von vorsichtigen Proggern die meinen jeder Fussel-Code hätte eine immense Schöpfungshöhe *grins*.. in dem Fall gings darum, DCL und LSP in eine Datei zu packen .... die reine Hilfe (wies geht) steht schon 2,3 Postings höher. *auch grins*@Plotter ... hat der Block in seiner Definition schon Attdefs, oder nicht? Und ist bloß das Attribut an der Blockreferenz nicht vorhan ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Änderung in LISP-Code
CADmium am 14.07.2010 um 09:03 Uhr (0)
Zitat:Original erstellt von joern bosse:... denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum nicht so gerne gesehen OT:Eine konkrete (Nach)Frage .... eine konkrete Lösungsmöglichkeit!! Ob Mercato die so nutzen will, soll und kann er selbst entscheiden. Wenn es dann zum beidseitigen Vorteil ist, um so besser!Also Information ! Unverlangte Berieselung würde ich löschen.Sonst könnte man hier auch kein Buch empfehlen .... Aber das ist nur ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Zeichenkette kürzen per Autolisp
CADmium am 29.04.2010 um 14:29 Uhr (1)
zum ersten :ersetze (setq RESULT (cadddr LST))(setq RESULT (substr RESULT 10))gegen (setq RESULT (caddr LST))(setq RESULT (substr RESULT 6))zum Erklären von (setq path (vl-string-subst "" "" "" path)) : gib mal VLIDE ein ... drücke dort F1 und lies selber was unter vl-string-subst steht und ja .. (setq Material (prompt "
Material")) ist syntaxmäßig richtig .... wird aber immer nil enthalten.ganz im Ernst: .... ich habe dein Anliegen "...Material und Beschreibung per Lisp.." überhaupt nicht interpretieren k ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : amtext3 in lisp
CADmium am 13.03.2008 um 21:06 Uhr (0)
(C:BEFEHL) -Funktionen kann man keine Parameter sind, damit sia als Autocadbefehle angemeldet werden können , ohne Übergabeparemeter programmiert. Die Parameter werden direkt im Programm abgefragt. Und da das Prog während der Ausführung modal ist, kommen nachgeordnete Kommmandozeileneingeban wie beim Commmandaufruf erst nach der kompletten Abarbeitung der Routine zum Zuge ... dqann meist als Fehlermeldungauslöser: "unbekannter Befehl" Guck dir einfach an , was der Befehl _text nachfolgend als Parameter hab ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Blöcke auflösen
CADmium am 12.07.2004 um 21:28 Uhr (0)
@Proxy wenns Minserts sind, diese einfach durch normale Inserts ersetzen! z.B. Per Lisp - MInsert-Properties auslesen- Insert erzeugen und Properties entsprechend setzen (Einfügepunkt,layer usw) Der Block liegt nämlich noch ungeschützt im Blocktable! zum Problem: MINSERTS sinds nicht! Die Blöcke enthalten 3D-Volumen-Körper, und die Blockreferenzen sind skaliert . _explode versucht ja die Inserts so zu zerlegen, wie sie am Bildschirm erscheinen (also skaliert), so wird z.B. aus dem Kreis eine Ellipse ...
|
| In das Form Rund um Autocad wechseln |
|
Autocad VBA : vorhandene Bemassungen ändern
CADmium am 02.12.2004 um 13:07 Uhr (0)
dann nimm dies ( auch wenn es Lisp ist) (defun PUTPRECISION(Precision / BLOCK ) (vl-load-com) (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) (if(wcmatch (strcase AcDbRotatedDimension ) *DIMENSION* ) (vl-catch-all-error-p (vl-catch-all-apply vla-put-PrimaryUnitsPrecision (list ITEM Precision) ) ) ) ) ) (vla-regen(vla-get-actived ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Lisp-Dateien extern bearbeiten
CADmium am 29.06.2008 um 09:20 Uhr (0)
Zitat:Original erstellt von archtools: Nun, das ist keine Weiterentwicklung oder auch nur Ergänzung von VisualLisp. Neue Funktionen kann ich mir schon auch selber schreiben, und Layermanager mit derselben Funktionalität wie den im heutigen AutoCAD gabs in AutoLISP auch schon vor 25 Jahren als Free- oder Shareware.Ja, schon klar ... ich sehe es aber als ein Zeichen, dass die Entwicklungsabteilung in der Hinsicht nicht gaaanz tot ist...und vielleicht doch etwas mehr macht, als die Releasenummer im INFO-Dial ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Ersteller einer Zeichnung
CADmium am 12.08.2013 um 09:05 Uhr (1)
Zitat:Original erstellt von Ingo Struck: Es gibt zwar ein Schriftfeld mit dem Namen "Autor", dieser müsste dann aber meines Wissens jedes Mal umständlich mit dem Befehl "dwgeigen" händisch eingetragen werden. Hat hierzu jemand eine Idee? auf diese Feld kann man auch mit Lisp zugreifen ... was man in der acaddoc.lsp laufen lassen könnte ... also zuerst Check , ob schon ein Autor eingetragen ist und wenn nicht , dann befüllen. Der Autorname ließe sich via "cond" in Abhängigkeit vom Loginnamen vergeben usw... ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Zahl mit Komma umwandeln
CADmium am 22.10.2012 um 07:16 Uhr (0)
So langsam könnte man bei dir ja auch mal eine "Weiterentwicklung" in Sachen Lisp erwarten .. ... egal .. ich hab dir mal die Zeile richtiger positioniert und hoffe, alle Klammern stimmen...(defun c:z-txt ( ) (setvar "OSMODE" 64) ; basispunkt (if(setq as(ssget ((0 . "TEXT")))) (progn (repeat (sslength as) (setq OBJ (ssname as 0)) (setq DATA (entget OBJ)) (if(and(or(setq Z(distof (cdr (assoc 1 DATA))2)) (setq Z(distof(setq DUMMY(vl-string-translate "," "." (cdr (assoc 1 DAT ...
|
| In das Form Rund um AutoCAD wechseln |
