Alfredo
here is the code for my first attempt... where am I going wrong?
1. when the box opens, i want the focus to be on the screen and not the
box..how is that done
2.if i click on textbox1 and change the value only enter will update the
caption - i tried the other event but is was problematic...my codng was
probably bad
3. when i change the previous entry which was inserted it will change it,
but when i click the next point and insert the next blcok the previous block
disappears (it is still there, it just hides until i do a trgrn)
If you can offer a suggestion it would be greatly appreciated
I can write dialog boxes fairly quickly with dcl, it's the modeless option
in objectdcl which has me really wanting to use it...
Thanks
PJ
;-------------objectdcl functions-------------------
(ObjectDCL_LoadArx)
(Odcl_LoadProject "RoomNumberSet")
(Odcl_Form_Show "RoomNumberSet" "RoomNumber")
;------------------set tiles in dialog------------------
(Odcl_Control_SetText RoomNoPrefixTemp ROOMNOPREFIX)
(Odcl_Control_SetText RoomNoDigitsTemp (itoa ROOMNODIG))
(Odcl_Control_SetText RoomNoTemp (itoa ROOMNO))
(Odcl_Control_SetCaption ROOMNOSTR (setq aroomnumber (setanumber
ROOMNOPREFIX ROOMNO ROOMNODIG)))
(Odcl_Control_ZOrder RoomNoTemp 1)
(Odcl_Control_ZOrder RoomNoDigitsTemp 1)
(Odcl_Control_ZOrder RoomNoPrefixTemp 1)
;------------------local Object DCL functions-------------------
(defun c:RoomNumber_TextBox1_OnReturnPressed (/ )
(Odcl_Control_SetEventInvoke RoomNoPrefixTemp 0)
(Setq ROOMNOPREFIX (Odcl_Control_GetText RoomNoPrefixTemp))
(Odcl_Control_SetEventInvoke RoomNoPrefixTemp 1)
(setq aroomno (setanumber ROOMNOPREFIX ROOMNO ROOMNODIG))
(update_global_var "ARCTANNOVAR" (list "ROOMNO" "ROOMNODIG"
"ROOMNOPREFIX"))
(updateroomnodisplay)
)
(defun c:RoomNumber_TextBox2_OnReturnPressed ( / Value )
(Odcl_Control_SetEventInvoke RoomNoDigitsTemp 0)
(Setq Value (Odcl_Control_GetText RoomNoDigitsTemp))
(if (zeros Value)
(if (not (< 0 (setq Value (atoi Value)) 5))
(progn
(Odcl_Control_SetText RoomNoDigitsTemp (itoa ROOMNODIG))
(Odcl_MessageBox "Precision should be from 1 to 4 Digits"
"Alert!")
(Odcl_Control_SetEventInvoke RoomNoDigitsTemp 1)
)
(progn
(setq ROOMNODIG (atoi Value))
(Odcl_Control_SetEventInvoke RoomNoDigitsTemp 1)
)
)
(progn
(Odcl_Control_SetText RoomNoDigitsTemp (itoa ROOMNODIG))
(Odcl_MessageBox "Precision should be from 1 to 4 Digits"
"Alert!")
(Odcl_Control_SetEventInvoke RoomNoDigitsTemp 1)
)
)
(updateroomnodisplay)
)
(defun c:RoomNumber_TextBox3_OnReturnPressed (/ Value)
(Odcl_Control_SetEventInvoke RoomNoTemp 0)
(if (zeros (Setq Value (Odcl_Control_GetText RoomNoTemp)))
(setq ROOMNO (atoi Value ))
(Odcl_Control_SetText RoomNoTemp (itoa ROOMNO))
)
(Odcl_Control_SetEventInvoke RoomNoTemp 1)
(updateroomnodisplay)
)
(defun c:RoomNumber_TextBox4_OnReturnPressed (/ Value)
(Odcl_Control_SetEventInvoke RoomNumberPrevious 1)
(setq Value (Odcl_Control_GetText RoomNumberPrevious))
(Odcl_Control_SetEventInvoke RoomNumberPrevious 0)
(if lastroomno
(progn
(setq lastroomno Value)
(setallattributes enprev (list (cons "RNO" Value)))
(entupd enprev)
)
)
)
(defun updateroomnodisplay (/)
(Odcl_Control_SetEventInvoke ROOMNOSTR 0)
(Odcl_Control_SetCaption ROOMNOSTR (setq aroomno (setanumber
ROOMNOPREFIX ROOMNO ROOMNODIG)))
(Odcl_Control_SetEventInvoke ROOMNOSTR 1)
(update_global_var "ARCTANNOVAR" (list "ROOMNO" "ROOMNODIG"
"ROOMNOPREFIX"))
)
"Alfredo Medina" wrote in message
news:5408929@discussion.autodesk.com...
Joel
Have you tried that by yourself, or is it something you have read, that it
works with 2007, but you have not tried it yet?
Alf
"Joel Roderick" wrote in message
news:5408162@discussion.autodesk.com...
Alfedo,
ODCL has gone open source and has been updated to work with 2007...
http://sourceforge.net/project/showfiles.php?group_id=173347
"Alfredo Medina" wrote in message
news:5407006@discussion.autodesk.com...
Jamie,
Once you start working with Object DCL, do this: start by creating a new
form. Then, insert controls in the form. Then, right click on the control
you just inserted, and select "intelligent help" from the menu. You will see
all the functions associated with the control you just selected.
Beware that as of today, ObjectDCL does not work in AutoCAD 2007, only until
2006.
Alfredo Medina
"Princess Jamie" wrote in message
news:5406587@discussion.autodesk.com...
hey henrique, comment ca vas?
I already went through the downloads area. I read the manual for the full
install and it is rather sparse. The help seems a little sparse too,
I simply can't find a list of functions for each control. i have no way of
knowing how to set the information in a textbox for example...
If you have any reference material on this please email it to me...
Thanks
jamieduncanCHANGEZvelcomCHANGEZPOINTca
PJ
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
