|
AutoLisp : ansichtsfenster koordianten
mapcar am 17.02.2003 um 11:16 Uhr (0)
Da gibt es zwei Möglichkeiten: Mit ActiveX kann man über Document.ActiveLayout an das derzeit aktive Ansichtsfenster rankommen - wenn es nicht aktiv ist, geht es über Document.Viewports.Item. Die Variable TILEMODE muss 0 sein. Über Viewport.LowerLeftCorner und Viewport.UpperRightCorner kann man s dann auslesen. Etwas nifteliger ist Standard-Lisp: Über (entget mansfen )) kommst du an die Daten. Die Koordinaten der Ecken sind nicht gespeichert, sondern der Mittelpunkt (GC10) und Breite (GC 40) sowie die Hö ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ansichtsfenster koordianten
mapcar am 18.02.2003 um 09:48 Uhr (0)
Georg, ein paar Korrekturen: vla-get-LowerLeftCorner und --UpperRightCorner sind nicht für PViewport, sondern für Model-Vports definiert. Es geht also in beiden Fällen um Zentrum, Höhe, Breite. Und es ist (trans 3 2), kleine Verwechslung;-) Diese Lisp-Routine macht dir einen Durchschlag des aktiven Mansfens im Modellbereich (aber nur, wenn kein BKS usw. -- es wird nichts geprüft!): (defun vrect( / doc vport model c h w p pts) (vl-load-com) (setq vport (vla-get-ActivePViewport (setq doc ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
Brischke am 17.02.2003 um 13:44 Uhr (0)
Hallo Heinz, Anmerkungen sind im Text ... Zitat: Original erstellt von Dober Heinz: Hallo Lispler Kann mir das Programm jemand so ändern das ich textstil und höhe selber vorher festlegen kann, ohne das ich den stil Standard änder muss, und Layer auf den Aktuellen. danke heinz (defun c:number (/ nr ipt ant th tlay prefix ) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant(getint "
Startnummer 0 ")) (1- ant) 0 ) ) ;;neu (setq th (getreal "
Texthöhe:") tlay (getstring "
Ziellayer:") ;; (while ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
Brischke am 17.02.2003 um 14:29 Uhr (0)
...Klammer gefehlt... Das kommt davon, wenn man das direkt in die Antwort schreibt, und keinen Editor nutzt. CADwiesel hat natürlich recht, was den Layer angeht. Da kann man dann noch ein Listenfenster mit der Auflistung aller Layer aufgehen lassen. Da wählt man den Layer aus, dann ist s eindeutig. Ich schau mal, dass ich das heute Abend mit hinbekomme. Bis dahin ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload Wissen wie es gemacht ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
Brischke am 18.02.2003 um 12:41 Uhr (0)
... hab es gestern nicht mehr geschafft. Sehe zu dass ich das die Woche noch mit reinschiebe. Holger ------------------ Holger Brischke CADlon - Lisp over night! Wieder 2 neue Tool s im FreeDownload Wissen wie es gemacht wird? Jetzt Quellcode für die Hälfte
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:24 Uhr (0)
Hallo Mario, eine Aufstellung findest du in der AutoCad Hilfe unter DXF-Reference. Gruß Cad-Lisp
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:39 Uhr (0)
Hallo Heinz, ich habe mir einmal erlaubt das Lisp zu ändern, damit es läuft. So sollte es funktionieren. Die Frabe stimmt aber nur dann, wenn der ausgewählte Layer die Farbe vonLayer hat. (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (while ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 13:22 Uhr (0)
Hallo Heinz, die Programmierung kam nicht von mir, habe nur die vorhandenen Fehler beseitigt. Aber trotzdem hier die gewünschte Änderung. Gruß Cad-Lisp (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar "CLAYER")) (setq prefix (getstring "
Textprefix: ") nr (if (setq ant (getint "
Startnummer 0 ")) (1- ant) 0 ) ;_ end of if th (getreal "
Texthöhe:") ) ;hier fehlte eine Klammer (princ "
Wählen sie ein Element für die Layers ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Platzbedarf (Kontur) von AutoCAD-Objekten
axeld am 27.02.2003 um 15:06 Uhr (0)
Hallo an die Lisp-Spezialisten, gibt es vielleicht schon ein Lisp-Programm, mit dem man von AutoCAD-Objekten den Platzbedarf errechnen kann. Ich würde gerne einige Symbole in eine große Zeichnung einfügen. Dazu brauche ich die Größe der Symbole, um den Skalierfaktor einzustellen. Die Symbole sollen in ein Raster eingefügt werden. ------------------ Axel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
CADwiesel am 26.11.2002 um 17:31 Uhr (0)
Ja ist in acad ab 2000 integriert (_vlide) für R14 schick mir ne Mail ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
gmk am 28.11.2002 um 08:43 Uhr (0)
Hi Cadwiesel! Genau so was hab ich gesucht! Ciao Georg
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
MC am 22.01.2003 um 10:14 Uhr (0)
Hallo CADwiesel, ich bin auch auf der Suche nach so einem Editor, benutze allerdings nicht Autocad sondern SolidDesigner. Zur Zeit verwende ich zum Editieren Ultraedit32 mit einem Lisp-Plugin, aber Klammern kann man damit soweit ich das durchschaut habe nicht überprüfen und einen Debug-modus gibt s auch nicht. Gibt es denn noch andere brauchbare (freeware-)Editoren für Windows? Den von GNU habe ich mal versucht runterzuladen, aber das klappte irgendwie garnicht. Vielen Dank im Voraus, Michael
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisp-editor
MC am 23.01.2003 um 10:06 Uhr (0)
Hallo CADwiesel, vielen Dank für Deine Mühe! Werde gleich mal alle ausprobieren. Michael
|
| In das Form AutoLisp wechseln |
