|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
CADblue am 18.07.2012 um 10:03 Uhr (0)
versuch mal den (if) code einzubauen, einfach mal um zu prüfen ob der befehl "astm4..." übergangen wird...(command "_AstM4CommExplodeToAcis")(if (/= nil (setq l (ssget "x" ((0 . "line")))))(command "_erase" l "")(alert "keine linien gefunden"))
|
| In das Form Lisp wechseln |
|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
CADblue am 17.07.2012 um 15:42 Uhr (0)
hey fewoer,ich hab mir gerade mal testhalber nur dieses codestück reingeladen:Code:(princ)(setq l (ssget "X" ((0 . "LINE"))))(command "_erase" l "")ohne "princ" lief es einwandfrei, mit "princ" jedoch hat es mir den letzen befehl wiederholt und mich aufgefordert ebenfalls einen punkt anzugeben."princ" mal weglassen?mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : vla-put-activedocument --> getpoint
CADblue am 03.07.2017 um 16:50 Uhr (1)
hi cadmium,dachte mir schon das das ein Problem sein könnte. Ich will eine Zeichnung öffnen einen neuen Einfügepunkt definieren, die Zeichnung speichern und schließen. Ist es überhaupt möglich die Lisp Routine in der neuen Zeichnung weiter laufen zu lassen? Denn wenn du schon so fragst warscheinlich nicht :/
|
| In das Form Lisp wechseln |
|
Lisp : (setenv / getenv)
CADblue am 22.03.2012 um 09:11 Uhr (0)
Guten Morgen!!!ich suche jetzt schon seit 2 tagen in allen möglichen Foren und offiziellen und inoffiziellen Acad Seiten. Doch leider finde ich keine antwort auf meine Frage. Vorab um irrtümer auszuschliessen: Mit (setenv) ist es mir möglich Umgebungsvariablen zu setzen im prinzip wie mit (setq) nur das die (setenv) variable in der zeichnung gespeichert wird und beim neuaufrufen der zeichnung auch vorhanden ist. Die (setq) Variable ist verloren und muss neu gesetzt werden.Zu meiner Frage:Wie kann ich mir a ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-put-activedocument --> getpoint
CADblue am 03.07.2017 um 16:02 Uhr (1)
Hallo zusammen.Code:(defun c:xrefing()(setq pfad (getfiled "X-Ref wählen" (getvar "dwgprefix") "dwg" 0))(setq oAcad (vlax-get-acad-object))(setq new(vla-Open (vla-get-documents oAcad) pfad))(vla-put-activedocument oAcad new)(setq einfpunkt(getpoint "Bitte Einfüge/0-Punkt wählen: ")))wenn ich den Befehl laufen lasse schalte ich die ausgewählte Datei aktiv und will danach in der neuen Zeichnung einen Punkt wählen. Leider macht er das jedoch immer in der alten Zeichnung. Könntet mir jemand nen Tipp geben?dank ...
|
| In das Form Lisp wechseln |
|
Lisp : .lsp entladen
CADblue am 22.11.2011 um 09:33 Uhr (0)
ich hab mir für einen bestimmten arbeitsablauf eine eigene .lsp geschrieben die eben temporär die vorhandenen befehle überscheibt. zum beispiel "s" "schieben" der halt jetzt was anders macht. ich bin nun fertig mit dem bearbeitungsschritt und will die befehle wieder entladen, bzw die .lsp datei, sodas ich wieder mit "s" "schieben" kann....das is der ganze hintergrundklar ich könnte die zeichnung schließen und wieder öffnen, aber das ist eigenlich nicht sinn und zweck der sache...mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : Ploteinstellung Zoll/mm
CADblue am 05.08.2017 um 16:28 Uhr (1)
ok dann muss ich die reihenfolge mal umbauen, solang es läuft solls mir recht sein. das problem ist nur ich habe mir anscheind iwie dadurch die kompletten zeichnungseinheiteneinstellungen zerschossen. ich habe einige einheitseinstellungen geprüft und musste ferstellen das auch der vorgabe-maßstab auf britisch gesetzt wurde. nun habe ich auch probleme mit dem einfügen von blöcken die nichtmehr richtig skaliert werden. fazit finger weg vom refresher :Pmache mir jetzt mit copy-paste ne neue zeichnung die alte ...
|
| In das Form Lisp wechseln |
|
Lisp : whileliste mit alert anzeigen
CADblue am 11.11.2011 um 12:55 Uhr (0)
Hi leute!!!Steh mal wieder aufm Schlauch. Pls help.Code:(defun layer()(tblnext "layer" t)(while (/= nil (print(cdr(assoc 2 (tblnext "layer")))))(print (cdr (assoc 2 (tblnext "layer")))))(assoc 2(tblnext "layer" t)))Dieser Code listet mir alle Layer in der zeichnung, aber nur in der Befehlszeile ausgegeben, is klar wg print. Ich will mir aber jetzt die gesamte liste als alert anzeigen lassen. Wie geht das?mfgblue
|
| In das Form Lisp wechseln |
|
Lisp : Schraffur wird fehlerhaft Dargestellt
CADblue am 20.06.2012 um 14:14 Uhr (0)
hi,doch noch paar antworten^^also die fillmode hab ich schon als erstes ausprobiert. Ich hab natürlich bevor ich gepostet hab auch bisschen recherche betrieben. Dort wurde das unter anderem aufgeführt. Also die fillmode steht auf 1, so wies sein soll.Komisch ist das das Problem nur bei blöcken aufzutretten scheint, denn wenn ich eine neue SOLID schraffur erstelle funktioniert das wunderbar.wenn ich den block im blockeditor öffne wird mir die schraffur auch angezeigt. Nur in der zeichnung sind die schraffur ...
|
| In das Form Lisp wechseln |
|
Lisp : Zoom/Panbegrenzung --> sysvar umschreiben?!?!
CADblue am 16.11.2011 um 13:53 Uhr (0)
Hi, ich schon wieder^^Problem:Ich zoome mich in die zeichnung rein, mache paar bearbeitungsschritte und will wieder rauszoomen -- geht nur bis zu einem bestimmten punkt, das gleiche ist wenn ich mich in irgendeine richtung PANe.Nach eigener Recherche der sysvar-liste liegt das anscheinend an der begrenzung durch die sysvar VSMIN/VSMAX.Frage:1.Ist dieses Problem bekannt und wenn ja wie kann ich es lösen bzw gibt es ein tool das das behebt?2.wenn nicht wie kann ich schreibgeschützte systemvariablen umschreib ...
|
| In das Form Lisp wechseln |
|
Lisp : Import Layer aus Fremd-dwg über Lisp
CADblue am 25.06.2012 um 17:17 Uhr (0)
jo danke so weit euch beidenhab bisschen geforstet und das hier gefunden,Code:(defun c:hollayer (/ oAcad oCurDoc strFile oOpenDoc oOpenDocLayers lstObj oLayer array) (setq oAcad (vlax-get-acad-object)) (setq oCurDoc (vla-get-ActiveDocument oAcad)) (setq strFile (getfiled "Zeichnung wählen:" (getvar "DWGPREFIX") "dwg" 0)) (setq oOpenDoc (vla-Open (vla-get-documents oAcad) strFile)) (setq oOpenDocLayers (vla-get-layers oOpenDoc)) (setq lstObj nil) (vlax-for oLayer oOpenDocLayers (setq lstObj (cons oLayer ls ...
|
| In das Form Lisp wechseln |
