|
Lisp : load ersetzen durch irgendwas mit vl...
wronzky am 16.02.2011 um 16:39 Uhr (0)
vl-load-all ?Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
Brischke am 29.09.2004 um 11:39 Uhr (0)
... und hier und hier 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 |
|
Lisp : Bemassungen und-color: #FFFF99'>suchen nach Bemassungsstil
cadffm am 27.03.2021 um 16:09 Uhr (1)
Zunächst der falsche Gruppencode.(Entget(car(entsel)))Wenn du dies einmal anwendest siehst du: Es ist der Gruppencode 3 und nicht 2.Wenn es jetzt noch ein deutsches ACAD wäre,so würde mal auch die Option "_A" schreiben müssen (keine Ahnung ob "A" zufällig auch geht, "_A" wäre aber international und damit besser.Kleines ABER, Option A bedeutet ALLE, aber nur alle auf nicht gefrorenen Layern!Deine Frage war nach allen, dann wäre "_x" richtig.Bedenke aber auch, falls du mit command weiterarbeiten willst:Gespe ...
|
| In das Form Lisp wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
THE_ONE am 10.06.2009 um 00:22 Uhr (0)
Doppelpost - bitte löschen[Diese Nachricht wurde von THE_ONE am 10. Jun. 2009 editiert.]
|
| In das Form Lisp wechseln |
|
AutoLisp : Linien mit ignoriertem Muster und-color: #FFFF99'>suchen
CADmium am 14.04.2005 um 18:19 Uhr (0)
finden .. und dann? .. die Länge der Linientypdefinition findet man im GC40 des Linientyps, ist der Objektlinientyp VonLayer muß man sich entsprechend über den Layer durchhangeln. vla-get-length liefert die Länge der Linien, dann noch vergleichen und man hat die entsprechenden Linien. Entweder du läßt das ganze über einen Auswahlsatz laufen, oder durchhechelst mittels (vlax-for LAYOUT(vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
CADmium am 11.11.2011 um 13:38 Uhr (0)
mal ein Codeschnipsel dazu(mapcar (lambda(Y)(ssdel Y AWS)) (vl-remove-if (lambda(X ) ( 1.0 (setq Y(cdr(assoc 40(entget X)))) 4.0)) (mapcar cadr(ssnameX(setq AWS (ssget "_X" ((0 . "CIRCLE")))))) )) (sssetfirst nil AWS)------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Kreise ersetzen
Brischke am 11.11.2011 um 11:01 Uhr (0)
Zitat:Original erstellt von Meldin:@ Holger das geht nie im leben! GC 40 ist der radius nicht der Durchmesser! ... das kommt davon, wenn man das eben mal schnell aus dem Kopf runtertippt. Grüße Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen. defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
AutoLisp : durch ersetzen
tappenbeck am 29.10.2004 um 14:31 Uhr (0)
hallo axel, meine frage ist glaube ich nicht ganz sinnlos - ich hole einwenig weiter aus ! ich habe eine parameterdatei mit folgendem aufbau: (setq para1 9 para2 "Otto" para3 "c:mein_programm est.txt" .... ) diese datei wird beim programmstart gelesen mit LOAD. wenn das programm nun zuende geht, dann werden die aktuellen parameter wieder in diese datei geschrieben u.a. mit (write-line "para3" para3 fileno) im ergebnis sieht das ganze dann aber wieder so aus: ... para3 "c:mein_programm est.txt" ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ersetzen über Lisp
Kleiner_pally am 18.06.2004 um 11:11 Uhr (0)
Danke tom, aber ich wüsste 1. nicht wie ich es umschreiben könnte und 2. keine Ahnung wo ich hinschreiben kann (z.B. old=%%225 new=ß) sowas in der art suche bz.w brauche ich. In der Bemaßung muss es nicht unbedingt sein... aber MTEXT und Text wäre super
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text automatisch ersetzen
P S I am 30.09.2004 um 15:55 Uhr (0)
Hallo Marvin ich weis zwar nicht was du genau getestet hast...ich weis nur das der Dateiname.dwg bleibt nur der Index Buchstabe im Plankopf der ein Attribut ist sollte automatisch geändert werden. ------------------ Freundliche Grüsse Solution for AutoCAD & Inventor
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block ersetzen
marc.scherer am 14.09.2005 um 09:41 Uhr (0)
Zitat:Original erstellt von zesi:[B@Marc: Wieso bin ich nict selber darauf gekommen! :-)[/B]Was weiß ich?Du bist blind?Du kannst nicht lesen?Du hast nicht nachgedacht?*grins*So ein Forum hat eben auch nicht auf alles eine Antwort ;-)------------------Ciao,Marc
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block ersetzen
marc.scherer am 14.09.2005 um 09:24 Uhr (0)
Hi Zesi,wieso wendest Du Dich nicht erstmal an den Autor des Programms?Code:...;;; * Autor : Dipl. Ing. Jan Tappenbeck...;;; * (c) Jan Tappenbeck, 11/2002, Germany...;;; * tappenbeck@widemann.de...[/code]Wie ich den Jan kenne, hilft er Dir sehr gerne.------------------Ciao,Marc
|
| In das Form AutoLisp wechseln |
|
Lisp : Nach Block in Zeichnung und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 08:46 Uhr (0)
..eigentlich sollte ja genau Suchbegriffe bei gewesen sein .. ?!Was willst du denn genau wissen / machen ?(tblobjname "BLOCK" "AAA") - liefert dir das Blockdefinitionsobjekt, wenn vorhanden--------(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (princ(strcat "
"(cdr(assoc 2 BL)))))------(setq BLOCKNAME "AAA")(setq BLOCKLISTE nil)(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (setq OBJDATA(entget(tblobjname "BLOCK"(cdr(assoc 2 BL))))) (while(/= (cdr (assoc 0 OBJEKT ...
|
| In das Form Lisp wechseln |
