Hallo
Bin heute mal spendabel. Hab ich mal vor vielen Jahren geschrieben. Greift zwar nicht auf den Zwischenspeicher zu ist aber eine feine Sache und kann beliebig erweitert werden. (kann natürlich noch komprimiert werden)
Im Anhang Beispiel für die Einbringung ins Menü.
Bitte Blöcke erste einfügen wenn die mind. 1 mal erstellt worden sind.
;In ACADDOC.lsp einfügen
(defun c:block1 (/ block)
(setq block "\\Block1.DWG")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(blocke)
(princ)
)
(defun c:block2 (/ block)
(setq block "\\Block2.DWG")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(blocke)
(princ)
)
(defun c:block3 (/ block)
(setq block "\\Block3.DWG")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(blocke)
(princ)
)
(defun c:block4 (/ block)
(setq block "\\Block4.DWG")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(blocke)
(princ)
)
(defun c:block5 (/ block)
(setq block "\\Block5.DWG")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(blocke)
(princ)
)
(defun c:einfüge1 (/ block bblock)
(setq block "\\Block1.DWG" bblock "Block1")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(einfügeb)
(princ)
)
(defun c:einfüge2 (/ block bblock)
(setq block "\\Block2.DWG" bblock "Block2")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(einfügeb)
(princ)
)
(defun c:einfüge3 (/ block bblock)
(setq block "\\Block3.DWG" bblock "Block3")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(einfügeb)
(princ)
)
(defun c:einfüge4 (/ block bblock)
(setq block "\\Block4.DWG" bblock "Block4")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(einfügeb)
(princ)
)
(defun c:einfüge5 (/ block bblock)
(setq block "\\Block5.DWG" bblock "Block5")
(if (not blocke)
(load "Block.lsp" "Datei Block.lsp nicht gefunden")
)
(einfügeb)
(princ)
)
;;; Folgendes in Datei Block.lsp Kann auch in acaddoc.lsp aber dann Befehle umschreiben!
(defun blocke (/ w we aa p1 dat Projektpfad Benutzerpfad anz b datei)
(setq p1 (getpoint "\nEinfügepunkt: "))
(setq w (ssget))
(setq datei (strcat Benutzerpfad block)) ;;;;;;;;;;;;;;;;;;Pfad der Datei setzen
(command "wblock" datei "j" "" p1 w "" "_oops")
(princ)
)
(defun einfügeb (/ w dat Projektpfad Benutzerpfad anz b datei)
(setq aa (tblsearch "block" bblock))
(if (= aa nil) ()
(command "bereinig" "bl" bblock "n")
)
(setq datei (strcat Benutzerpfad block));;;;;;;;;;;;;;;;;;;;;Pfad der Datei setzen
(princ "\n")
(princ "\n")
(princ "\nEinfügepunkt danach Drehwinkel :")
(command "einfüge" datei pause "" "" pause )
(princ "\n")
(setq we (entlast))
(command "ursprung" we )
(command "bereinig" "bl" bblock "n")
(princ)
)
------------------
Martin
[Diese Nachricht wurde von mkl-cad am 15. Dez. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP