|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
fewoer am 17.07.2012 um 16:23 Uhr (0)
Hey CADblue,danke für die schnelle Antwort, bei mir läuft es allerdings auch ohne das princ nicht. Das hatte ich nachträglich eingefügt, weil ich dachte es würde helfen.Ich habe momentan die Vermutung, dass es an der Stelle gegen Ende hängt:Code:(command "_AstM4CommExplodeToAcis")(setq l (ssget "X" ((0 . "LINE"))))(command "_erase" l "")Ich glaube, er führt zuerst das Kommando AstM4CommExplodeToAcis aus, sucht sofort nach Linien und versucht die zu löschen. Aber es gibt eben erst Linien in der Zeichnung, w ...
| | In das Form Lisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
fewoer am 26.07.2012 um 11:20 Uhr (0)
Tut mir leid für die späte Antwort - geht gerade ein bißchen rund bei uns.@Dorfy: Habs mal mit einer while Schleife probiert, irgendwie sind mir aber keine sinnvollen Kriterien eingefallen wie mit ssget die Anzahl der Auswahlsätze für Linien zu überprüfen. Habe festgestellt, dass die Zeichnung durchaus auch schon von Anfang an Linien enthalten kann - Hilfslinien beispielsweise. Sollen auch herausgelöscht werden. Ich habs dann versucht so zu lösen, dass er die Anzahl der Auswahlsätze überprüft, 500ms wartet ...
| | In das Form Lisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
fewoer am 17.07.2012 um 14:41 Uhr (0)
Hallo zusammen,und wieder einmal ein Problem, bei dem ich schon wieder den ganzen Tag am Brüten bin. Ich will folgendes erreichen: es sollen alle Advance Steel Körper in ACIS-Körper umgewandelt werden, um die Betrachtung unserer AutoCAD Modelle auch ohne Graitec Advance Steel Aufsatz zu ermöglichen.Kopfbolzen müssen normal explodiert werden, da es sonst Fehler gibt und Schnitte o.ä. plötzlich beim Umwandeln herausgelöscht werden.Schweißnähte bleiben nach dem Umwandeln in ACIS Körper später als Kreuze aus L ...
| | In das Form Lisp wechseln |
|
Lisp : lisp tool zum aufbrechen
fewoer am 09.01.2012 um 13:23 Uhr (0)
Ah danke dir CADchup, damit bin ich jetzt schon einen großen Schritt weitergekommen. Das ist Magie Ich hab eure Vorschläge jetzt übernommen und meine LSP sieht mittlerweile so aus:(defun c:feexplode(/ dn pa pawbdn flag fesel) (setq dn (getvar "dwgname")) (setq pa (getvar "dwgprefix")) (setq pawbdn (strcat pa "explode"dn)) (setq flag (getvar "qaflags")) (setvar "qaflags" 5) (sssetfirst nil(setq fesel (ssget "_x" (list(cons 410(getvar"CTAB")))))) (command "_EXPLODE" fesel "") (setvar "qaflags" flag) (command ...
| | In das Form Lisp wechseln |
|
Lisp : Neue .DWG erstellen
fewoer am 26.06.2012 um 11:04 Uhr (0)
Hallöchen,ich rätsele gerade rum, wieso mein LISP-Code hier nicht funktioniert. Wenn ich die Kommandos in die Befehlszeile eingebe, dann funktioniert es - aber eben nicht als LISP-Routine.Ich möchte einfach nur eine neue Zeichnung aus einem standdardmäßig eingestellten Template erstellen.(defun c:neuedwg(/) (command "_filedia" "0") (command "_.new" "") (command "_filedia" "1"))Weiß vielleicht von euch jemand, woran das liegen könnte?Danke schonmal für eure Hilfe, lieben Gruß!
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
