|
AutoLisp : Koordinaten von Polylinie
scholes am 09.11.2005 um 16:02 Uhr (0)
Hallo Lisp-Experten,für meine Diplomarbeit muss ich Röntgenbilder von Herzschrittmacherpatienten auswerten und den Verlauf der Elektrode (Koordinaten) aufnehmen, um weitere Berechnungen anstellen zu können. Deshalb habe ich die Röntgenbilder in AutoCAD (weil Lizenz an der Uni vorhanden) eingefügt und skaliert,weiterhin dann eine Polylinie über die Elektrode gelegt und die Koordinaten manuell übernommen. In diesem Forum habe ich einen Threat gefunden wobei eine Routine ( http://ww3.cad.de/foren/ubb/Forum145 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Versetzen auf gemessener Strecke
Dober Heinz am 10.11.2005 um 08:31 Uhr (0)
Hallo habe mir ein Lisp geschrieben, wo ich eine Stecke Messe, diese Strecke dann teile und eine Linie auch dieser Strecke versetzten lass.aber das Versetzten funkt nicht so richtig.(defun c:mteilen (/ tei-len) (setq pt1 (getpoint "
Anfangspunkt eingeben: ")) (setq pt2 (getpoint "
Endpunkt eingeben: ")) (setq lange (distance pt1 pt2)) (setq teil (getint "
Wieviele Linien: ")) (setq tei-len (/ lange teil)) (setq entset (entsel)) (setq Element (car entset)) (setq side_point (getpoint "Punkt auf Seite ange ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
Dober Heinz am 11.11.2005 um 06:57 Uhr (0)
Morgen Lispler FrageHabe ein Lisp mit Text kopieren und um 1 Hochzählen, funkt alles superaber ich seh beim Kopieren den Text nicht,Frage, ist das viel aufwand das Lisp zu ändern das der Text sichtbar wird beim kopieren.Und wie fange ich das an, wenn jemand ein Beispiel hätte wäre superDanke------------------ Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 08:11 Uhr (0)
Hi,ich möchte mir gerne einen Zusatz zur Koordinatenbemassung von AutoCAD lt 2000 schreiben (ähnlich der von AutoCAD mechanical). Da ich leider ein absoluter Anfänger bin, erweist das ganze ziemlich schwierig für mich. Eine kurze Erklärung zum Bild:Wenn das Lisp gestartet wird:Frage nach dem Startpunkt und dem Abstand der Bemassung, wenn der Startpunkt die Koordinate null hat (egal ob Achse X oder Y) soll ein Kreis Ø2 in einem Abstand 1,25 vom Endpunkt der Bemassung erstellt und eine Linie aktiviert werde ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
charlieBV am 14.11.2005 um 08:14 Uhr (0)
Hallo Bassi,hast du nur LT oder LT mit Extender? Diese Frage mal vorab, da LT ohne Extender kein Lisp unterstützt. Nicht dass du dir Arbeit machst und dein Ergebnis nicht nutzen kannst...------------------Gruß Yvonne ADT-Help-Site"Die Erinnerung ist das einzige Paradies,woraus wir nicht vertrieben werden können." Jean Paul (1763-1825)
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 08:33 Uhr (0)
Hallo charlieBV,ich habe AuotoCAD 2000 LT mit LT-Extender und auch die ExpressTools.Leider werden Visual-Lisp nicht unterstützt.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
mkl-cad am 14.11.2005 um 08:37 Uhr (0)
HalloTolles Programm, habe aber noch ne Frage: Wenn ich den Befehl aufrufen möchte kann ich das ja durch ein anderes Lisp-Programm machen. welches dann den Objektenamen übermittelt. Dann erscheint aber in der Befehlszeile z.B folgendensTEXTZAHLERObjekt wählen: ((-1 . Objektname: 40208ca8 ) (0 . "TEXT") (330 . Objektname: 400ffcf8 ) (5 . "88D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "A-25") (100 . "AcDbText") (10 496.25 286.25 0.0) (40 . 2.5) (1 . "15/20") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . " ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
Dober Heinz am 14.11.2005 um 09:18 Uhr (0)
@ MKL-cadhabe das Lisp geschrieben um bei uns die Stromkreisnummern zu kopieren und um eins zu erhöhen.mehr brauchen wir nicht, das mit text und zahl wird sicher auch gehn, aber da ich anfänger bin fehlt mir das noch schwer so was zu schreiben. kanns ja mal versuchen gg ------------------ Heinz
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 09:40 Uhr (0)
Hallo Heinz,ob Visual-Lisp für diesen Zweck notwenig ist weiß ich nicht.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
mkl-cad am 14.11.2005 um 09:59 Uhr (0)
Hallo,das habe ich mir fast gedacht. Dazu verwenden wir foldendes Lisp:(defun c:e-nummer ( / wert a r o o2 l aa) (setq wert 1 r -1 a (ssget "x" ((0 . "Insert") (2 . "E-nr")))) (if (= a nil)()(progn (repeat (sslength a) (setq r (+ r 1)) (setq o (ssname a r)) (setq o2 (atoi (cdr (assoc 1(entget(entnext o)))))) (if (= o2 nil)(setq o2 "0")()) (if (or ( o2 wert)(= o2 wert))(setq wert (+ 1 o2))()) ))) (setq aa (tblsearch "layer" "E-stromkreisnr-ne")) (if (= aa nil) (command "layer" "neu" "E-stromkreis ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 12:51 Uhr (0)
Hi gmk,ehrlich gesagt, weiß ich nichtmal wo ich richtig anfangen soll. Meine Kenntnisse in Lisp sind sehr bescheiden.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 15.11.2005 um 12:11 Uhr (0)
Hallo georg,vielen Dank für dein Lisp funktioniert jetzt, nur - nicht das du jetzt denkst ich möchte meckern, aber ich habe mich falsch ausgedrückt. Sorry !!!Das Vorzeichen ist nicht so wichtig.Wichtig wäre wenn die Koordinatenbemassung aufgerufen wird und der Abstand festgelegt und wenn Koordinate 0, das an dieser Stelle ein Kreis erstellt wird.Danach gehts über _dimcontiune weiter und es wird an jedem Maßpunkt ein Pfeil erstellt - ausgehend von Koordinate 0: wenn links von 0 (X-Achse), dann Pfeil rechts ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : attout
Brischke am 16.11.2005 um 05:48 Uhr (0)
Hallo Udo,ich tippe mal: Falsches Forum.Da AutoCAD LT im Normalfall kein Lisp unterstützt, werden die Besucher dieses Forums in aller Regel auch kein LT haben. So geht es mir, weshalb ich deine Beschreibungen auch nicht nachstellen/testen kann.AutoCAD-LT-ForumGrüße Holger------------------Holger BrischkeCAD on demand GmbH Autodesk User Group Central EuropeIndividuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verl ...
|
| In das Form AutoLisp wechseln |
