【已解决】请老师帮忙看看，为什么不能给窗体里的控件赋值

wdmzslw · 发表于 2018-5-7 23:28:53

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wdmzslw 于 2018-6-22 00:00 编辑

我在一个odcl文件里添加了2个窗体，第二个窗体能显示，但是不能给窗体里的文本框赋值，显示出错信息，最近忙，好长时间没学习了，有点荒废了，还请老师指点一下，如图所示

marting · 发表于 2018-5-7 23:34:21

把你的ODCL保存成LISP，代码贴上来。
把你的LSP处理的代码也贴上来。

肯定是你的代码有问题啊，看图说明不了啊。

wdmzslw · 发表于 2018-5-8 14:20:13

本帖最后由 wdmzslw 于 2018-5-8 14:29 编辑

marting 发表于 2018-5-7 23:34
把你的ODCL保存成LISP，代码贴上来。
把你的LSP处理的代码也贴上来。

请老师看看

newer · 发表于 2018-5-8 14:24:42

你什么时候写的，是不是很久前低版本OPENDCL能用，现在高版本用不了？如果是，你在OPENDCL STUDIO里面，重新拷贝下回调函数替换下。

wdmzslw · 发表于 2018-5-8 14:46:18

newer 发表于 2018-5-8 14:24
你什么时候写的，是不是很久前低版本OPENDCL能用，现在高版本用不了？如果是，你在OPENDCL STUDIO里面，重 ...

应该不是这个问题，我的main窗体好用，但是在main窗体里点击按钮调用scl窗体就不好用了，scl窗体能显示出来，但是scl窗体里的文本框不能显示文本

marting · 发表于 2018-5-8 15:39:45

wdmzslw 发表于 2018-5-8 14:46
应该不是这个问题，我的main窗体好用，但是在main窗体里点击按钮调用scl窗体就不好用了，scl窗体能显示出 ...

对话框要先SHOW出来，你才能setcaption

marting · 发表于 2018-5-8 16:11:29

本帖最后由 marting 于 2018-5-8 16:12 编辑

wdmzslw 发表于 2018-5-8 14:46
应该不是这个问题，我的main窗体好用，但是在main窗体里点击按钮调用scl窗体就不好用了，scl窗体能显示出 ...

试试

