|
AutoLisp : Textdatei importieren
CADwiesel am 17.11.2003 um 12:36 Uhr (0)
naja, der dürfte auch ähnlich sein Kommt darauf an, wie deine Textdatei aufgebaut ist. steht in jeder Zeile nur ein Wert, musst du immer 4 Zeilen auslesen um zu einem zusammengehörigen Eintrag zu kommen (x,y,z, Text) das kannst du umwandeln in eine Koordinate und da den Text einfügen -einfach per command. wenn du Koordinate und text in einer Zeile stehen hast, du fängst an eine Zeile auszulesen dann zerlegst du die ausgelesene Zeile in die Koordinate und den Text und weiter gehts wie schon o.g. ps in mei ...
|
|
AutoLisp : Textdatei importieren
fuchsi am 17.11.2003 um 12:40 Uhr (0)
das könnte mit folgendem kleinem lisp passieren allerdings musst du die zeile (command TEXT ep 2.5 0 text ) anpassen , der wert 2.5 ist die texthöhe des zu erstellenden textes sollte dein aktuelelr textstil bereits fix eine höhe zugeweisen haben, muss die zeile so ausschauen (command TEXT ep 0 text ), damit das fehlerlos funktioniert !! (defun c:txtimp (/) (cond ((setq file (getfiled Textfile einlesen Textfile txt 0)) (setq x (open file r )) (while (setq dat (read-line x)) (setq a1 ...
|
|
AutoLisp : Syntax-Error
fuchsi am 17.11.2003 um 14:04 Uhr (0)
das ist so nicht so leicht zu lösen, stell mal das lisp hier rein dann kann ich die sagen , was du ändern musst ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
|
AutoLisp : activeX und "altes" lisp
fuchsi am 17.11.2003 um 14:10 Uhr (0)
habt ihr auch schon mal bemerkt, wenn man activex-befehle (z.B.: vla-SETXDATA) mit standard lisp (entmake, entget ,..) kombiniert, dass autocad öfters mal mit einem systemfehler crashed (eLockViolation - error) Abhilfe filft hier ein sinmples (Command ._READRAW ) zwischen den einzelnen technologien ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
|
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 ...
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
