(set (setq cc (read (strcat [color=red]$key[/color] "ls"))) tmp_l)
Thats the one...
I did it this way because i thought the problem lies with the quote
(set (setq cc (read (strcat (nth &# Dsc_l) "ls"))) tmp_l)
it was originally like what you wrote there...
(foreach ad_str Dsc_l
(action_tile ad_str (vl-prin1-to-string
but quote reads the variable
ad_str differently so i throw in a call to a list...
but then.... still the same result.. so what i did is separate the routine into two... which makes the codes longer..
(action_tile "CVL_" "(setq ds_pst 0)(ds_tm ds_pst)(mode_tile \"CVL_\" 1)").....
(defun ds_tm (ds_pst / Ds_rl Ad_ls tmp_l)
(setq Ds_rl (get_tile "DW_LST") Ad_ls nil tmp_l nil)
(while (/= Ds_rl "")
(setq Ad_ls (cons (atoi Ds_rl) Ad_ls)
Ds_rl (vl-string-left-trim (strcat " "(itoa (atoi Ds_rl))) Ds_rl))
)
(foreach & Ad_ls
(setq tmp_l (cons (nth & ftl_) tmp_l))
(setq ftl_ (vl-remove (nth & ftl_) ftl_)))
(set (setq cc (read (strcat (nth ds_pst Dsc_l) "ls"))) tmp_l)
(start_list "DW_LST")(mapcar 'add_list ftl_)(end_list)
)
Not good.... the codes are just too long
so now you came up with the
$key .... that did the trick
thanks buddy
btw here's the missing variable
Dsc_l(setq Dsc_l '("CVL_" "ARCHL_" "STCL_" "ELCTL_" "MECH_" "PLMBG_" "GENR_"))
Thanks Lee for the DCL pattern...
good catch roy_043
first post updated