;;主程序
(defun c:aa ()
(if (dcl-Project-Load "abc" t)
(progn (if (dcl-Form-IsActive main)
(princ "\n已经运行！")
(if (dcl-Form-Show main)
(princ "\n启动成功")
)
) ;if
)
)
(princ)
)
;;;窗体初始化
(defun c:abc#OnInitialize (/)
(dcl-ComboBox-Clear CbBx3)
(setq scale (list "1"))
(dcl-ComboBox-AddList CbBx3 scale)
(dcl-Control-SetText CbBx3 "1")
(princ)
)
;;;设置比例因数
(defun c:TxtBttn7#OnClicked (/)
(dcl-sendstring "(setscale)\n")
(princ)
)
;;;设置比例因数---函数
(defun setscale (/)
(setvar "cmdecho" 0)
(setq OldOS (getvar "osmode"))
(setvar "osmode" 431)
(setq pt1 (getpoint "\n>>>测量图上线段长度，点取第一点："))
(setq pt2 (getpoint pt1 "\n>>>点取图上第二点："))
(entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
(setq dist (distance pt1 pt2))
(dcl-Form-IsActive scl)
(dcl-Form-Show scl)
(princ)
)
(defun c:SCLbtn1#OnClicked (/)
(setq Rdist (distof (dcl-Control-GetText SCLbx1)))
(dcl-form-close scl)
(setq scaleV (rtos (/ Rdist dist) 2 3))
(princ (strcat "设定比例因数为：" scaleV))
(dcl-Control-SetText CbBx3 scaleV)
(setvar "osmode" OldOS)
(setvar "cmdecho" 1)
)
;;说明:设置图纸比例因数窗体初始化
(defun c:scl#OnInitialize (/)
(dcl-Control-SetCaption SCLlbl1 (rtos dist 2 3))
(dcl-Control-SetFocus SCLbx1)
)

;;主程序 
(defun c:aa () 
  (if (dcl-Project-Load "abc" t) 
    (progn (if (dcl-Form-IsActive main) 
             (princ "\n已经运行！") 
             (if (dcl-Form-Show main) 
               (princ "\n启动成功") 
             ) 
           )                            ;if 
    ) 
  ) 
  (princ) 
) 
;;;窗体初始化 
(defun c:abc#OnInitialize (/) 
  (dcl-ComboBox-Clear CbBx3) 
  (setq scale (list "1")) 
  (dcl-ComboBox-AddList CbBx3 scale) 
  (dcl-Control-SetText CbBx3 "1") 
  (princ) 
) 
;;;设置比例因数 
(defun c:TxtBttn7#OnClicked (/) 
  (dcl-sendstring "(setscale)\n") 
  (princ) 
) 
;;;设置比例因数---函数 
(defun setscale (/) 
  (setvar "cmdecho" 0) 
  (setq OldOS (getvar "osmode")) 
  (setvar "osmode" 431) 
  (setq pt1 (getpoint "\n>>>测量图上线段长度，点取第一点：")) 
  (setq pt2 (getpoint pt1 "\n>>>点取图上第二点：")) 
  (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2))) 
  (setq dist (distance pt1 pt2)) 
  (dcl-Form-IsActive scl) 
  (dcl-Form-Show scl) 
  (princ) 
) 
(defun c:SCLbtn1#OnClicked (/) 
  (setq Rdist (distof (dcl-Control-GetText SCLbx1))) 
  (dcl-form-close scl) 
  (setq scaleV (rtos (/ Rdist dist) 2 3)) 
  (princ (strcat "设定比例因数为：" scaleV)) 
  (dcl-Control-SetText CbBx3 scaleV) 
  (setvar "osmode" OldOS) 
  (setvar "cmdecho" 1) 
) 
;;说明:设置图纸比例因数窗体初始化 
(defun c:scl#OnInitialize (/) 
  (dcl-Control-SetCaption SCLlbl1 (rtos dist 2 3)) 
  (dcl-Control-SetFocus SCLbx1) 
)

把ODCL拷贝回去，点确定后，设置到停靠窗口里面。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:abc.odcl
下载次数:8 文件大小:57.36 KB
下载权限: 不限以上 [免费赚D豆]

wdmzslw · 发表于 2018-5-8 16:15:19

marting 发表于 2018-5-8 15:39
对话框要先SHOW出来，你才能setcaption

(dcl-Form-Show fm-scl )
(dcl-Control-SetCaption SCLlbl1 (rtos dist 2 3))
改成这样的了，显示窗体了，但是标签文字设置不成功

newer · 发表于 2018-5-8 16:22:39

wdmzslw 发表于 2018-5-8 16:15
(dcl-Form-Show fm-scl )
(dcl-Control-SetCaption SCLlbl1 (rtos dist 2 3))
改成这样 ...

把7楼的代码和ODCL拷贝回去试试。

wdmzslw · 发表于 2018-5-8 17:46:45

marting 发表于 2018-5-8 16:11
试试

太好了，可以用了，谢谢老师。

wdmzslw · 发表于 2018-5-8 19:15:52

marting 发表于 2018-5-8 16:11
试试

老师，自行语句(

dcl-Control-SetFocus SCLbx1

)后，为什么SCLbx1文本框没有处于输入状态，而确认按钮缺失处于激活状态？

wdmzslw · 发表于 2018-5-8 19:46:07

wdmzslw 发表于 2018-5-8 19:15
老师，自行语句(dcl-Control-SetFocus SCLbx1)后，为什么SCLbx1文本框没有处于 ...

搞明白了，原来是tab未停留

账号		自动登录	找回密码
密码			立即注册

[求助] 【已解决】请老师帮忙看看，为什么不能给窗体里的控件赋值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

请老师看看

点评

点评

点评

点评

点评