---

Hallo

Ich lade in meine Zeichnung mit verschiedenen Buttons diverse Blocke
was z.B so aussieht.

^C^C^P(progn(if(setq blkname (findfile "O:ABLAGE/ACAD/Dynamic Blocks/3-DIVERSES/block.dwg"))(progn(command "_.insert" blkname pause "1" "1" "0")(command "_explode" (entlast)))(princ "Block nicht gefunden."))(princ));

Bei diesem code habe ich den kompleten Pfad angegeben
"O:ABLAGE/ACAD/Dynamic Blocks/3-DIVERSES/block.dwg"

Ich möchte nun den code so umschreiben das ich nicht mehr den Ganzen Pfad angeben muss sondern nur noch ein Teil z.B.
"/3-DIVERSES/block.dwg"

und den ersten Teil im den Support Pfad legen.
kann man so was machen?
und wie müsste ich dann den Code für den Button ändern??

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

na (findfile "3-DIVERSES/block.dwg")

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Monika,
ich würde den ganzen Suchen&Finden Quatsch, inklusive der Einfügung in 'ner Extra Lisp verwursten und dann nur noch diese im Menü aufrufen. Eben eine "Fire&Forget" Funktion.

Code:

---

^C^C^P(MonikaBInsert "MeinLieblingsBlock");

---

Das hält Dein Menü klein und übersichtlich und Änderungen an der Art und Weise der Einfügung sind einfachst an der Funktion "MonikaBInsert" vorzunehmen, ohne das Menü zu ändern.
Wie steht's mit Deinen Lisp Kenntnissen?

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!
Mein alter AG sucht 'nen CADMIN
   
   

[Diese Nachricht wurde von marc.scherer am 28. Feb. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Thomas

Man ich habe es vorher so selber versucht aber in der eille das Ausrufezeichen gelöscht. Peinlich Peinlich   

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Marc

Tönnt sehr interesant
aber meine lsp kentnisse sind leider nicht gewaltig.

aber wenn du mir ein beispiel geben könntest wäre ich sehr froh

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klar ;-),
hier ein einfaches Beispiel:
(Edit: Subroutine MONIKABFINDBLOCK verbessert, Überprüfung der Argumente = flexiblere Parameterübergabe)

Code:

---

(VL-LOAD-COM)
;|
Einfügefunktion für Blöcke.
Argumente:
STRBLOCKNAME = Blockname, eventuell mit Teilpfadangaben als String
  Subroutine überprüft die Pfadangaben (siehe Sub MONIKABFINDBLOCK)

Beispielaufrufe:

(MONIKABINSERT "/3-DIVERSES/block.dwg")
(MONIKABINSERT "3-DIVERSES/block.dwg")
(MONIKABINSERT "3-DIVERSES/block")
(MONIKABINSERT "block")
(MONIKABINSERT "block.dwg")
|;
(defun MONIKABINSERT (STRBLOCKNAME / STRBLOCKNAMEX)
  (if (setq STRBLOCKNAMEX (MONIKABFINDBLOCK STRBLOCKNAME))
    (progn (command "_.insert" STRBLOCKNAMEX PAUSE "1" "1" "0")
           (command "_explode" (entlast))
    )
    (alert (strcat "Block >" STRBLOCKNAME "< nicht gefunden!\nFunktionsende."))
  )
  (princ)
)

;|
Einfache Suchfunktion für Blockbibliothek.
Argumente:
STRBLOCKNAME = Blockname, eventuell mit Teilpfadangaben als String

Argument- und Basispfadüberprüfungen finden statt.

Gültige Argumente für STRBLOCKNAME könnten sein:
"/3-DIVERSES/block.dwg"
"3-DIVERSES/block.dwg"
"3-DIVERSES/block"
"block"
"block.dwg"
|;
(defun MONIKABFINDBLOCK (STRBLOCKNAME / RETVAL SEARCHFULLPATHNAME)
  ;; Abfrage nach globaler Pfad-Variable
  ;; (könnte z.B. über die acaddoc.lsp permanent gesetzt werden)
  (if (not $$FINDBLOCKSSTARTFOLDER$$)
    ;; Gibt es diese globale Var nicht, belege den Pfad mit folgender Pfadangabe:
    (setq $$FINDBLOCKSSTARTFOLDER$$ "O:/ABLAGE/ACAD/Dynamic Blocks")
  )
  (if (and (setq $$FINDBLOCKSSTARTFOLDER$$
                  (CONVERTPATHDELIMITTER
                    $$FINDBLOCKSSTARTFOLDER$$
                  )
           )
           (setq STRBLOCKNAME (CONVERTPATHDELIMITTER STRBLOCKNAME))
      )
    (if (vl-file-directory-p $$FINDBLOCKSSTARTFOLDER$$)
      (progn
        (setq SEARCHFULLPATHNAME
               (strcat
                 (vl-string-right-trim
                   "\\"
                   $$FINDBLOCKSSTARTFOLDER$$
                 )
                 "\\"
                 (vl-string-left-trim "\\" STRBLOCKNAME)
               )
        )
        (if (not (vl-filename-extension SEARCHFULLPATHNAME))
          (setq SEARCHFULLPATHNAME (strcat SEARCHFULLPATHNAME ".dwg"))
        )
        (setq RETVAL (findfile SEARCHFULLPATHNAME))
      )
    )
  )
  RETVAL
)

(defun CONVERTPATHDELIMITTER (STRARG /)
  (if (= (type STRARG) 'STR)
    (apply 'strcat
           (mapcar 'chr
                   (mapcar '(lambda (X)
                              (if (= X 47)
                                92
                                X
                              )
                            )

                           (vl-string->list STRARG)
                   )
           )
    )
  )
)

---

Voraussetung wäre jedoch die Verwendung einer acaddoc.lsp um sicherzustellen, das die notwendigen Funktionen geladen werden und die globale Var $$FINDBLOCKSSTARTFOLDER$$ in jeder Zeichnung verfügbar ist. Aber das ist im Prinzip auch kein Problem.

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!
Mein alter AG sucht 'nen CADMIN
        
        

[Diese Nachricht wurde von marc.scherer am 28. Feb. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code verbessert! s.o.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP