|
AutoLisp : MTEXT Gruppencode 3
WolfgangGutke am 11.08.2005 um 18:24 Uhr (0)
Vieleicht so?(defun c:mt () (vl-load-com) (setq Text "") (foreach nMT (STR:STRING_TO_LIST (vla-get-TextString (vlax-ename-vla-object (car (entsel)))) "P") (setq Text (strcat Text " " nMt )) ) (alert (substr Text 2)) )(defun str:STRING_TO_LIST (str tz / lst pos) ;Teilt ein String gem. übergebenen Trennzeichen in eine Liste ;z.B. (str:String_to_List "qw;df;" ";") - ("qw" "df") (if (and str tz) (progn (setq pos (vl-string-search tz str)) (while pos (setq lst (cons (substr str 1 pos) lst) str (substr ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reihenfolge im Programmablauf nicht logisch!
tunnelbauer am 12.08.2005 um 00:43 Uhr (0)
Hi Thomas,ohne mich in eure fachliche Diskussion einmischen zu wollen:versuche mal das Wort"CODE" vor dein Lisp zu stellen und das Wort "/CODE" nach dein LISP zu stellen und ersetze die " durch [ und am Wortende durch ].Siehe auch hier - am Seitenende - dann versteht dich mapcar (und wahrscheinlich viele andere auch) wesentlich besser.------------------GrüsseThomas
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichnungseigenschaften
double_m am 12.08.2005 um 12:09 Uhr (0)
Hi!Ich habe bei euch im Forum diesen Code zum Bearbeiten der Zeichnungseigenschaften per Lisp gefunden:(defun SET_DWG_PROPS_STRING ( STRING NUMMER / PROPS ) (if (and(=(type STRING) STR)(= (type NUMMER) INT)) (if (setq PROPS (entget(cdr(assoc -1 (dictsearch (namedobjdict) "DWGPROPS"))))) (progn (if (assoc NUMMER PROPS) (setq PROPS (subst(cons NUMMER STRING)(assoc NUMMER PROPS)PROPS)) (setq PROPS (append PROPS (list(cons NUMMER STRING)))) ) (entmod PROPS) ) ) ) )Ich ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kugel mit entmake
wronzky am 12.08.2005 um 19:59 Uhr (0)
Zitat:Original erstellt von mapcar:Trotzdem bleibe ich bei meiner Kernaussage: Die Praxis ist so begrenzt, dass es im Prinzip *nicht* geht.Na, ich würde das zwar umgekehrt sagen (Im Prinzip gehts, aber die Praxis ist zu begrenzt), aber im Prinzip hast Du Recht.Es stellt sich allerdings die Frage warum?Immerhin kriegt man ja mit diesen drei Funktionen:Code:(defun get-decoded-ele-data (objekt / liste data) (decode-code-ele-data (entget objekt)))(defun decode-code-ele-data (data / liste) (foreach n data (p ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reihenfolge im Programmablauf nicht logisch!
RSt-Stahl am 13.08.2005 um 18:04 Uhr (0)
Hallo zusammen,habe mal etwas weiter herum gebastelt. Habe jetzt mal "Alerts" eingebaut damit man sieht das er das Programm nicht von oben nach unten abarbeitet. Kann es vieleicht damit zusammenhängen das alle Befehle ausser der Command Befehl Lisp befehle sind und der Command Befehl ein AutoCAD Befehl ist? Wenn man jetzt zum testen einen Bogenvermasst sieht man das er den Command Befehl "hintenan" hängt.Hier nochmal mein aktueller Programm Code: Gruß Thomas(defun c:bodim (/ PT1 PT2 CEN ma PT3 a1 a2 a ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reihenfolge im Programmablauf nicht logisch!
mapcar am 13.08.2005 um 19:23 Uhr (0)
Dein Dim-Befehl ist ja auch noch gar nicht fertig. Schau mal in der Lisp-Hilfe unter "pause" nach - oder willst du den Abstand automatisch berechnen? Jedenfalls fehlt noch ein Argument.Code:(command "_DIMANGULAR" "" cen pt1 pt2 "_T" (rtos D) pause) Gruß, Axel Strube-Zettler------------------Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Suche nach: Funktionen zur Listenbearbeitung...
mapcar am 15.08.2005 um 11:51 Uhr (0)
Zitat:Original erstellt von Dabrunz:das Konzept der ausgeglichenen Bäume weggelassenSo meinte ich das gar nicht. Mir fehlte nur der Hinweis, dass der Ansatz eine gewisse Verteilung der Daten veraussetzt, um effektiv zu sein. Und das habe ich ein wenig ausgeführt, damit Leute wie Marc, der Verstehensprobleme äussert, nicht ggf. mit einem Nebensatz abgefertigt werden.Aber nochmal ein Stück weiter zurück: Wie könnte man eine Vrgleichsfunktion implementieren (für das Sortieren bzw. Einordnen in einen Baum), d ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Suche nach: Funktionen zur Listenbearbeitung...
marc.scherer am 15.08.2005 um 14:06 Uhr (0)
So...hier erstmal ein Lisp-File mit den Listen der Methods und Properties von R2000i bis R2006 inklusive der hier angefragten Listenfunktionen... Weil das so lang ist, packe ich das mal als Anhang dran und poste nur den erklärenden Text:Code:;|Listen der ActiveX Properties und Methodsin AutoCAD 2000i bis AutoCAD 2006 als globaleVariablen:2000IPROPS, 2000IMETH2002PROPS, 2002METH2004PROPS, 2004METH2005PROPS, 2005METH2006PROPS, 2006METHDie Listen sind der Online Hilfe entnommen.Bis 2005 war dort vor allem ein ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp ohne ACAD ausführen ?
CADmium am 15.08.2005 um 16:27 Uhr (0)
..und Mapcar hat hier auch mal rumexperimentiert..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ActiveX Methoden und Eigenschaften History
marc.scherer am 15.08.2005 um 17:03 Uhr (0)
Hi again,das Wiesel meint ich solle das mal als extra Beitrag einbringen...Es geht darum eine Übersicht über die Entwicklung der ActiveX Methods und Properties zu kriegen.Dazu ein Lisp-File mit den Listen der Methods und Properties von R2000i bis R2006 inklusive der Listenfunktionen zum Auswerten der Differenzen... Weil das so lang ist, packe ich das mal als Anhang dran und poste nur den erklärenden Text(am Ende dann die Links zum Code, PDF und XLS):Code:;|Listen der ActiveX Properties und Methodsin AutoCA ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ActiveX Methoden und Eigenschaften History
mapcar am 15.08.2005 um 20:33 Uhr (0)
Die Idee klngt nicht schlecht - würde auch sehr helfen, wenn man mal Fragen beantwortet. Ich hab z.B. 2 Windows-Partitionen auf dem Rechner, und natürlich habe ich nicht auf jeder Partition jede Acad-Version zur Hand. Das könnte so einiges Umbooten ersparen.Aber ich verstehe eines nicht: Die Ms und Ps sind losgelöst von den Objekten in den Listen? Macht das Sinn? Es können sich doch abhangig vom Objekt völlig unterschiedliche Sachverhalte hinter den Namen verbergen, oder? Konkret: Wenn die Methode "extrude ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp ohne ACAD ausführen ?
HPW am 16.08.2005 um 07:32 Uhr (0)
Zitat:Original erstellt von mapcar:Und noch ein letzter Hinweis: Wer ein Lisp sucht, mit dem man mal eben außerhalb von AutoCAD einen typischen "Windows-Dialog" mit ein paar Berechnungen programmieren kann - dat gibbets nich. Alles, was existiert, beruht derzeit auf Tk, Gnome, Cygwin usw. - d.h. es läuft zwar auf jeder Plattform, sieht aber optisch auch immer so aus - ohne jetzt etwas abwerten zu wollen. Im Falle newLISP trifft dies nicht so ganz zu. Die native IDE basiert zwar auf TK, aber die newLISP DL ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : (setenv PrinterStyleSheetDir ... erst nach Neustart, _options sofort???
Peter2 am 07.02.2006 um 15:44 Uhr (0)
Thomasdas "Setzen" geht schon - aber der Druckbefehl reagiert nicht drauf. Mache dir einmal eine "test.ctb" - alles schwarz, alles dünn, und speichere sie in D:dünn. Dann mache dir eine "test.ctb" - alles bunt, alles dich, und speichere sie in D:dick. Dann schalte die Pfade um - bei mir reagiert das Programm nur bis zum Druckbefehl, dann nicht.Nachtrag: Nach dem Umstellen per Lisp reicht es, wenn ich "Eytras - Optionen - (Register Dateien) - OK" drücke. Etwas seltsam, aber dann hat er es geschluckt.Peter-- ...
|
| In das Form AutoLisp wechseln |
