[求助]急！急！在AutoLisp中如何修改DCL中的label属性？

summersky85

请问各位大哥大姐们，

如何在AutoLisp中通过函数来修改DCL文件中的label属性啊？

比较急，请大家多帮帮忙。

summersky85

急啊！大家给点建议撒...

duotu007

(set_tile key value)

summersky85

谢谢你的回答。

请问这个key是某个控件的key吗？

比如说：

DCL文件：

test：dialog{

   label="aaaa";

   :text{

     label="bbbb";

     key="test1";  

   }

}

 

LISP文件：

（set_tile "test1" "cccc"）

 

这样对话框中的bbbb就会变成cccc了吗？

ZZXXQQ

一般label不能直接改，

1、可以用程序重写dcl，然后再重新调入；

2、采用变通的方法，用text代替label。通过更改text的内容达到同样效果。

如下所示，可通过(set_tile "test1" "bbbb")来更改假label。

test:dialog{
 label="test";
 :row{
  :text{label="";key="test1";value="a";}
  :edit_box{label="";key="edit1";}
 }
 :row{
  :text{label="";key="test2";value="b";}
  :edit_box{label="";key="edit2";}
 }
 :row{
  :text{label="";key="test3";value="c";}
  :edit_box{label="";key="edit3";}
 }
 ok_cancel;
}

summersky85

谢谢你的回答。

可是我想要改变最外层的dialog地label值，这种方法不是就行不通了吗？

summersky85

还没有解决呢，

大家帮帮忙啊....

ZZXXQQ

就用5楼的第一个方法吧，一定能成。

shenhung

test:dialog{
 label="test";  <====你說的最外層,是不是對話框.標題這個...label~
 :row{
  :text{label="";key="test1";value="a";}
  :edit_box{label="";key="edit1";}
 }
 :row{
  :text{label="";key="test2";value="b";}
  :edit_box{label="";key="edit2";}
 }
 :row{
  :text{label="";key="test3";value="c";}
  :edit_box{label="";key="edit3";}
 }
 ok_cancel;
}

 

 

;;

 

test:dialog{
 key="label"; 

 

然後用(set_tile "label" "內容")

 ;label 就會顯示內容的東西..

hzj526

楼上的方法可行的