|
AutoLisp : einfügepunkt ändern
valerich am 13.05.2004 um 17:50 Uhr (0)
Hallo michelangelo, hier ist ein LISP-Programm. Hoffe das hilft dir. ;------------------------------------------------------------- (defun c bjIns ( / cmdecho laenge hoehe text insPoint minPoint minPoint osn minPoint1 maxPoint1) (setq cmdecho (getvar CMDECHO )) (setvar CMDECHO 0) (while (not laenge) (setq laenge (getreal
Laenge [m]: )) );end while (while (not hoehe) (setq hoehe (getreal
Hoehe [m]: )) );end while (setq text (getstring T
Text: )) (setq insPoint (g ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layerstruktur bearbeiten
Musicus am 04.07.2008 um 11:43 Uhr (0)
Zitat:Original erstellt von Dorfy:@Musicus ...schade Zitat:Original erstellt von Musicus:Ich habs geschafft :Dund es funktioniert :) :) :)Jetzt bin ich zufrieden mit der Welt :DUnd jetzt Feierabend!Deine Mühe in Ehren, aber ich hab nach wochenlanger Bastelei mit viel nachlesen, ausprobieren und hier nachfragen einen Code auf die Reihe bekommen, der das tut, was ich möchte.Warum soll ich jetzt wieder von vorne anfangen? Noch dazu mit "hingeworfenem" Code, der weder ne Beschreibung, was er tun soll, n ...
|
| In das Form Lisp wechseln |
|
Lisp : entmod / Objekt DIMENSION
archtools am 10.05.2011 um 18:37 Uhr (0)
Zitat:Original erstellt von Bernd10:Hallo,ich habe ein Problem, wenn ich das Objekt DIMENSION mit der Funktion entmod ändern möchte. Ich möchte dabei die Linien, die zu den Punkten der Gruppencodes 13 und 14 führen verkürzen. Mit der Funktion entmod werden diese beiden Punkte zwar wie gewünscht geändert, aber die Linien bleiben trotzdem so lang wie vor dem Aufruf von entmod. Zum besseren Verständnis habe ich noch eine Beispiel-Zeichnung und Test-Lisp beigelegt.Was muss ich noch tun, damit die Linien zu de ...
|
| In das Form Lisp wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
Der Turl am 04.05.2011 um 17:15 Uhr (0)
Ich möchte diesen alten Thread wiederbeleben :-)also ich hab da ein ähnlich gelagertes problem welches sich bei der übernahme von architekturzeichnungen in extrem vielen TEXTSTILE nach dem schema STIL 1 = ARIAL STIL 2 = ARIAL ..STIL 234 = ARIAL STIL 235 = VERDANASTIL 236 = VERDANASTIL 237 = VERDANA..STIL 333 = VERDANAusw äußert. somit sind unzählige schriftstile mit jedoch nur einigen SCHRIFTARTEN vorhanden.mein ziel ist es diese Stile zu belassen aber global in zB. SIMPLEX abzuändern wobei jedoch auch bes ...
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block ändert Namen?
CADmium am 24.10.2012 um 14:30 Uhr (0)
...bei Referenzen von Dynamischen Blöcken nicht nach Blocknamen suchen, sondern nach deren Effektivnamen .. dazu die vla-Funktionen nutzen, da es über Normalo-Lisp nicht direkt implementiert und der Zugriff etwas tricki ist ....Mal etwas Bsp-Code für C&P (defun BLOCKSELECT ( NAMEFILTER / BLOCK LISTE SSET SSET2 ITEM VLAITEM INDEX) (vl-load-com) (or(=(type NAMEFILTER)STR)(setq NAMEFILTER "*")) (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (if(and(=(vla-get-isxref BLO ...
|
| In das Form Lisp wechseln |
|
Lisp : Finde Fehler nicht ...
romi1 am 29.12.2008 um 08:58 Uhr (0)
Hallo!Habe ein Lisp "lihe" geschrieben, welches die Z-Koordinate von Linien-Anfangs- und Endpunkt auf den Wert von bestimmten Blockattributen hebt (im eingestellten Fall müssen die Blockattribute den Namen "HOEHE" oder "PHOH" haben). Vorrausgesetzt ist immer, die X- und Y-Koordinaten der Linienendpunkte decken sich mit dem Blockeinsetzpunkt.Nun wollte dich das Prog. erweitern, habe aber entdeckt, das irgendwas faul daran ist. Ich finde es aber beim besten Willen nicht heraus ...Folgendes Problem: Habe nun ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsätze
BJH am 20.07.2008 um 16:33 Uhr (0)
Hallohabe folgende Lisp geschrieben. Hier werden alle Elemente innerhalb einer Polylinie und die Polylinie selberausgewählt. Sollte es so eine Polylinie nicht geben kann Alternativ gewählt werden. (while (null obj) (setq obj (entsel "
Waehle Umgrenzende Polylinie: "))) (setq auswahl obj) (if (wcmatch (strcase (cdr (assoc 0 (entget (car obj)))))"*POLYLINE") (progn (setq plist (GET-PL-POINTS (car obj))) ;GET-PL-POINTS ermittelt Polylinienpunkte (command "_zoom" "G") (setvar "OSMODE" 0) (setq obj (s ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Modellexport
HansGeorg am 29.09.2003 um 14:58 Uhr (0)
Hallo zusammen, ich muß aus MDT laufend Modelle als iges ausgeben. Die Datenqualität steigt wenn zuerst das Modell als sat File ausgegeben wird, danach in ein neues Template importiert und als IGES exportiert wird. Da dies sehr mühsam ist möchte ich dies gerne automatisieren. Leider komme ich mit meinen Programmierkenntnissen nicht sehr weit. Die Schwierigkeit besteht darin, sobald das neue Template geöffnet wird läuft das Lisp trotzdem in der anderen Zeichnung weiter. Desweitern kann ich der IGES Ausgabe ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Befehl _.-group / Hinzufügen
Bernd10 am 23.11.2020 um 15:43 Uhr (1)
Hallo an euch beide,leider besteht der Fehler auch mit der englischen Option.1. Version ---------------------------------------------------------------------------Lisp-Befehl:(command "_.-group""_add" cgruppename pgruppe "") ; HinzufügenGrößerer Asschnitt im Textfenster bei der Ausführung in meiner VLX-Anwendung:Befehl: _.-layerAktueller Layer: "AW-A_schwarz250!42.41.42!RALCLASSIC$RAL9017"Option eingeben [?/Machen/SEtzen/Neu/Umbenennen/EIN/AUS/FArbe/Ltyp/LStärke/TRansparenz/MATerial/Plot/PStil/Frieren/Taue ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 13.02.2013 um 08:36 Uhr (0)
Bau dir doch erstenmal was einfacheres auf - Einen Quellblock wählen von dem du dir alle Eigenschaften, die du willst, ausliest und im Anschluss auf die anzupassenden Blöcke überträgst. Eine weitere überlegung wäre dann, dein tool mit einem DCL menu zu verbessern.Es ist ein ganzes Stück Arbeit, was du abverlangst, davon hast du schlussendlich wenig gewonnen.Hier mal ein Anfang....Code:(defun EigAuslesen (srcblk / ; QuellblockObjekt srcobj ; VLA Objekt;;; lst ; Ergebnis Eigenscha ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktfilter als Shortcut
Jonapap am 17.10.2006 um 11:52 Uhr (0)
Hallo zusammen,ich habe mir auf den Nummerntastenblock Shortcuts für Punktfilter gelegt um während des Zeichnens immer schnell damit arbeiten zu können.Das klappte auch bis Autocad 2004 ganz gut.Seitdem aber die dynamische Eingabe (am Cursor) eingeführt wurde, funktionieren die Shortcuts nicht mehr richtig.Wenn ich z.B. beim Zeichnen einer Linie "6"-Drücke (für .X-Filter) dann erscheint in der Befehlszeile richtig .X von aber gleichzeitig erscheint in der dynamischen Eingabe eine 6.Daraufhin löst sich der ...
|
| In das Form Lisp wechseln |
|
Lisp : Aus Lisp ein BAT starten und darauf warten
joern bosse am 13.12.2010 um 14:56 Uhr (0)
Hallo Peter,auch ich habe schon das Thema gehabt und habe es folgendermaßen gelöst: Ich benenne die auszuführende Datei um, führe Sie dann aus und laß eine While-Schleife hinterherlaufen, die solange läuft, bis die Datei wieder in Ihren ursprünglichen Namen umbenannt werden kann. Zudem läuft ein Indexzähler mit (im Beispiel bis 400000) damit darüber ein Notausstieg aus der While-Schleife erfolgen kann, wenn die Datei nicht mehr umbenannt werden kann. Sicherlich nicht sehr elegant, aber bisher habe ich dami ...
|
| In das Form Lisp wechseln |
|
Lisp : Region in Polylinie verwandeln.
fuchsi am 07.08.2007 um 15:06 Uhr (0)
@JanIch wollte eigentlich nur darauf hinweisen, dass ein (entlast) nicht unbedingt das letzte Element in der Datenbank beinhaltet.Das hat aber mit dem Problem in diesem Post eigentlich nichts zu tun.Also in folgendem Beispiel von CAD-HUEBNER(defun c:test ( / reg last_obj aws_temp) (setq reg (car(entsel "
Region auswählen:")) last_obj (ENTLAST) ; regaws_temp (ssadd)) (command "_.explode" reg) (while (setq last_obj(entnext last_obj)) (ssadd last_obj aws_temp)) (command "_.pedit" (ssname aws_temp 0) "_Y" ...
|
| In das Form Lisp wechseln |
