请教关于OPENDCL问题

carrot1983

对话框的出现和拾取点的顺序，你原来的程序有问题。

你在对话框弹出来的时候用了getpoint，不知道你试过了没有？可以拾取吗？

只有你拾取到了点，得到了(itoa (fix (dist1 x1 y1 x2 y2)))) 这个距离值

此时，当你按下TEXTbutton的时候在TEXTbox里面才会出现这个距离值

wzh

不是不算，你设置断点看一下，实际是调用了子程序，问题是计算完成后没有恢复对话框，是第一段的主程序有问题，按下列方式试一下：

(defun c:pls( / Bflag)
  (vl-load-com)
  (dcl_LoadProject "plus" T)
  (setq Bflag T)
  (while (= Bflag T)
        (setq Bflag nil)
   (dcl_Form_Show plus_plus)
  )
)
(defun c:plus_plus_btnp_OnClicked ()
  (setq Bflag T)
  (dcl_Form_close plus_plus)
  (setq pt1 (getpoint " insert point1"))
  (setq pt2 (getpoint " insert point2"))
  (setq x1 (car pt1))
  (setq x2 (car pt2))
  (setq y1 (cadr pt1))
  (setq y2 (cadr pt2))
  (dcl_Control_SetText plus_plus_text1 (itoa (fix (dist1 x1 y1 x2 y2))))
)
(defun dist1(x1 y1 x2 y2 / )
  (setq tt (sqrt (+ (* (- x2 x1) (- x2 x1)) (* (- y2 y1) (- y2 y1)))))
  (eval 'tt)
)

north911

问题已解决，多谢各位指教！

north911

再问一个问题，在没有安装OPENDCL的机器上要运行有OPENDCL对话框的程序需要OpenDCL.16.arx之外，还需要其它什么设置？

north911

直接加载OpenDCL.16.arx或OpenDCL.17.arx要出错，哪位高手指点一下在没有安装OPENDCL的机器上要运行有OPENDCL对话框的程序。

haiyunzhou

学习了 非常感谢

honker1981

btnp按钮的Event Invoke属性有没有设置为1？