|
Lisp : DBX - XREF-Pfadnamen ändern??
Brischke am 20.04.2010 um 11:48 Uhr (0)
Hallo Jörn,ich habe dir mal eine Funktion C#.Net geschrieben, mit der du die Sysvars externer Zeichnungen abfragen kannst.Die anbei befindliche DLL ist für Acad2009 und beinhaltet den zusätzlichen Lisp-Befehl: GetSysvarByDrawingDieser erwartet 2 Parameter[String] Zeichnungdatei, inkl. Pfad[String] Name der Systemnvariablen, die abgefragt werden soll.Die Rückgabe ist immer ein [String]Bspaufruf: (GetSysvarByDrawing "c:Test.dwg" "INSUNITS")Wenn du z.Bsp. damit den CLAYER abfragst, ist das Ergebnis intern ein ...
|
| In das Form Lisp wechseln |
|
Lisp : dyn Blöcke 2
Dorfy am 10.02.2010 um 07:30 Uhr (0)
Zitat:Original erstellt von Christian B.:...Soweit bin ich jetzt gekommen.Allerdings bin ich immer noch nicht so ganz da wo ich das Ding haben will. Ich will irgendwie alle Blöcke im Blockset bearbeiten.Dazu habe ich einen Zähler eingebaut, der noch irgendwie bis zu der max. Anzahl der Elemente in der Liste zählen soll und dann immer wieder, insofern vorhanden den Parameter abändern soll....Das erste geht, das zweite mit Variablen nicht.Hab ich da irgendeinen Denkfehler in der Reihenfolge? (Komme von VBA) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Herkunft eines Commands
clausb am 17.12.2005 um 16:16 Uhr (0)
Zitat:Original erstellt von Goofy007:2. Kann ich feststellen welche Parameter eine Funktion benötigt ohne den Quellcode zu kennen?Ich kenne mich mit Autolisp nicht aus, aber in Common Lisp gibt es "describe", mit dem man sich mehr zu einer Funktion sagen lassen kann. Beispiel in clisp:Code: (defun foobar(drei zwei eins meins) ) FOOBAR (describe foobar) ... #FUNCTION FOOBAR (DREI ZWEI EINS MEINS) (DECLARE #) (BLOCK FOOBAR) is an interpreted function. Argument list: (DREI ZWEI EINS MEINS)Siehe dazu beis ...
|
| In das Form AutoLisp wechseln |
|
Lisp : eattext und -eattext unterschiedlich im Ergebnis
CADmium am 03.07.2006 um 11:04 Uhr (0)
zu Sebastians Ausführung mal ein (ausbaufähiges) Beispiel in Normalo-Lisp(defun Getattribs (INSERT / OBJEKTDATEN LISTE ATTNAME ATTVALUE) (if(and(=(type INSERT)ENAME) (=(cdr(assoc 0 (setq OBJEKTDATEN(entget INSERT)))) "INSERT") (assoc 66 OBJEKTDATEN) ) (progn (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN))))) (if(and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB") (setq ATTNAME(cdr (assoc 2 OBJEKTDATEN))) (setq ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Punkt aus Auswahlsatz filtern
Brischke am 11.10.2002 um 20:08 Uhr (0)
Hallo Andrea, was funktioniert denn nicht? Hast du schon einmal das Programm im Einzelschritt ablaufen lassen und dabei das Verhalten beobachtet? Ich vermute, dass der Verglich in dem (If (=...) nie erfüllt wird, weshalb das Programm nie in die Zeile ( (cadr e1) (cadr e2)) reinläuft. Ersetze den Vergleich durch ein (equal (car e1)(car e2) 0.00000005) Begründung: Zwei Zahlen, die augenscheinlich gleich sind, können jedoch in der 16. Nachkommastelle abweichen. Das sieht man nicht, aber die Zahlen sind nich ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichnug schreibgeschützt öffnen
Leo Laimer am 21.12.2004 um 15:14 Uhr (0)
Hallo Freunde, Ich stehe jetzt vor einem Problem das anscheinend hier schon gelöst ist: Ich möchte in der derzeitigen Projektphase alle Dateien immer nur schreibgeschützt öffnen, um meine Kollegen bei der aktuellen Arbeit mit denselben Dateien nicht zu behindern (ich möchte nur anschauen und ev. Szenarien durchprobieren). Ich stelle mir so eine Art Schalter oder Parameter vor, den ich ev. beim Start von MDT mit übergebe, oder ein eigenes Icon/Tastenkombination im MDT . Nun weiß ich leider mit dem Code von ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lotrechte Linie durch alle Scheitelpunkte einer 3d-Polylinie
Brischke am 02.06.2015 um 14:34 Uhr (1)
beim ersten Drüberschauen ist mir sofort aufgefallen, dass die Parameter zu vlax-curve-getClosestPointTo nicht stimmen können. Du übergibst beide Elemente, was nicht stimmen kann, denn die Hilfe schreibt dazu:Zitat:Original aus der AutoCAD-Lisp-Hilfe(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])Argumentscurve-objThe VLA-object to be measured.givenPntA point (in WCS) for which to find the nearest point on the curve.extendIf specified and not nil, vlax-curve-getClosestPointTo extends the curve wh ...
|
| In das Form Lisp wechseln |
|
Lisp : set_tile für text in DCL: Leerstellenproblem
archtools am 23.10.2009 um 18:38 Uhr (0)
Zitat:Original erstellt von Peter2:Ein nicht so wichtiges, aber anscheinend seltsames Problem:Also: Die Variable Code:(setq x "c:datenlibla1libla2l......a34libla35mein langer test.xls")wird in der Befehlszeile mitCode:!x "c:datenlibla1libla2l......a34libla35mein langer test.xls"angezeigt, im Dialogfenster verbleibt nurCode:c:datenlibla1libla2l......a34libla35mein"Bug? Oder Feature? Oder vergessener Parameter?Erstens: Leerzeichen im String sind kein Problem. Probiers mal mit (setq x "1 2 3 4") ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layer zusammenstellen
CADOpa am 01.11.2005 um 21:28 Uhr (0)
passt zu meinem Problem...ich habe eine interne Layerstruktur aufgebaut, die mit einer unverwechselbaren Zeichenfolge zunächst die Firma und dann den jeweiligen Arbeitsbereich der geplant wird abgrenzt. Diese Struktur binde ich per VBA ein und formatiere sie. dies ist notwendig, da viele Pläne von ausserhalb mit bis zu 350 Layern bei uns ankommen. Allerdings muss bis jetzt in jeder Zeichnung manuell der Eigenschaftenfilter über das Dialogfeld "Layereigenschaften-Manager definiert werden und über das Kontex ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Fehler: no function definition: VLAX-ENAME->VLA-OBJECT
Nano am 07.05.2010 um 10:58 Uhr (0)
Hallo an AlleHabe ein dynamischer Block der ich einfüge und nachträglich ein Parameter ändere.In der Befehlszeile erhallte ich immer:Fehler: no function definition: VLAX-ENAME-VLA-OBJECT.VON FORUM:(DEFUN H001-10() (SETQ object (entlast)) (setProperty (vlax-ename-vla-object object) "Länge:" (distof h001l1)) (setProperty (vlax-ename-vla-object object) "Tiefe:" (distof h001b1)) (setProperty (vlax-ename-vla-object object) "Wa.Abst.:" (distof h001a1)) (setProperty (vlax-ename-vla-object object) "Anschluss:" "Li ...
|
| In das Form Lisp wechseln |
|
Lisp : Grundlagenfrage
autocart am 03.10.2006 um 22:52 Uhr (0)
Danke Thomas! Us unterwegs.Endlich hilft uns hier in diesem Thread jemand, der sich wirklich auskennt. Was ich trotzdem noch immer nicht verstehe:Du schreibst: Lisp-Funktionen, deren Namen mit c: beginnen, werden von defun im Acad als Autocadbefehl angemeldet. Ist klar.Weiter schreibst du: command interpretiert ihren Parameter (ich nehme an, du meinst das 1.Argument) als Autocadbefehl. Scheint auch irgentwie verständlich.Warum erkennt dann Autocad (oder ist es command selbst?) den von defun als Autocadbef ...
|
| In das Form Lisp wechseln |
|
AutoLisp : lisp parameter
michelangelo am 13.04.2004 um 17:04 Uhr (0)
ich formuliere meine frage um, dass heisst habe zwei fragen erstens wie bringe ich im angehängten lisp die aufforderung weg möchte es im stappel ausführen (alles auf Farb 8). wie kann ich die zeile mit _xplode und pltscale zum laufen bringen? (defun c:aufbereiten () (command filedia 0 ) (command _qsave 2000 ) (command BEREINIG AL N ) (command _AUDIT J ) (C:layerstatusliste) (command löschen alle ) (command -layer t * ) (C:as2isocp) ; ;as2isocp se ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Objektfang System- vs. Benutzereinstellungen
CADmium am 18.05.2009 um 09:46 Uhr (0)
2 Möglichkeitenentweder direkter Registryzugriff :(setq OSMODEDEF (vl-registry-read (strcat "HKEY_CURRENT_USER" (vlax-product-key) "PROFILES" (vla-get-ActiveProfile (vla-get-PROFILES(vla-get-preferences(vlax-get-acad-object))) ) "AcadmPreferencesDatagenOSWiz" ) "OSModeDef" ) )oder sowas(defun DT:OSMODEDEF (OSMODEDEF) (if(=(type gencfgget)EXRXSUBR) (progn (if(setq OSMODEDEF(gencfgget "gen@OSWiz@OSModedef")) (cond ((= OSMODEDEF 1)(prompt "
Aktuell: OSMO ...
|
| In das Form Lisp wechseln |
