|
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 |
|
Lisp : Automatic Dimension AutoCAD LISP??
cadffm am 02.08.2023 um 14:15 Uhr (1)
"Kann ich diese Liste irgendwo separat auf dem Server speichern und über meinen AutoLISP-Code darauf zugreifen"Ja das gehtGoogle nach Code mit zB. den Lispfunktionen read-line und write-lineund schaue natürlich auch mal in die Hilfe[F1]Ein Beispiel, Test.txt Datei sieht so aus:testcnccnc1oderwasanderesEinfache Beispielfunktion dafür {nachträglich editiert}(defun testin (/ rf line) (setq mylist nil) (if (findfile (setq file "D: est.txt")) (if (setq rf (open file "r")) (while (setq line (re ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe beim Rauschschreiben !!!
FiRePhoeniX am 01.08.2008 um 16:00 Uhr (0)
Danke Andreas Kraus du hast recht.So zu deiner ersten frage zu komme ich brauch die Kordinaten deswegen.Weil die in eine anderes Program eingelesen werden. Das problem daran ist das die Tabelle eine komische formatierung hat.Name objekt Punkt typ KordiinatenUnd zwischen diesen Spalten muss ein Tabolato sprung sein sonnst erkennt es das objekt nicht. Mit einer Linie geht das gut aber wie mach ich das mit Polylines??Denn jeder punkt muss unter einander stehen.Name objekt Punkt typ KordiinatenTest 2 1 1 0.00 ...
|
| In das Form Lisp wechseln |
|
Lisp : Wo liegt hier der Fehler ???
romi1 am 03.05.2007 um 20:10 Uhr (0)
Hallo Leute!Habe als Lisp-Anfänger ein Problem, das ich scheinbar selbst nichtmehr lösen kann, und zwar bei der beiliegenden Funktion "romi":Der Hund liegt scheinbar bei den letzten 6 Code-Zeilen: Möchte einePolyline zeichnen lassen, die als Anfangspunkt die Koordinaten von"einsetzpunkt" nimmt, und dann jeden Punkt relativ vom vorhergehendenkonstruiert, und zwar mit Zuhilfenahme der relativen Abstände aus derListe "abstandslist". Wie ich zu den Daten von "einsetzpunkt" undzu jenen von "abstandslist" komme, ...
|
| In das Form Lisp wechseln |
