- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi, I am trying to change the drawing properties custom field with a pop list provided below.
I have a functioning lisp and dcl file but I just can't get the drawing properties value to change in Autocad 2013 for an existing custom properties value when I select the ok button. Thanks for the Help.
( at bottom i have a code to change custom properties in Autocad but it is not linked to the name and address of the lisp.)
// DCL File to be saved as building.dcl
lbox : popup_list { width = 50; fixed_width = true; alignment = centered; }
building : dialog { label ="Building"; spacer;
: row {
: lbox { key = "lst1"; label = "Name" ; }
: lbox { key = "lst2"; label = "Address"; }
}
ok_only;
}
;;; I Know somting has to be changed with the ok_only button in the dcl just don’t know what???
;;; LISP
(defun c:building ( / *error* UpdateList data dclfile dclhandle )
;; Accompanying DCL File:
(setq dclFile "building.dcl")
(defun *error* ( msg )
;; Error Handler - will unload the dialog
;; from memory should the user decide to hit Esc
(if dclHandle (unload_dialog dclHandle))
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
(princ (strcat "\n** Error: " msg " **")))
(princ)
)
(defun UpdateList ( key lst )
;; This function updates the list_box associated with the specified key
;; using the contents of the supplied lst
(start_list key)
(mapcar 'add_list lst)
(end_list)
)
;; Data used to Populate List_Boxes:
(setq Data
'(
("Tillson Nbr. 1 - 383 " (" 120 Tillson, Canton, MA"))
("Tillson Nbr. 2 - 384 " (" 121 Tillson, Canton, MA"))
("Tillson Nbr. 3 - 385 " (" 122 Tillson, Canton, MA"))
("Tillson Nbr. 4 - 157 " (" 123 Tillson, Canton, MA"))
("Tillson Nbr. 5 - 158 " (" 124 Tillson, Canton, MA"))
("Tillson Nbr. 6 - 160 " (" 135 Tillson, Canton, MA"))
)
)
;; Start of Main Routine
;; Lots of Error Trapping to make sure the Dialog Loads:
(cond
( (<= (setq dclHandle (load_dialog dclFile)) 0)
(princ "\n--> DCL File not Found.")
)
( (not (new_dialog "building" dclHandle))
(setq dclHandle (unload_dialog dclHandle))
(princ "\n--> Dialog Definition not Found.")
)
( t
;; Dialog Loaded Successfully.
(or *Name* (setq *Name* "0"))
(or *Address* (setq *Address* "0"))
;; Set up some default selections, for the first-time running of the program.
;; The variables *Name* & *Address* are intended to be global and hence will
;; remember the user's last selections.
;; Populate the List_Boxes:
;; List_Box 'lst1'
(UpdateList "lst1" (mapcar 'car Data))
(set_tile "lst1" *Name*)
;; List_Box 'lst2'
(UpdateList "lst2" (cadr (nth (atoi *Name*) Data)))
(set_tile "lst2" *Address*)
;; Action_tile Statements:
;; These control what happens when the user interacts with a tile in the dialog.
(action_tile "lst1"
(strcat
"(UpdateList \"lst2\" (setq lst2 (cadr (nth (atoi (setq *Name* $value)) Data))))"
"(setq *Address*"
" (set_tile \"lst2\""
" (if (< (atoi *Address*) (length lst2)) *Address* \"0\")"
" )"
")"
)
)
;; Here, when the user selects an item from 'lst1', the UpdateList subfunction
;; is fired to update the items in list_box 'lst2'.
;; list_box 'lst2' is also set to the value of *Address* if the index is
;; available for the selected item, else the first item is selected.
;; Note that $value is a string containg the index of the item
;; that the user has selected.
(action_tile "lst2" "(setq *Address* $value)")
;; Dialog setup, lets start it:
(start_dialog)
(setq dclHandle (unload_dialog dclHandle))
)
)
(princ)
)
Here is the code to change the drawing properties value, just need it to run when you select the ok button.
(vla-SetCustomByKey(vla-get-summaryinfo(vla-get-activedocument(Vlax-get-acad-object)))"PROJECT-NAME" "SUCCESS")
(vla-SetCustomByKey(vla-get-summaryinfo(vla-get-activedocument(Vlax-get-acad-object)))"BLDG-ADDRESS" "SUCCESS")
Solved! Go to Solution.
