Picking origin point with modal form

[Fred Tomke]

You've already done. Have a look into the OnInitialize-function. The OnInitialize event will be called when the form will be shown again. and there you wrote

Code Select Expand


  (setq OrX(car Spot))
  (setq OrY(cadr Spot))
  (setq OrZ(caddr Spot))


and then

Code Select Expand


  (dcl_Control_SetText BillsShopDrawing_form1_TextBox4 (itoa OrX))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox5 (itoa OrY))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox6 (itoa OrZ))

It should work.

Fred

[william17051]

Well it does not update. ???
It continues to to use the original 0,0,0.

I thought it would update as well.

I just noticed in the command prompt after the getpoint command it is giving me an error.

Code Select Expand

Command: _BillsShopDrawing
Select point: Program ERROR
Resetting environment ; error: An error has occurred inside the *error*
functionbad argument type: consp nil
1
Command: 'VLIDE
Command:

Im not sure why yet. :o

[Fred Tomke]

Hm, go far ahead from the ucs origin - itoa is given back a text from an integer. Try a (rtos OrX 2 4) instead.
I didn't check you code - I only moved som things.

I will take a closer look.

Fred

[william17051]

Thanks Fred,
Your help is greatly appreciated! ;)

[Fred Tomke]

Ahm, I cannot see any mistake at the code. Please be so kind to upload

a) the project file and
b) your *error* function

Fred

[william17051]

As far as an error code, Well I dont have one. :-\  What you have, I have.
Sort of a newbee here. Never really had an error function.

Here is the project file. And code.

Code Select Expand

(defun C:BillsShopDrawing (/)
  (command "OPENDCL")
  (dcl_Project_Load "BillsShopDrawing") ; load it just only one time
 
  (setq Spot(list 1 1 1))
  (setq lg 100)
  (setq wd 96)
  (setq ht 90)
  (SETQ bflag T)
  (WHILE bflag                                  ; To fire it up
    (SETQ bflag nil)
    (setq intResult (dcl_Form_Show BillsShopDrawing_form1))      ; jump to open form and set variables
    (cond
      ((= intResult 3)
       (SETVAR "BLIPMODE" 1)
       (SETQ Spot(GETPOINT "\nSelect point: "))
       (SETVAR "BLIPMODE" 0)
       (VL-CMDF "._REDRAW")
       (SETQ bflag T))
      ); cond
    ); end while
  (setvar "osmode" 175)
  (setvar "highlight" 1)
);end defun


(defun c:BillsShopDrawing_form1_OnInitialize (/ OrX OrY OrZ)
  (setq OrX(car Spot))
  (setq OrY(cadr Spot))
  (setq OrZ(caddr Spot))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox1 (itoa lg))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox2 (itoa wd))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox3 (itoa ht))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox4 (rtos OrX 2 4))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox5 (rtos OrY 2 4))
  (dcl_Control_SetText BillsShopDrawing_form1_TextBox6 (rtos OrZ 2 4))
); c:BillsShopDrawing_form1_OnInitialize


(defun c:BillsShopDrawing_form1_SetOrigin_OnClicked (/)
  (dcl_FORM_CLOSE BillsShopDrawing_form1 3) ; the given argument will be the returning value of Form_Show method
); c:BillsShopDrawing_form1_SetOrigin_OnClicked

[owenwengerd]

Your text bozes contain an integer filter, so they are rejecting any setting that is not an integer. The (rtos) is resulting in a real number, which is rejected. Try changing the third argument to (rtos) from a 4 to zero, then it should work.

[william17051]

You guys are awsome ;D!
Works great!
Thanks for all the help!
Bill