hallo...ne schöne neue woche erstma
bin mal wieder total ratlos...
habe eine lisp von mir 1:1 für einen anderen kundenstandard
übernommen, mit der ich unter anderem attributblöcke einfüge.
ursprünglich ging bei diesem vorgang die dialogbox zur
attributsabfrage auf...und jetzt nix...nich mal in der commando
zeile :-((
ich setz euch mal nen ausschnitt rein, wäre schön, wenn jemand 
ne idee hat...beide variationen funzen nicht
(defun c:hp_ohne_symbol (/ pkt aktlay aktcol)
  (setvar "cmdecho" 0)
  (setq pkt (getpoint "\nPunkt:")
        aktlay (getvar "clayer")
        aktcol (getvar "cecolor"))
  (setvar "cecolor" "rot")
  (setvar "clayer" "keine ahnung")
  (initdia)
  (command "_.-insert"
           "c:\\PROGRAMME\\AutoCAD 2002 Deu\\BLOECKE\\HP.dwg"    
            PKT  "" "" pause) 
  (setvar "clayer" aktlay)
  (setvar "cecolor" aktcol)
  (setvar "cmdecho" 1)
); end defun
---------------------------------------------------------------
(defun c:hp_ohne_symbol (/ pkt aktlay aktcol)
  (setvar "cmdecho" 0)
  (setq pkt (getpoint "\nPunkt:")
        aktlay (getvar "clayer")
        aktcol (getvar "cecolor"))
  (setvar "cecolor" "rot")
  (setvar "clayer" "keine ahnung")
  (setvar "attdia" 1)
  (initdia)
  (command "_.-insert"
           "c:\\PROGRAMME\\AutoCAD 2002 Deu\\BLOECKE\\HP.dwg"    
            PKT  "" "" pause) 
  (setvar "clayer" aktlay)
  (setvar "cecolor" aktcol)
  (setvar "attdia" 0)
  (setvar "cmdecho" 1)
); end defun
------------------
alle wege führen nach rom...bis auf den mittleren!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP