combobox控件怎么输入初始值？

zhangq_cai1

1. (defun c:TextChange ()
   
2.   (DEFUN *error* (msg)
   
3.     (WHILE (< 0 (GETVAR "cmdactive"))
   
4.       (COMMAND)
   
5.     )                                       ; do error stuff
   
6.     (IF (DCL_FORM_ISACTIVE TextChange_Form1)
   
7.       (DCL_FORM_CLOSE TextChange_Form1)
   
8.     )
   
9.     (PRINC (STRCAT "\nApplication Error: " (ITOA (GETVAR "errno")) " :- " msg))
   
10.     (PRINC)
    
11.   )
    
12.   (SETQ cmdecho (GETVAR "CMDECHO"))
    
13.   (SETVAR "CMDECHO" 0)
    
14.   (COMMAND "_OPENDCL")
    
15.   (SETVAR "CMDECHO" cmdecho)
    
16.   (DCL_PROJECT_LOAD "E:\\MYTOOLS\\lisp程序\\TextChange.odcl")
    
17.   (dcl_Form_Show TextChange_Form1)
    
18.   (princ)
    
19. )
    
20. 
    
21. (defun c:TextChange_Form1_OnInitialize (/)
    
22.   (dcl_ComboBox_Clear TextChange_Form1_ComboBox1)
    
23.   (setq dwgobj (vla-get-ActiveDocument (vlax-get-acad-object)))
    
24.   (setq mspace (vla-get-ModelSpace dwgobj))
    
25.   (setq stylesobj (vla-get-textstyles dwgobj))
    
26.   (setq stylist nil)
    
27.   (vlax-for sobj stylesobj (setq styname (vla-get-name sobj))
    
28.             (setq stylist (cons styname stylist))
    
29.   )
    
30.   (setq stylist (acad_strlsort stylist))
    
31.   (dcl_ComboBox_AddList TextChange_Form1_ComboBox1 stylist)
    
32. )
    

(defun c:TextChange ()<br />   (DEFUN *error* (msg)<br />     (WHILE (< 0 (GETVAR "cmdactive"))<br />       (COMMAND)<br />     )                                       ; do error stuff<br />     (IF (DCL_FORM_ISACTIVE TextChange_Form1)<br />       (DCL_FORM_CLOSE TextChange_Form1)<br />     )<br />     (PRINC (STRCAT "\nApplication Error: " (ITOA (GETVAR "errno")) " :- " msg))<br />     (PRINC)<br />   )<br />   (SETQ cmdecho (GETVAR "CMDECHO"))<br />   (SETVAR "CMDECHO" 0)<br />   (COMMAND "_OPENDCL")<br />   (SETVAR "CMDECHO" cmdecho)<br />   (DCL_PROJECT_LOAD "E:\\MYTOOLS\\lisp程序\\TextChange.odcl")<br />   (dcl_Form_Show TextChange_Form1)<br />   (princ)<br /> )<br /> <br /> (defun c:TextChange_Form1_OnInitialize (/)<br />   (dcl_ComboBox_Clear TextChange_Form1_ComboBox1)<br />   (setq dwgobj (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq mspace (vla-get-ModelSpace dwgobj))<br />   (setq stylesobj (vla-get-textstyles dwgobj))<br />   (setq stylist nil)<br />   (vlax-for sobj stylesobj (setq styname (vla-get-name sobj))<br />             (setq stylist (cons styname stylist))<br />   )<br />   (setq stylist (acad_strlsort stylist))<br />   (dcl_ComboBox_AddList TextChange_Form1_ComboBox1 stylist)<br /> )<br />

newer

你的代码运行时候有什么错误提示？

newer

textstyle样式应该控件自动显示的，不用你特意求。

newer

试试在风格里面找出字体设置的。

zhangq_cai1

太卡了，现在上传odcl

zhangq_cai1

newer 发表于 2013-9-10 12:44
试试在风格里面找出字体设置的。

我要的文字样式，不是字体样式。style-8试过了~~~~~~~~~~~~~~~~~

zhangq_cai1

(dcl_ComboBox_AddList TextChange_Form1_ComboBox1 stylist)
stylist为字体样式表，怎么加不进去呢？style为0项

newer

zhangq_cai1 发表于 2013-9-10 13:00
(dcl_ComboBox_AddList TextChange_Form1_ComboBox1 stylist)
stylist为字体样式表，怎么加不进去呢？styl ...

你把VLA那些求样式的放到对话框外面，求完需要的值后，再显示对话框。
另外，执行的时候没什么提示吗？ 你确认样式表的变量里面都求得了？

zhangq_cai1

没提示，样式表里的都求得了，放在主函数里(SETVAR "CMDECHO" 0)前对话框显示，下拉框里没显示

zhangq_cai1

没提示，样式表里的都求得了，放在主函数里(SETVAR "CMDECHO" 0)前对话框显示，下拉框里没显示

zhangq_cai1

这是检验的图，求字体样式放到主函数里了。

newer

zhangq_cai1 发表于 2013-9-10 13:19
这是检验的图，求字体样式放到主函数里了。

建议你以后把FORM和其他控件都设置变量名，然后程序里面用变量名调用它们。
你的ODCL对话框的INIT部分没执行到，应该是你中间修改过文件名吧，你重新点下 STUDIO里面的INIT事件，看下面的代码提示正确后保持文件。


我设置变量名后，执行了下程序。

wxytiger

使用Opendcl切忌中间过程改变文件名及控件名，容易造成引用混乱

newer

wxytiger 发表于 2013-11-8 22:37
使用Opendcl切忌中间过程改变文件名及控件名，容易造成引用混乱

实用文件名做回调不是个好习惯，都设置变量名，用变量名去回调就不怕改文件名了。