|
AutoLisp : INI-Datei schreiben / lesen
fuchsi am 19.11.2003 um 09:35 Uhr (0)
ich hab mir da eine activeX Dll geschrieben, die ich dir zur verfügung stellen kann die dll einfach ins winntsystem32 kopieren und registrieren dann hast du folgende neuen befehle (setq actools (vlax-get-or-create-object acadtools.tools )) (vlax-invoke actools StartApplication notepad ) (vlax-invoke actools ReadIni Section Entry Default IniFile) (vlax-invoke actools WriteIni Section Entry Value IniFile) (vlax-release-object actools) mit vlax-get-or-create-object wird das objekt instanziert (vlax ...
|
|
AutoLisp : ja ja diese reaktoren...
fca_mi2 am 24.11.2003 um 10:02 Uhr (0)
hallo, obiger reaktor ist der erste, den ich überhaupt geschrieben habe, bin also noch nicht so bewandert. mir ist nicht ganz klar, wie ich ein element aus der zeichnung dauerhaft mit einer lisp-routine verknüpfe. ------------------ MfG Frank
|
|
Lisp : VRML export
fuchsi am 26.11.2003 um 08:16 Uhr (0)
danke mapcarsource ist nicht mehr nötig, habs in lisp realisiert, zuerst 3dsout, 3dsin damit hab ich die 3ecks-flächen und dann per lisp sortieren und gemeinsam benutzte kanten elimienieren. ist trotz meiner befürchtung doch nur ein lisp mit nur 120 zeilen geworden.alllerdings hab ich jetzt das problem , dass die meisten vrml-viewer erst recht wieder dreiecke reinlegen. und zwar vom ersten punkt zu jedem der folgenden des poligonzuges, sodass bei Tischplatten mit Einbuchtungen, oder Tischplatten ums Eck, u ...
|
|
AutoLisp : Aus Datei lesen
Emperor am 17.01.2002 um 22:04 Uhr (0)
moin moin! ich hätte da noch ein paar fragen, aber alles nach der reihe wie kann ich aus einer datei lesen und z.b. genau eine zeile ansprechen und daraus lesen? mit der write-line beschreibeung in der hilfe von acad 14 werd ich einfach nicht schlau. und wie kann ich von acad (also mittels einer lisp-anwendung) auf die registry zugreifen? dort schlüssel erstellen, editieren und entfernen? geht das überhaupt???? danke schonmal gruß Emperor
|
|
AutoLisp : Aus Datei lesen
benwisch am 06.02.2002 um 12:38 Uhr (0)
schade, daß hier noch nicht so viel los ist.... @pirilao tolle Antwort !!! aber mal ne frage zu lisp-bücher.... habe bisher noch keine deutschsprachigen bücher gefunden.....habe ich falsche suchbegriffe verwendet, oder gibt es tatsächlich nur englischsprachige (was mir aber dann doch zu schwer ist)?? deine links werde ich mir mal gleich anschauen
|
|
Lisp : BUCH TIP !!!
fuchsi am 28.11.2003 um 18:08 Uhr (1)
tschuldige, ´hab mir das buch auch gekauft (besser gesagt meine firma) und war schwer enttäuscht darüber.eigentlich wirklich nichts neues, ausser allgemeines bla blaok. vielleicht liegt es daran, dass ich seit 1992 autocad per lisp programmiere (und das ohne bücher, sondern im eigenstudium) und den internen datenbank-aufbau ziehmlich genau kenne------------------***********************************************AutoCad 2000i, 2002, 2004 deutsch und englischWindows 2000, NT, XPProgrammiere in Lisp, VB6, VBA un ...
|
|
AutoLisp : Bemaßungsstil
GEST am 08.12.2003 um 08:13 Uhr (0)
Hallo, ich suche nach einer Möglichkeit bei sämtlichen in der Zeichnung vorkommenden Bemaßungsstilen als Maßlinienbegrenzung einen Pfeil einzustellen. Wie geht das am günstigsten in lisp. ------------------ Gruß Steffen
|
|
AutoLisp : Polylinien
CADmium am 09.12.2003 um 11:20 Uhr (0)
Na o.k . präsentieren wir eine Speziell-für dich-angepaßte Lösung! EDIT: Die letzte Fassung steht im Beitrag weiter unten..... Und guck dir die Kommentierung an und schau mal auf http://www.autolisp-tutorial.mapcar.net und in ein paar Monaten sind solche Anpassungen für dich dann auch kein Problem. Siehst ja, wieviel Arbeit einem ein Lisp abnehmen kann. Gruß Thomas [Diese Nachricht wurde von CADmium am 09. Dez. 2003 editiert.] [Diese Nachricht wurde von CADmium am 10. Dez. 2003 editiert.]
|
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
Schachinger am 12.12.2003 um 10:33 Uhr (0)
hallo forum - wieder mal ne lainefrage aber was solls. ich möchte über lisp mehrere linien in beide richtungen um einen bestimmten abstand versetzten. also nach oben und unten. mein code dazu: (defun c:layer2pipe2D () (setq pickmode (getvar pickstyle )) (setvar pickstyle 0) (command -layer _m Rohrmitte _c 5 farbenew ) (command _ucs _world ) (while (not (setq obj (entsel
Objekt mit dem Rohr-Layer wählen: )))) (setq lrohr (cdr (assoc 8 (entget (car obj))))) (setq DN (ge ...
|
|
AutoLisp : Koordinateneingabe bei (command "_offset")...
Schachinger am 12.12.2003 um 11:11 Uhr (0)
hallo fuchsi! erstmal danke für dein posting - mit end/startpunkt und winkel funktioniert es - DANKE was ich jedoch noch immer nicht verstehe ist warum es mit meiner variante nicht funktioniert. denn ich lege zufür im lisp mit (command _ucs _obj en) das BKS auf die Linie - das heist X-Achse verläuft in Richtung der Linien-Achse. Usprung liegt am Anfangspunkt. dann müssten mit den Abständen 0,1 und 0,-1 ja auch die linien richtig versetzt werden? außerdem wirds bei den bögen dann kompliziert *G* kan ...
|
|
AutoLisp : action_tile
fca_mi2 am 16.12.2003 um 12:25 Uhr (0)
hier die dcl : fc_kaefig : dialog { label= Käfig bauen ; :row{ :boxed_column{ :edit_box { key = DCLEdit1 ; label = Abstand in x-Richtung ; value = 0 ; edit_width = 3 ; height = 0.9 ; } : button { key = DCLButton1 ; label = x Einfügen ; width = 10.0 ; height = 2.1 ; is_tab_stop = false ; } ...
|
|
AutoLisp : action_tile
fuchsi am 16.12.2003 um 12:44 Uhr (0)
bin mir nicht ganz sicher , aber du müsstest im action-tile den parameter $REASON deiner lisp-funktion mitgegen, der ist soweit ich noch weiss bei verlassen eines eingabefeldes mit tab oder maus den wert 2 bei enter den wert 1 in etwa so: (action_tile MeineEingabeBox (MeinLispFuerEingabe $REASON) ) und im lisp den wert abprüfen, nur bei 1 die liste aktualisieren sonst häng dochmal ein print rein , um die variable zu prüfen ------------------
|
|
AutoLisp : action_tile
fuchsi am 16.12.2003 um 12:55 Uhr (0)
hab jetzt erst gesehen, dass du dein lisp und dcl gepostet hast im action_tile ergäntzt du folgendermassen (action_tile DCLEdit1 (x_einfueg $REASON) ) un im aufgerufenem programm prüfst du den übergebenen wert (defun x_einfueg ( wie /) (cond ((= wie 1) ; mit enter .... nur hier soller weietrtun ------------------
|
