|
Lisp : PSLTSCALE alle Layouts, kein Umschalten
CAD-Huebner am 08.07.2015 um 09:58 Uhr (1)
Der Code funktuioniert auch in AutoCAD 2016 und muss so aufgerufen werden:Code:(sw*set-psltscale-all 0)Das ist eine reine LISP Funktion mit Parameter - keine Funktion die als Command (dann mit C: aber ohne Parameter) aufgerufen werden kann.Mann kann aber noch eine Funktion dazuprogrammierenCode:(defun C:SETPSLTSCALE0 () (sw*set-psltscale-all 0))aber ob das notwendig ist in diesem Fall?------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz für Objektwahl speichern
wronzky am 19.01.2009 um 09:16 Uhr (0)
Hi, Zitat:Nebenbei währe toll wenn mir einer erklären könnte wie ich mehrer Auswahlsätze in Lisp zu einem zusammen fassen kannich hatte HIER mal die Funktion SSMERGE gepostet. Die macht sowas.Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Bogenbemaßung
Alderon am 19.01.2009 um 11:16 Uhr (0)
Hallo liebes Forum,anbei eine Lisp Routine, welche eine Bogenbeaßung erstellt. Leider immer mit 4 Stellen hinter dem Komma.Da ich keine Ahnung von Lisp habe , folgende Bitte: Was muß ich hier ändern oder ergänzen, damit dieKommastellen wegfallen, mir reichen ganze Millimeter. Ist für euch bestimmt ein leichtes.;REM Bogenbemasung(defun c:BemBL(/ es en el len) (setq es(entsel "Bitte Bogen wählen: ")) (if es (progn (setq en(car es) el(entget en) ) (if (= "ARC" (cdr (assoc 0 el)))(progn (setq len(Bog ...
|
| In das Form Lisp wechseln |
|
Lisp : Bogenbemaßung
CAD-Huebner am 19.01.2009 um 11:44 Uhr (0)
IMHO ist mit AutoCAD 2006 (wg Sysinfo) keine Lisp-Rpoutine mehr nötig für eine Bogenlängenbemaßung. Dafür gibt es seit AutoCAD 2006 den Befehl BEMMOGEN/_DIMARC.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Fehler in der Lisp
CADmium am 22.01.2009 um 16:06 Uhr (0)
Datei ncedialo.dcl in einem ACAD-Installverzeichnis ?bzw. wird die Umgebungsvariablen "TCBLECH" überhaupt initialisiert ?? -- Denke das ist es da müßt ihr z.B. in der acad.lsp noch(setenv "TCBLECH" "C:LISP") oder so setzen .. guck mal in deiner alten Installation ..Wie lautet denn die genaue Fehlermeldung beim Ausführen?------------------ - 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 : Fehler in der Lisp
jchenri am 22.01.2009 um 16:32 Uhr (0)
Ich danke dir.... Jetzt geht´s
|
| In das Form Lisp wechseln |
|
Lisp : Hatches von User-defined auf Custom ändern
silvatika am 30.01.2009 um 15:23 Uhr (0)
Hallo Zusammen,ich hatte bereits vor ca. einem halben Jahr eine Anfrage in der gleichen Angelegenheit im Allgemeinen AUTOCAD-Forum gestellt, bin aber noch nicht endgültig zu einer Lösung gekommen. Hoffe nun, man kann es irgendwie über LISP oder vielleicht auch VBA lösen.Hier die Problemstellung:Ich habe eine SICAD-Datei duch den FME-Konverter laufen lassen und eine DWG-Datei erhalten. Allerdings werden die Hatches nicht richtig konvertiert. Ich habe zwar für verschiedene Hatchtypen (z.B. ZEBRA = Zebrastrei ...
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
Nano am 01.02.2009 um 16:55 Uhr (0)
hallo UdoKannst Du mir erklären, warum ich die Kanal-Breite nicht ändern kann.Habe hier ein kleines LISP.(DEFUN C:kbr()(command "_Insert" "kanal4" (setq pt (getpoint "Einfügepunkt: ")) "" "" "") (SETQ object (entlast)) (SETQ breite (GETDIST "Wert für Breite: ")) (setProperty (vlax-ename-vla-object object) "Kanal-Breite" breite))Gruss Nano
|
| In das Form Lisp wechseln |
|
Lisp : Wert von dynamischer Block lesen?
CAD-Huebner am 01.02.2009 um 17:26 Uhr (0)
Zitat:Original erstellt von Nano:hallo UdoKannst Du mir erklären, warum ich die Kanal-Breite nicht ändern kann.Habe hier ein kleines LISP.(DEFUN C:kbr()(command "_Insert" "kanal4" (setq pt (getpoint "Einfügepunkt: ")) "" "" "") (SETQ object (entlast)) (SETQ breite (GETDIST "Wert für Breite: ")) (setProperty (vlax-ename-vla-object object) "Kanal-Breite" breite))Gruss NanoWas genau macht denn die Funktion setProperty?Lege bitte von dieser Funktion noch den Quelltext bei.------------------Mit freundlichem ...
|
| In das Form Lisp wechseln |
|
Lisp : vb.net dll aus Lisp aufrufen
CAD-Huebner am 01.02.2009 um 21:51 Uhr (0)
Ich lese jetzt gerade IV8 = AutoCAD 2004 im Profil - ist das noch aktuell?Damit wirds wohl nicht gehen, denn die man benötigt für Lisp-Funktionen aus .net dlls die Implementation von "LISP callable wrappers" aus AutoCAD 2007s managed API.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : vb.net dll aus Lisp aufrufen
DerUhrmacher am 01.02.2009 um 22:39 Uhr (0)
Danke für die TippsHabe aktuell ACAD 2007 und ACAD 2008 im Einsatz.Muss irgendwann einmal die Systeminfo anpassen :-)Leider bin ich kein ADN-Mitglied und kriege nicht alles mit was so läuft.Den Artikel werde ich mal zu Gemüte ziehen, sieht spannend aus.Vielen Dank,Andreas
|
| In das Form Lisp wechseln |
|
Lisp : vb.net dll aus Lisp aufrufen
Brischke am 02.02.2009 um 08:24 Uhr (0)
Hallo Andreas,du kannst mit _.netload die .Net-Assemplys laden. Ob diese dann Lisp-Seitig anzusprechen ist ... ??? Das liegt dann am Inhalt dieser Assembly.Du kannst ja mit Lisp auch TLB-Dateien ansprechen. Deshalb solltest du mal nach REGASM googeln. Mit dieser im Framework enthaltenen exe, kannst du aus einer .Net-DLL eine COM-tlb erzeugen. Vielleicht ist das der Weg zum Erfolg?Bei Fragen ...Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.
|
| In das Form Lisp wechseln |
|
Lisp : Hatches von User-defined auf Custom ändern
joern bosse am 02.02.2009 um 10:18 Uhr (0)
Hallo Silvatika,unter ACAD 2008 hat es mit folgendem LISP funktioniert, kannst Du Dir dann ja noch ein bißchen anpassen (hier werden erstmal nur den ZEBRA-Schraffuren "benutzerdefiniert zugewiesen").Code:(defun c:test ( / aws n) (if (setq aws (ssget "_X" (list (cons 0 "HATCH") (cons 2 "ZEBRA")))) (progn (setq n 0) (repeat (sslength aws) (command "-schraffedit" (list (ssname aws n) (cdr (assoc 10 (vl-remove-if (lambda (A) (and (= (car A) 10) ...
|
| In das Form Lisp wechseln |
