|
Lisp : Linientypen laden
GWH am 03.07.2019 um 13:15 Uhr (5)
Hallo Lipsler.Da meine Kenntnisse gleich null sind und ich auch keinen passenden Ansatz gefunden habe meine Frage an Euch:Ich will Linientypen aus unserer Linientypdatei laden (ist nur der erste Teil des Lisp). Habe hierfür was gefunden und es funktioniert auch, aber nur wenn keine dieser Linentypen bereits vorhanden ist. Denn dann kommt eben die Abfrage von AutoCAD, ob diese neu geladen werden soll. Wie muss nun diese Codezeile aussehen, damit die Abfrage mit Ja oder Nein bestätigt wird, und das so lange ...
|
| In das Form Lisp wechseln |
|
AutoLisp : durch ersetzen
tappenbeck am 22.10.2004 um 12:56 Uhr (0)
hi ! ich möchte aus einer dos-pfadangabe eine LISP-konforme schreibweise machen und hierfür aus = zu machen ! hierfür nutze ich eine replace-funktion (siehe unten), die eigentlich funktioniert. vielmehr habe ich das problem mit den -zeichen. wäre klasse, wenn mir jemand von euch weiterhelfen könnte. Gruß Jan :-) hier der code (DEFUN rprof$replstr ;suchen und ersetzen eines Strings (line ;Zeichenkette oldstr ;alter String newstr ;neuer String / iline idx ;Replace Old Str ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : durch ersetzen
mapcar am 22.10.2004 um 13:49 Uhr (0)
Ich glaube, du hast da ein Ansatzproblem. Das hier: (str-replace myString "" "") kann es nicht geben, weil es nur einen Fehler verursacht (nicht geschlossene Zeichenkette). Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form AutoLisp wechseln |
|
AutoLisp : durch ersetzen
Brischke am 24.10.2004 um 05:45 Uhr (0)
Hallo Jan, woher bekommst du denn diese Pfadangabe? Vielleicht ist dort eine Änderung notwendig/möglich. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : durch ersetzen
Brischke am 25.10.2004 um 09:36 Uhr (0)
Hallo Jan, ich weiß nicht, was jetzt eine Pfadangabe im DOS-Format von einer Pfadangabe im WIN-Format (bis auf die Zeichenenzahl) unterscheidet. Die Frage war auch, wie kommt diese Pfadangabe in das Programm - eintippen/getfiled/read-line??? Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Gruppencodes für das Objekt Hatch
mapcar am 25.10.2004 um 11:23 Uhr (0)
da dort keine Kontur vorhanden ist Wirklich? Überschüssige 10er kann ich mir ja vorstellen, aber welche, die nicht Bestandteil der Kontur sind? Poste mal ein (entget) als Text, damit man das nachvollziehen kann. Gruß, Axel Strube-Zettler ------------------ (defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man s hat Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze
|
| In das Form AutoLisp wechseln |
|
AutoLisp : durch ersetzen
mapcar am 25.10.2004 um 11:46 Uhr (0)
Ich sehe das Problem immer noch nicht. Der Backslash ist in Lisp-Zeichenketten das Steuerzeichen: c: est ist der Text C:est mit einem Tab-Vorschub nach dem Doppelpunkt, und c: test ist eine gültige Pfadangabe. Der springende Punkt ist aber der, dass Lisp durchaus in der Lage ist, einen Backslash zu lesen: *** Datei test.dat *** c:foldermyfile.txt *** Ende Datei *** (defun test( / fhand) (setq fhand(open(findfile test.dat ) r )) (read-line fhand) ) (test) = c:foldermyfile.txt Wie man sieht ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entnext für nächstes Blockelement
Brischke am 25.10.2004 um 12:08 Uhr (0)
Hallo Hans-Peter, das ist ganz logisch, denn ein INSERT (Blockreferenz) hat nur dann ein nächstes Element, wenn dieser über variable Attribute verfügt. Du musst dann wahrscheinlich in die Blocktabelle, und dort die Blockdefinition nach dem nächsten Element durchsuchen. (entget(tblobjname BLOCK (cdr(assoc 2 (entget(car(entsel))))))) Damit hast du erst einmal die Blockdefinition. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entnext für nächstes Blockelement
cadffm am 25.10.2004 um 14:12 Uhr (0)
Also jetzt verstehe ich dich nicht mehr: 1. du sagst in etwa irgendwas geht nicht Da das Lisp aber funktioniert dachte ich das du evtl ein Insert wählst in dem im Block der Mtext die Farbe vonlayer aufweist, deswegen klappt dein Code an dieser Stelle auch nicht ! (siehe Code von CADmium, der hat diese Möglichkeit berücksichtigt..) was du nun aber mit 255,0,0 hast ist mir unverständlich ??? ------------------ .Signatur hat derzeit leider Urlaub.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entnext für nächstes Blockelement
Brischke am 25.10.2004 um 14:17 Uhr (0)
Hallo Hans-Peter, MTexten werden die Eigenschaften nicht nur über die Gruppencodes des Elementes zugewiesen. So kann der Text selbst formatiert sein, die Farbe also im String (was dann GC 1 ist) enthalten sein. Gleich verhält es sich auch mit Textstilen, Fonts usw. Diese Formatierungen haben Vorrang vor den Gruppencodes. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADwiesel am 26.10.2004 um 11:15 Uhr (0)
müsste so gehen (command .-layer _th * _on * ) (setq allobj (ssget X (list (-4 . AND )(cons 8 * ) (-4 . AND )))) (Setq objanz (sslength allobj)) (repeat objanz (setq laakt (ssget l )) (print laakt) (setq las (ssname laakt 0)) (print las) (setq elist (entget las)) (print elist) (setq lalist (assoc 8 elist)) (print lalist) (setq aktla (cdr lalist)) (print aktla) (command .-layer _se aktla _off * _on aktla ) (if (setq lst (acet-overkill-ui nil)) (acet-overkill2 lst) );if ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Lisp in Repeat starten möglich?
CADmium am 26.10.2004 um 11:19 Uhr (0)
eine Lispdatei kann man laden : (load PVERB.LSP ) auch in einer Repeatschleife .. da werden dann jedesmal die gleichen Funktionen definiert .. ob das sinn macht? .. ruf doch besser die in der PVERB.LSP definierte Funktion (defun ...???) in deiner Routine auf z.B. (c verb) ------------------ - 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 : Externe Lisp in Repeat starten möglich?
cadking am 26.10.2004 um 13:32 Uhr (0)
So funktioniert es leider nicht. Ich habe es versucht mit (load PVERB )(pverb) und (load PVERB.LSP )(pverb) aber immer, wenn ich an diesen Stelle bin erhalte ich die Fehlermeldung no function definition: PVERB . Gruß Stefan
|
| In das Form AutoLisp wechseln |
