|
Lisp : mit Lisp Flächen anwählen
wronzky am 28.02.2006 um 14:46 Uhr (0)
Hallo Hans-Peter,das mit der "Pause" geht schon, aber du musst für JEDE Eingabe eine Pause einfügen. Bei folgendem Befehl kannst Du eine Kante wählen, und die angrenzenden Flächen werden versetzt.(command "_solidedit" "_face" "_offset" pause pause "1.3" "" "")Bei folgendem Befehl kannst Du eine Kante wählen, "E" für entfernen drücken, und eine Flächen wegklicken, und die übrig gebliebene Fläche wird versetzt.(command "_solidedit" "_face" "_offset" pause pause pause pause "1.3" "" "")Mit Lisp die "inneren W ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
archtools am 29.05.2010 um 21:09 Uhr (0)
Zitat:Original erstellt von cadffm:und wenn ich bereits einen AWS habe und bestimmte Elemente entfernen will aus dem AWSdann muß man sich selbst was basteln [i](Auswahlsatz-Funktionen fangen mit "ss" an: ssadd ssdel , schau mal in die Hilfe)[/i]Dazu mein immer gleich lautender Hinweis: am besten wandelt man sich Auswahlsätze in Elementlisten um. Damit umgeht man erstens einige unlispische Beschränkungen von Auswahlsätzen (der Datentyp PICKSET ist nur Pointer auf einen Auswahlsatz und repräsentiert nicht d ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoCAD 2009 und UNDOCTL
archtools am 08.05.2008 um 12:18 Uhr (0)
Könnte jemand mal überprüfen, inwiefern sich in AutoCAD 2009 das Verhalten der Systemvariable UNDOCTL oder des mehrmaligen Aufrufs von ._UNDO _END verändert hat?Gibts einen Unterschied zwischen dem direkten Aufruf dieser Zeile:(while ( 7 (getvar "undoctl")) (command "._undo" "_end") )Und dem Einbau dieser Zeile in Funktionen:(defun test-undoctl () (while ( 7 (getvar "undoctl")) (command "._undo" "_end")))(defun c:test () (test-undoctl) (print OK))und dem Aufruf von TEST in der Befehlszeile?Mir ist klar, da ...
|
| In das Form Lisp wechseln |
|
AutoLisp : rtext
Petra_Sp am 16.08.2004 um 09:52 Uhr (0)
Ich möchte aus meinem Plankopf (eingefügter Block) einen rtext mit der Funktion: $(getvar,dwgprefix)$(getvar,dwgname) automatisch entfernen lassen. Leider hab ich diesen nicht auf einen seperaten Layer gelegt sondern nur auf einen seperaten Text-Style gelegt!! Meine Frage also: Kann ich eignetlich nach solchen rtexten in einem Block suchen lassen ohne das ich in den Block hineingehe?? Oder besser wäre wenn man einfach alles was auf einen bestimmten Text-Style löschen könnte!!!!! Hat jemand schon so etwas g ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Zeichenkette an TAB aufsplitten
spider_dd am 08.06.2012 um 16:43 Uhr (0)
Hallo Jan,sowas habe ich auch schon gebraucht.Anbei mal ein paar Zeilen.Code:; Zeichenkette bis ersten TAB liefern, ggf. "" wenn Länge Null, haengende Leerzeichen entfernen(defun str_to_tab (str_input / str_output) (setq str_output (if (vl-string-position 9 str_input) (substr str_input 1 (vl-string-position 9 str_input)) str_input ) ) (while (= " " (substr str_output (max 1 (strlen str_output)))) (setq str_output (substr str_output 1 (max 1 (1- (strlen str_output))))) (if (= str_ ...
|
| In das Form Lisp wechseln |
|
Lisp : Supportpfade aus den Autocad-Einstellungen entfernen
cadffm am 30.06.2021 um 17:35 Uhr (1)
Zitat:Original erstellt von OlgaG:Dieser Code funktioniert bei mir nicht.Vermutlich nur weil du genau diesen Aufruf genommen hast und der ist nicht ganz richtig,der Code selbst sollte dann funktionieren.Ich zeige nur einen anderen Aufruf, so kann der Code so bleiben (sonst müßte man nachfolgende Stelle im Code ggf. ändern)(list PATHSTR LISTE) (setenv "PrinterDescDir" (DT:PATH:ADD "\serverCADPlotters" "PrinterDescDir")))geändert in (setenv "PrinterDescDir" (DT:PATH:ADD "\serverCADPlotters" (getenv "Printe ...
|
| In das Form Lisp wechseln |
|
Lisp : Lsp wird nicht geschlossen
reltro am 01.06.2013 um 08:49 Uhr (0)
Hey...hab kein acad2005...bei mir läuft das ganze einwandfrei...welches lambda hast du denn auskommentiert?das ganz oben oder jenes nach (vl-catch-all-apply ...) ?sollte es 2teres sein musst du natürlich auch das vl-catch-all-apply entfernen...versuch mal das ganze in eine benannte funktion zu packen.sprich, das erste lambda ersetzten durch eben (defun C:... du weißt schon wenns dann nicht läuft muss es wohl das "vl-catch-all-apply"-konstrukt sein...Versuch dort das (lambda (/) ... durch (function (lambda ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz Filtern
cadffm am 16.04.2009 um 16:06 Uhr (0)
abgesehen davon das natürlich mehrere Wege nach Rom führen..komme erstmal von dem Auswahlsatz weg und erstelle eine LISTE.Also zB: (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli )(setq ELEMLI (bau_elemli (ssget))) = (Objektname: 7e0a3cc0 Objektname: 7e0a3da0 Objektname: 7e0a3da8 )Nun kannst du die Liste durchgehen, Elemente entfernen(Texte) und daraus eine neue Liste erstellen - die Objekteder verbleibende Liste nach ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemassungstex nach X oder Y Achse verschieben
CAD-Huebner am 10.09.2007 um 21:54 Uhr (0)
Das Programm von CADmium (Thomas) erwartet, dass die Visual LISP Umgebung bereits initialisiert wurde. Gebe (vl-load-com) auf der AutoCAD Befehlszeile ein, oder besser füge es am Anfang der Lisp Routine ein, dann wirds auch laufen.Code:(vl-load-com)(defun c:_DIMX( / AWS) (if(and(Setq AWS(ssget... Wichtig: den Unterstrich vor _DIMX unbedingt entfernen, sonst läuft das Programm nicht richtig, da eine automatische Übersetzung ausgeführt wird, die dann DIMX aufruft. Den Unterstrich hat CADmium da nur reingema ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Alles auswählen ausser... mit Lisp
archtools am 11.01.2006 um 14:51 Uhr (0)
Zitat:Original erstellt von Hänk:Deine Argumentation das man alles auswählen soll und dann gewisse Objekte aus der Wahl entfernen kann ist genau das was ich will. Aber wie mache ich sowas in Lisp? Werde mal nach ssget googeln, vielleicht komm ich weiter.Meine prinzipielle Empfehlung: in LISP arbeitet man mit Listen, und nicht mit Auswahlsätzen. Schreib Dir also ein paar elementare Umwandlungsfunktionen (selset-entityliste usw) und ein paar passende Listenfunktionen (die hier nötige gibts mWs schon als VL- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Block-im-Block auflösen
Brischke am 23.03.2011 um 18:20 Uhr (0)
Hallo glocker,Programmiert habe ich derlei bereits - ginge also.Aber das Lisp-Forum ist ja für Fragen der (Lisp-)Programmierung gedacht. Daher meine Fragen: Wie weit bist mit eigenen Programmierversuchen? Wo hakt es bei der Umsetzung genau?Meine (schnellmalruntergetipptecommand)Lösung sieht wie folgt aus:-- Schleife durch die Blocktabelle in der folgendes gemacht wird1. Einfügen des Blocks am Ursprung2. Ursprung3. -- While-Schleife Prüfen ob bei den aufgelösten Elementen ein INSERT dabei ist =:Ja - Insert ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Reg-Kennung
charlieBV am 19.07.2006 um 14:58 Uhr (0)
Sodele, da bin ich wieder...also, ich versuche mal zu erklären, was ich tun möchte, und was passiert...Ich möchte für alle bei uns im Büro das Häkchen in den Optionen - Anzeige - Layoutelemente - Papierschattierung ausschalten. Das ganze am besten per Lisp, da eine "Bürolisp" beim Start sowieso geladen wird. Dazu muss gesagt werden, dass jeder sein eigenes Profil hat, dass sein Windowsanmeldename ist.Mittlerweile bin ich so weit:(vl-load-com) (setq key (strcat "HKEY_CURRENT_USER" (vlax-product-key) "Profil ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Flags von entfernter aber nicht gefundener XREF
Andreas Kraus am 15.08.2012 um 10:33 Uhr (0)
Hallo zusammen,ich hab hier eine XREF die entfernt wurde aber auch inzwischen (weils einen neuen Planindex mit neuem Dateinamen gibt) nicht mehr gefunden wird.Wenn ich mir den GC 70 anschaue steht da eine 12 drin obwohl da ja eine 44 stehen müsste weil die XREF doch entfernt ist.Bei XREFS die gefunden werden ist das auch so, nur bei "nicht gefundenen" kann ich das Entfernen schalten wie ich will und GC 70 ändert sich nicht obwohl ichs im XREF-Manager angezeigt bekomme ob die XREF entfernt oder nicht gefund ...
|
| In das Form Lisp wechseln |
