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