inhoud van attributes in een blok opvragen

[bart]

If FILEDIA is set to 1, entering -wblock at the Command prompt displays a standard file selection dialog box in which to specify a name for the new drawing file. If FILEDIA is set to 0, entering -wblock at the Command prompt displays a prompt on the command line

uit de help van acad 2006

[cadtools@gmail.com]

juist !

[thomas151283]

Hartelijk dank aan allemaal,
jullie hebben me al fantastisch geholpen!

Heb nog nooit zoveel bijgeleerd als nu

MVG, Thomas

[Joop]

Dat is de bdoeling van dit forum.

[thomas151283]

Wij het inserteren van een wblock die geprogrammeerd is met lisp kan je default waarden ingeven.

Is het mogelijk om deze default waarden te laten invullen als de variabelen "hoogte" en "breedte"??
Zoja, hoe begin je hieraan??

MVG Thomas

(defun c:attpl2 ()
;;; style maakt een nieuwe tekststijl aan: genaamd "attributes"
 (command "style" "attributes" "tahoma" "25" "" "" "" "")
;;; layer maakt een nieuw laag aan: genaamd "attributes"
 (command "layer" "m" "attributes" "c" "8" "" "")
;;; Selecteren van hoekpunten
 (setq lop (getpoint "\nLinker benedenhoekpunt aub.: "))
 (setq rbp (getcorner lop "\nRechter bovenhoekpunt aub.: "))
 (setq rop (list (car rbp) (cadr lop)))
 (setq lbp (list (car lop) (cadr rbp)))
;;; Breedte en Hoogte bepalen
 (setq breedte (distance lop rop))
 (setq hoogte (distance lop lbp))
;;; Inserteerpunt Attribute Materiaal (PartMat)
 (setq   insertmat
    (getpoint "\nDuid een invoegpunt aan aub: ")
 )
 (command "attdef"       "V"           ""
      "PartMat"       "Geef de Materiaalsoort op: "
      ""          insertmat        "0"
      ""
     )
;;; Inserteren Referentie
 (command
   "attdef"          "V"        ""
   "PartRef"          "Geef een referentienaam op: "
   ""             ""
  )
;;; Inserteren Lengte (=hoogte)
 (command "attdef" "V"   "" "PartL" "Geef de hoogte op: " "hoogte" "")
;;; Inserteren Breedte
 (command "attdef" "V"   "" "PartW" "Geef de breedte op: " "breedte" "")
)