【已解决】 从文本中读取参数赋给textbox不显示内容，请教如何刷新？

施工_G54j6

打开参数文件读取一行数值赋给textbox
实例：（(dcl-Control-SETText te/Form1/TextBox1 (nth 1 data_list))）
texbox为空白，不能主动显示内容，非得用鼠标点击下textbox控件才显示所读取的内容，请教高手如何刷新？

Lisphk

每个控件都有REDRAW方法的另外，你这句代码是怎么调用的？ 点按钮，还是初始化？
你遇到问题，不一定是你这行代码的事，也可能是其他的地方，贴上ODCL文件和完整的代码吧。

施工_G54j6

谢谢Lisphk 的无私帮助，加一行(dcl-Control-redraw te/Form1/TextBox1)解决了。

sicky111

楼主的代码呢？

qqqincccken

从文本中读取参数赋给textbox不显示内容，请教如何刷新？

zhystar

学习一下，谢谢分享

施工_G54j6

施工_G54j6 发表于 2019-5-3 22:40
谢谢Lisphk 的无私帮助，加一行(dcl-Control-redraw te/Form1/TextBox1)解决了。

大神，我有以下代码老是说函数错误，错误提示如下，请教下问题在哪。
以下是代码
（setq ss (ssget "x" '((0 . "POLYLINE"))))  ;选择polyline
(if  (/= ss nil)                                
     (command "convert" "a" ss)            ;二维多段线转多段线
  )

命令提示：
convert
输入要转换的对象类型 [图案填充(H)/多段线(P)/全部(A)] <全部>: a
输入对象选择选项 [选择(S)/全部(A)] <全部>:
无效的选项关键字。
; 错误: 函数被取消
网上找到一篇资料实现了，但线型全没了，不知道如何解决。
;二维多段线与多段线互相转换
(defun c:tes ( / &k1 &kw1 a10 a42 a70 a8 a90 ent ss1 ss2 ss5 x)
(vl-load-com)
(princ "\n请选择对象")
(if (setq &kw1 (ssget '((0 . "*POLYLINE"))))
  (progn;;1
   (setq ss1 '())
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1) ss1 (cons &k1 ss1))
   );while
   
   (if (setq ss2 (vl-remove-if-not '(lambda (x) (= (cdr (assoc 0 (entget x))) "POLYLINE")) ss1))
    (progn;;2
     (setq ss1 (vl-remove-if '(lambda (x) (member x ss2)) ss1))
     (while (setq ent (car ss2))
      (setq ss2 (cdr ss2) ss5 (s1712081 ent))
      (if (vlax-curve-isClosed ent) (setq a70 '(70 . 1)) (setq a70 '(70 . 0)))
      (setq a90 (cons 90 (length ss5))
            ss5 (apply 'append ss5)
            a8 (assoc 8 ss5)
            a10 (vl-remove-if-not '(lambda (x) (member (car x) '(10 42))) ss5)
            ss5 (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") a8 '(100 . "AcDbPolyline") a90 a70 '(38 . 0)) a10)
      )
      (entmake ss5)
      (entdel ent)
     );while
    );progn;2
   );if;2
   (if (car ss1)
    (progn
     (while (setq ent (car ss1))
      (setq ss1 (cdr ss1) ss5 (entget ent))
      (setq a70 (assoc 70 ss5)
            a8 (assoc 8 ss5)
            a10 (vl-remove-if-not '(lambda (x) (= (car x) 10)) ss5)
            a42 (vl-remove-if-not '(lambda (x) (= (car x) 42)) ss5)
            ss5 (mapcar '(lambda (x) (append (list '(0 . "VERTEX") '(100 . "AcDbEntity") '(67 . 0) a8 '(100 . "AcDbVertex") '(100 . "AcDb2dVertex")) x))
            (mapcar 'cons a10 (mapcar '(lambda (x) (list x a70)) a42)))
      )
      (s1712082 ss5 a70 a8)
      (entdel ent)
     );while
    )
   );if;3
  );progn;1
);if;1
(princ)
)

;entmake生成二维多段线
(defun s1712082 (ss5 a70 a8 / a70 a8 ed ss5)
(entmake (list  '(0 . "POLYLINE") '(100 . "AcDbEntity") a8 '(100 . "AcDb2dPolyline") a70))
(while (setq ed (car ss5))
  (setq ss5 (cdr ss5))
  (entmake ed)
)
(entmake '((0 . "SEQEND")))
)

;提取二维多段线数据
(defun s1712081 (e / e ed pts)
  (if (eq (cdr (assoc 0 (entget e))) "POLYLINE")
    (progn
      (while (and (setq e (entnext e))
               (/= (cdr (assoc 0 (setq ed (entget e)))) "SEQEND")
             )
        (setq pts (cons ed pts))
      )
    )
  )
  (reverse pts)
)