|
AutoLisp : verschieben von block/text mitte von zwei punkten
michelangelo am 21.10.2004 um 16:50 Uhr (0)
ETWA SO STELLE ICH MIR DAS VOR NUR HABE ICH NICHT SO VIEL AHNUNG VON LISP DAS ICH WEISS WIE ICH DAS RICHTIG SCHREIBEN MUSS. (defun C:SBM ( / AUSWAHL p1 p2 p3) (setq AUSWAHL (ssget C ) (setq OSC_old (getvar osnapcoord )) (setvar osnapcoord 1) (setq p1 (getpoint
Ersten Punkt wählen )) (setq p2 (getpoint
zweiten Punkt wählen )) (setq p3 (strcat (rtos (+ (car p1) (* (- (car p2) (car p1)) 0.5)) 2 8) , (rtos (+ (cadr p1) (* 0.5 (- (cadr p2) (cadr p1)))) 2 8) ,0.0 )) (setvar osnapcoord (pri ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
Brischke am 21.10.2004 um 17:47 Uhr (0)
Hallo michelangelo, dafür reicht ein einfacher Lisp-Ausdruck auf einer Schaltfläche Code: (if cal (cal plt(end,end,0.5) )(progn(arxload geomcal )(cal plt(end,end,0.5) ))) Vortiel ist, du kannst es transparent aufrufen, und auch bei jedem Befehl verwenden. Das Ganze ist nur die Verwendung des im AutoCAD enthaltenen Geometrierechners, den man ohnehin transparent in jedem Befehl nutzen kann. Wer sich über die Möglichkeiten informieren möchte, der sollte mal unter dem Stichwort kal in der Acad-Hil ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : verschieben von block/text mitte von zwei punkten
Brischke am 21.10.2004 um 17:51 Uhr (0)
Zitat: Original erstellt von michelangelo: ETWA SO STELLE ICH MIR DAS VOR NUR HABE ICH NICHT SO VIEL AHNUNG VON LISP DAS ICH WEISS WIE ICH DAS RICHTIG SCHREIBEN MUSS. ... Hallo michelangelo, Ich gehe mal davon aus, dass du das nur versehentlich so groß [geschrien] geschrieben hast. Mal abgesehen von der Schreibweise, hier im Forum werden die Fragen (hoffentlich) nur aus den von dir genannten Grund gepostet. Dazu ist das Forum da, und braucht nicht extra betont werden. Grüße Holger ---------------- ...
|
| In das Form AutoLisp wechseln |
|
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 |
