设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 扩展数据的可停靠对话框求大神指点
返回列表 发新帖
查看: 1587|回复: 9

[编程申请] 扩展数据的可停靠对话框求大神指点

[复制链接]
lameduck
发表于 2015-5-25 20:23:47 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 lameduck 于 2015-5-26 13:25 编辑

初学lisp和opendcl，写个扩展数据的可停靠对话框，本来想实现像cad对象特性那种功能，但是不知道怎么获取图形中当前选择对象！就加了个拾取对象的按钮，但是这个按钮选择的对象好像传不到控件的函数（如c:pro_Form1_TextBox2_OnEditChanged）中，执行都是错误的！跪求大神指点！
下面是源代码
  2. (defun C:pro()
  3.   (vl-load-com)
  4.   (setq cmdecho (getvar "CMDECHO"))
  5.   (setvar "CMDECHO" 0)
  6.   (command "_OPENDCL")
  7.   (setvar "CMDECHO" cmdecho)
  8.   (Setq Lxd (Dcl_Project_Load "F:/pro.odcl"))
  9.   (dcl_Form_Show "pro" "form1")
  10. (princ)
  11. )
  12. (defun c:pro_Form1_OnDocActivated (/)
  13.   (c:pro_Form1_OnInitialize)
  14. )
  15. (defun c:pro_Form1_OnEnteringNoDocState (/)
  16.   (dcl_Form_Close pro_Form1)
  17. )

  19. (defun c:pro_Form1_OnInitialize (/)
  20.   (dcl_ComboBox_SetCurSel pro_Form1_ComboBox1 -1)
  21.   (dcl_Control_SetText pro_Form1_TextBox2 "")
  22.   (dcl_Control_SetText pro_Form1_TextBox3 "")
  23.   (dcl_Control_SetText pro_Form1_TextBox4 "")
  24.   (dcl_OptionList_SetCurSel pro_Form1_OptionList1 -1)
  25.   (dcl_OptionList_SetCurSel pro_Form1_OptionList2 -1)
  26.   (dcl_OptionList_SetCurSel pro_Form1_OptionList3 -1)
  27. )
  28.   
  29. (defun c:pro_Form1_TextButton1_OnClicked()
  30.   (c:pro_Form1_OnInitialize)
  31.   (setq ss(car(entsel)))
  32.   (redraw ss 3)
  33.   (cond ((getxdata ss "obname") (dcl_ComboBox_SetCurSel pro_Form1_ComboBox1 (obname_m (getxdata ss "obname"))))
  34.         ((getxdata ss "floorno") (dcl_Control_SetText pro_Form1_TextBox2 (getxdata ss "floorno")))
  35.         ((getxdata ss "topfloor") (dcl_Control_SetText pro_Form1_TextBox3 (getxdata ss "topfloor")))
  36.   ((getxdata ss "buildno") (dcl_Control_SetText pro_Form1_TextBox4 (getxdata ss "buildno")))
  37.   ((getxdata ss "areacal") (dcl_Control_SetCurrentSelection pro_Form1_OptionList1 (areacal_m (getxdata ss "areacal"))))
  38.   ((getxdata ss "arearatio") (dcl_Control_SetCurrentSelection pro_Form1_OptionList2 (arearatio_m (getxdata ss "arearatio"))))
  39.   ((getxdata ss "buildfunction") (dcl_Control_SetCurrentSelection pro_Form1_OptionList3 (buildfunction_m (getxdata ss "buildfunction")))))
  40.   (dcl_Control_SetEnabled pro_Form1_TextButton1 T)
  41. )

  43. (defun getxdata(ob xpro)
  44.   (setq proxdata(entget ob (list xpro)))
  45.   (setq  a(cdr(cadr(cadr(assoc -3 proxdata)))))
  46. )
  47. ;;;改变实体扩展对象
  48. (defun changexdata(ob xpro input / proxdata e else_xdata)
  49. (setq proxdata(entget ob))
  50. (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
  51. (setq else_xdata(vl-remove-if '(lambda(x) (= (car x) xpro)) else_xdata))
  52. (if (not else_xdata)
  53.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
  54.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
  55.   (regapp xpro)
  56.   (entmod proxdata)
  57. )

  59. ;;;加入实体扩展对象         
  60. (defun putxdata(ob xpro input / proxdata else_xdata)
  61.   (setq proxdata(entget ob))  
  62.   (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
  63.   (if (not else_xdata)
  64.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
  65.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
  66.   (regapp xpro)
  67.   (entmod proxdata)
  68.   )
  69. (defun obname_m(str)
  70.   (cond ((= str "建筑物") (setq a 0))
  71.   ((= str "建筑物附属") (setq a 1))
  72.   ((= str "夹层") (setq a 1)))
  73. a)
  74. (defun areacal_m(str)
  75.   (cond ((= str "2") (setq a 0))
  76.         ((= str "1") (setq a 1))
  77.   ((= str "0.5") (setq a 2))
  78.   ((= str "0") (setq a 3))
  79.   ((= str "-1") (setq a 4)))
  80.   a)

  82. (defun arearatio_m(str)
  83.   (cond ((= str "不计容") (setq a 0))
  84.   ((= str "计容") (setq a 1))
  85.   ((= str "计容") (setq a 2)))
  86.   a)

  88. (defun buildfunction_m(str)
  89.   (cond ((= str "住宅") (setq a 0))
  90.   ((= str "商业") (setq a 1))
  91.   ((= str "办公") (setq a 2))
  92.   ((= str "**") (setq a 3)))
  93.   a)
  94.   

  96. (defun isint(s) ;;判断是否为整数是为T否为nil
  97.   (cond ((not (=(type s) 'str)) nil)
  98.   ((= (type(read s)) 'int) T)
  99.   (T nil)
  100.   ))
  101. (defun c:pro_Form1_ComboBox1_OnSelChanged (ItemIndexOrCount Value  /)
  102.   (princ Value)
  103.   (if (getxdata ss "obname")
  104.     (changexdata ss "obname" Value)
  105.     (putxdata ss "obname" Value))
  106.   (dcl_Control_SetEnabled pro_Form1_ComboBox1 T)
  107. )
  108. (defun c:pro_Form1_TextBox2_OnEditChanged()
  109.   (setq f_NewValue(dcl_Control_GetText pro_Form1_TextBox2))
  110.   (if (isint f_NewValue)
  111.     (alert "请输入整数"))
  112.   (if (getxdata ss "floorno")
  113.     (changexdata ss "floorno" f_NewValue)
  114.     (putxdata ss "floorno" f_NewValue))
  115.   (dcl_Control_SetEnabled pro_Form1_TextBox2 T)
  116. )

  118. (defun c:pro_Form1_TextBox3_OnEditChanged()
  119.   (setq t_NewValue(dcl_Control_GetText pro_Form1_TextBox3))
  120.   (if (isint t_NewValue)
  121.     (alert "请输入整数"))
  122.   (if (getxdata ss "topfloor")
  123.     (changexdata ss "topfloor" t_NewValue)
  124.     (putxdata ss "topfloor" t_NewValue))
  125.   (dcl_Control_SetEnabled pro_Form1_TextBox3 T)
  126. )

  128. (defun c:pro_Form1_TextBox4_OnEditChanged()
  129.   (setq bn_NewValue(dcl_Control_GetText pro_Form1_TextBox4))
  130.   (if (getxdata ss "buildno")
  131.     (changexdata ss "buildno" bn_NewValue)
  132.     (putxdata ss "buildno" bn_NewValue))
  133.   (dcl_Control_SetEnabled pro_Form1_TextBox4 T)
  134. )

  136. (defun c:pro_Form1_OptionList1_OnSelChanged(ItemIndexOrCount ac_Value /)
  137.   (princ ac_Value)
  138.   (if (getxdata ss "areacal")
  139.     (changexdata ss "areacal" ac_Value)
  140.     (putxdata ss "areacal" ac_Value))
  141.   (dcl_Control_SetEnabled pro_Form1_OptionList1 T)
  142. )
  143. (defun c:pro_Form1_OptionList2_OnSelChanged(ItemIndexOrCount ar_Value /)
  144.   (princ ar_Value)
  145.   (if (getxdata ss "arearatio")
  146.     (changexdata ss "arearatio" ar_Value)
  147.     (putxdata ss "arearatio" ar_Value))
  148.   (dcl_Control_SetEnabled pro_Form1_OptionList2 T)
  149. )
  150. (defun c:pro_Form1_OptionList3_OnSelChanged(ItemIndexOrCount bf_Value /)
  151.   (princ bf_Value)
  152.   (if (getxdata ss "buildfunction")
  153.     (changexdata ss "buildfunction" bf_Value)
  154.     (putxdata ss "buildfunction" bf_Value))
  155.   (dcl_Control_SetEnabled pro_Form1_OptionList3 T)
  156. )

pro.odcl

2.05 KB, 下载次数: 5, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

tianyi1230
发表于 2015-5-26 09:20:12 | 显示全部楼层
看来是建筑规划专业的！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

iLisp

已领礼包: 264个

财富等级: 日进斗金
发表于 2015-5-26 10:08:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
1 OnEditChanged 是只要有变化就触发，这时候可能输入还没有完成，用 Updata 事件
2 Combobox 控件设置改用 SetEBText 方法

点评

lameduck
1.改成Updata事件了，总是出现错误：参数太多。 是不是拾取对象按钮的对象不能传递到控件事件函数里面去？ 2.没找到有setebtext 只有getebtext！  详情 回复 发表于 2015-5-26 13:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lameduck
 楼主| 发表于 2015-5-26 13:04:50 | 显示全部楼层
本帖最后由 lameduck 于 2015-5-26 13:13 编辑
iLisp 发表于 2015-5-26 10:08
1 OnEditChanged 是只要有变化就触发，这时候可能输入还没有完成，用 Updata 事件
2 Combobox 控件设置改 ...

1.改成Updata事件了，总是出现错误：参数太多。
是不是拾取对象按钮的对象不能传递到控件事件函数里面去？
2.没找到有setebtext 只有getebtext！
我是在拾取对象按钮的click事件中选择了一个对象，赋值到ss上，但是到控件事件函数中都变成nil了。。

点评

csharp
你的逻辑有问题 方式一： 选择实体->如果有扩展数据->提取数据并显示到界面上->修改界面中数据->更新按钮，更新实体扩展属性 方式二： 选择实体->空选择->显示界面，使用默认数据->修改数据-> 拾取按钮->拾  详情 回复 发表于 2015-5-26 14:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2015-5-26 14:29:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lameduck 发表于 2015-5-26 13:04
1.改成Updata事件了，总是出现错误：参数太多。
是不是拾取对象按钮的对象不能传递到控件事件函数里面去 ...

你的逻辑有问题

方式一：
选择实体->如果有扩展数据->提取数据并显示到界面上->修改界面中数据->更新按钮，更新实体扩展属性

方式二：
选择实体->空选择->显示界面，使用默认数据->修改数据-> 拾取按钮->拾取实体，更新或者赋值扩展数据

点评

lameduck
您好，我改了下，用更改按钮来改属性，但是还是没有用，麻烦您抽空看看！  详情 回复 发表于 2015-5-26 15:25
lameduck
谢谢您，我想采用的是第一种方式，但是最后一步是想希望通过各个控件的事件比如selchange，editchange来更改扩展属性，就像cad里面对象特性一样！那个更改的按钮是如果控件事件搞不出来的话，就通过那个按钮读取控件  详情 回复 发表于 2015-5-26 15:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lameduck
 楼主| 发表于 2015-5-26 15:04:55 | 显示全部楼层
csharp 发表于 2015-5-26 14:29
你的逻辑有问题

方式一：

谢谢您，我想采用的是第一种方式，但是最后一步是想希望通过各个控件的事件比如selchange，editchange来更改扩展属性，就像cad里面对象特性一样！那个更改的按钮是如果控件事件搞不出来的话，就通过那个按钮读取控件数据来改属性！就是现在控件事件触发不能执行。是不是我吧控件事件的函数理解错了？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2015-5-26 15:15:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
对象名称 combobox  需要填充表

点评

lameduck
我改了下代码在楼下，不用控件事件触发，加个更改属性按钮读取数据然后更改数据，但是还是不行！吧那个按钮的命令（c:pro_Form1_TextButton2_OnClicked）放到命令行里执行又可以改！  详情 回复 发表于 2015-5-26 16:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lameduck
 楼主| 发表于 2015-5-26 15:25:39 | 显示全部楼层
csharp 发表于 2015-5-26 14:29
你的逻辑有问题

方式一：

您好，我改了下，用更改按钮来改属性，但是还是没有用，麻烦您抽空看看！
  2. (defun C:pro()
  3.   (vl-load-com)
  4.   (setq cmdecho (getvar "CMDECHO"))
  5.   (setvar "CMDECHO" 0)
  6.   (command "_OPENDCL")
  7.   (setvar "CMDECHO" cmdecho)
  8.   (Setq Lxd (Dcl_Project_Load "F:/pro.odcl"))
  9.   (dcl_Form_Show "pro" "form1")
  10. (princ)
  11. )
  12. (defun c:pro_Form1_OnDocActivated (/)
  13.   (c:pro_Form1_OnInitialize)
  14. )
  15. (defun c:pro_Form1_OnEnteringNoDocState (/)
  16.   (dcl_Form_Close pro_Form1)
  17. )

  19. ;;初始化
  20. (defun c:pro_Form1_OnInitialize(/)
  21.     (dcl_ComboBox_SetCurSel pro_Form1_ComboBox1 -1)
  22.     (dcl_Control_SetText pro_Form1_TextBox2 "")
  23.     (dcl_Control_SetText pro_Form1_TextBox3 "")
  24.     (dcl_Control_SetText pro_Form1_TextBox4 "")
  25.     (dcl_OptionList_SetCurSel pro_Form1_OptionList1 -1)
  26.     (dcl_OptionList_SetCurSel pro_Form1_OptionList2 -1)
  27.     (dcl_OptionList_SetCurSel pro_Form1_OptionList3 -1))

  29. ;;拾取对象若有扩展属性在相应的位置显示
  30. (defun c:pro_Form1_TextButton1_OnClicked()
  31.   (c:pro_Form1_OnInitialize)
  32.   (setq ss(car(entsel)))
  33.   (redraw ss 3)
  34.   (if (getxdata ss "obname") (dcl_Control_setText pro_Form1_ComboBox1 (getxdata ss "obname")))
  35.   (if(getxdata ss "floorno") (dcl_Control_SetText pro_Form1_TextBox2 (getxdata ss "floorno")))
  36.   (if(getxdata ss "topfloor") (dcl_Control_SetText pro_Form1_TextBox3 (getxdata ss "topfloor")))
  37.   (if(getxdata ss "buildno") (dcl_Control_SetText pro_Form1_TextBox4 (getxdata ss "buildno")))
  38.   (if(getxdata ss "areacal") (dcl_Control_SetCurrentSelection pro_Form1_OptionList1 (areacal_m (getxdata ss "areacal"))))
  39.   (if(getxdata ss "arearatio") (dcl_Control_SetCurrentSelection pro_Form1_OptionList2 (arearatio_m (getxdata ss "arearatio"))))
  40.   (if(getxdata ss "buildfunction") (dcl_Control_SetCurrentSelection pro_Form1_OptionList3 (buildfunction_m (getxdata ss "buildfunction"))))
  41.   (dcl_Control_SetEnabled pro_Form1_TextButton1 T)
  42. )

  44. ;;;获取实体扩展对象
  45. (defun getxdata(ob xpro / proxdata a)
  46.   (setq proxdata(entget ob (list xpro)))
  47.   (setq  a(cdr(cadr(cadr(assoc -3 proxdata)))))
  48. )
  49. ;;;改变实体扩展对象
  50. (defun changexdata(ob xpro input / proxdata e else_xdata)
  51. (setq proxdata(entget ob))
  52. (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
  53. (setq else_xdata(vl-remove-if '(lambda(x) (= (car x) xpro)) else_xdata))
  54. (if (not else_xdata)
  55.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
  56.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
  57.   (regapp xpro)
  58.   (entmod proxdata)
  59. )

  61. ;;;加入实体扩展对象         
  62. (defun putxdata(ob xpro input / proxdata else_xdata)
  63.   (setq proxdata(entget ob))  
  64.   (setq else_xdata(cdr(assoc -3 (entget ob '("*")))))
  65.   (if (not else_xdata)
  66.     (setq proxdata(cons  (list -3 (list xpro(cons 1000 input))) proxdata))
  67.     (setq proxdata(cons (cons -3 (cons (list xpro(cons 1000 input)) else_xdata)) proxdata)))
  68.   (regapp xpro)
  69.   (entmod proxdata)
  70.   )

  72. (defun obname_m(str)
  73.   (cond ((= str "建筑物") (setq a 0))
  74.   ((= str "建筑物附属") (setq a 1))
  75.   ((= str "夹层") (setq a 1)))
  76. a)
  77. (defun areacal_m(str)
  78.   (cond ((= str "2") (setq a 0))
  79.         ((= str "1") (setq a 1))
  80.   ((= str "0.5") (setq a 2))
  81.   ((= str "0") (setq a 3))
  82.   ((= str "-1") (setq a 4)))
  83.   a)

  85. (defun arearatio_m(str)
  86.   (cond ((= str "不计容") (setq a 0))
  87.   ((= str "计容") (setq a 1))
  88.   ((= str "计容") (setq a 2)))
  89.   a)

  91. (defun buildfunction_m(str)
  92.   (cond ((= str "住宅") (setq a 0))
  93.   ((= str "商业") (setq a 1))
  94.   ((= str "办公") (setq a 2))
  95.   ((= str "**") (setq a 3)))
  96.   a)
  97.   

  99. (defun isint(s) ;;判断是否为整数是为T否为nil
  100.   (cond ((not (=(type s) 'str)) nil)
  101.   ((= (type(read s)) 'int) T)
  102.   (T nil)
  103.   ))
  104. ;;更改属性
  105. (defun c:pro_Form1_TextButton2_OnClicked (/)
  106.   (setq Value(dcl_Control_getText pro_Form1_ComboBox1)
  107.   f_NewValue(dcl_Control_getText pro_Form1_TextBox2)
  108.   t_NewValue(dcl_Control_getText pro_Form1_TextBox3)
  109.   bn_NewValue(dcl_Control_getText pro_Form1_TextBox4)
  110.   ac_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList1 (dcl_OptionList_GetCurSel pro_Form1_OptionList1))
  111.   ar_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList2 (dcl_OptionList_GetCurSel pro_Form1_OptionList2))
  112.   bf_Value(dcl_OptionList_GetButtonCaption pro_Form1_OptionList3 (dcl_OptionList_GetCurSel pro_Form1_OptionList3)))
  113.   (if (or (not(isint t_NewValue)) (equal t_NewValue "w"))
  114.     (progn (alert "顶层请输入整数或W") (exit)))
  115.   (if (not(isint f_NewValue))
  116.     (progn (alert "层数请输入整数")(exit)))
  117.   (if Value
  118.     (if (getxdata ss "obname")
  119.     (changexdata ss "obname" Value)
  120.     (putxdata ss "obname" Value)))
  121.   (if f_NewValue
  122.     (if (getxdata ss "floorno")
  123.     (changexdata ss "floorno" f_NewValue)
  124.     (putxdata ss "floorno" f_NewValue)))
  125.   (if t_NewValue
  126.     (if (getxdata ss "topfloor")
  127.       (changexdata ss "topfloor" t_NewValue)
  128.       (putxdata ss "topfloor" t_NewValue)))
  129.   (if bn_NewValue
  130.     (if (getxdata ss "buildno")
  131.     (changexdata ss "buildno" bn_NewValue)
  132.     (putxdata ss "buildno" bn_NewValue)))
  133.   (if ac_Value
  134.     (if (getxdata ss "areacal")
  135.     (changexdata ss "areacal" ac_Value)
  136.     (putxdata ss "areacal" ac_Value)))
  137.   (if ar_Value
  138.     (if (getxdata ss "arearatio")
  139.     (changexdata ss "arearatio" ar_Value)
  140.     (putxdata ss "arearatio" ar_Value)))
  141.   (if bf_Value
  142.     (if (getxdata ss "buildfunction")
  143.     (changexdata ss "buildfunction" bf_Value)
  144.     (putxdata ss "buildfunction" bf_Value)))
  145.   (dcl_Control_SetEnabled pro_Form1_TextButton2 T)
  146. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lameduck
 楼主| 发表于 2015-5-26 16:13:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2015-5-26 15:15
对象名称 combobox  需要填充表

我改了下代码在楼下，不用控件事件触发，加个更改属性按钮读取数据然后更改数据，但是还是不行！吧那个按钮的命令（c:pro_Form1_TextButton2_OnClicked）放到命令行里执行又可以改！

点评

神秘将军
不用控件事件触发，用代码单独执行可以修改扩展属性。不知道什么原因。[/backcolor] 楼主问题解决了没有呢?方便答疑一下不呢？[/backcolor]  详情 回复 发表于 2018-4-25 21:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

神秘将军

已领礼包: 205个

财富等级: 日进斗金
发表于 2018-4-25 21:27:30 | 显示全部楼层
lameduck 发表于 2015-5-26 16:13
我改了下代码在楼下，不用控件事件触发，加个更改属性按钮读取数据然后更改数据，但是还是不行！吧那个按 ...

不用控件事件触发，用代码单独执行可以修改扩展属性。不知道什么原因。
楼主问题解决了没有呢?方便答疑一下不呢？

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-11 08:33 , Processed in 0.262201 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表