文本型点对表编辑

hbgsw

77077 发表于 2015-9-16 22:29
GetAttributes  SetAttributes 论坛里面的通用函数~~~

论坛的搜索太坑了，我找了都找不到，楼主给个函数库地址吧

USER2128

为应用程序数据提供一个简单的修改界面

lucas_3333

USER2128 发表于 2015-9-17 15:46
为应用程序数据提供一个简单的修改界面

经这么一提醒，现在想起来了，这个函数确实方便，不要考虑editbox的对齐

USER2128

lucas_3333 发表于 2015-9-17 16:24
经这么一提醒，现在想起来了，这个函数确实方便，不要考虑editbox的对齐

为此，你还给我加了一个明经币，谢谢！

lucas_3333

USER2128 发表于 2015-9-17 17:13
为此，你还给我加了一个明经币，谢谢！

客气了，币不值钱，重要的是受教了，我要谢谢你才对！

米兰达薇薇2899

命令:  XX-TT ***属性块编辑****
选择属性块:; 错误: 参数类型错误: stringp <图元名: 7ffff6e3600>

qyming

1. ;|;;文本型点对表编辑
   
2. |
   
3. (editlst '(("标签1" . "值1")
   
4.      ("标签2" . "值2")
   
5.      ("标签3" . "值3")
   
6.      ("标签4" . "值4")
   
7.      ("标签5" . "值5")
   
8.      ("标签6" . "值6")
   
9.      ("标签7" . "值7")
   
10.      ("标签8" . "值8")
    
11.     )
    
12. )
    
13. |;
    
14. (defun editlst (lst / getdata fname F1 I lst1 dclid)
    
15.   (defun getdata ()
    
16.     (setq lst1 NIL
    
17.     I    1
    
18.     )
    
19.     (foreach n lst
    
20.       (setq LST1 (cons (cons (car n) (get_tile (strcat "KEY" (itoa I))))
    
21.            LST1
    
22.      )
    
23.       I   (1+ I)
    
24.       )
    
25.     )
    
26.   )
    
27.   (setq fname (vl-filename-mktemp nil nil ".dcl"))
    
28.   (setq F1 (open fname "w"))
    
29.   (write-line
    
30.     "EditDCL:dialog{label=\"文本型点对表编辑 \";"
    
31.     F1
    
32.   )
    
33.   (write-line ":boxed_column{ " F1)
    
34.   (write-line ":row{\n:column{" F1)
    
35.   (setq I 1)
    
36.   (foreach n lst
    
37.     (write-line
    
38.       (strcat ":edit_box{label=\""
    
39.         (car n)
    
40.         "\";value=\""
    
41.         (cdr n)
    
42.         "\";key=\"KEY"
    
43.         (itoa I)
    
44.         "\";}"
    
45.       )
    
46.       F1
    
47.     )
    
48.     (if  (= (rem i 5) 0)
    
49.       (write-line "}\n:column{" F1)
    
50.     )
    
51.     (setq I (1+ I))
    
52.   )
    
53.   (if (/= (rem (1- i) 5) 0)
    
54.     (write-line "}" F1)
    
55.   )
    
56.   (write-line "}\n}" F1)
    
57.   (write-line "ok_cancel;" F1)
    
58.   (write-line "}" F1)
    
59.   (close F1)
    
60.   (setq dclid (load_dialog fname))
    
61.   (vl-file-delete fname)
    
62.   (new_dialog "EditDCL" dclid)
    
63.   (action_tile "accept" "(getdata)(done_dialog 1)")
    
64.   (action_tile "cancel" "(done_dialog 0)")
    
65.   (start_dialog)
    
66.   (unload_dialog dclid)
    
67.   (if lst1
    
68.     (setq lst (reverse lst1))
    
69.     (setq lst lst)
    
70.   )
    
71. )
    
72. (defun c:xx-tt (/ ENT attlst)
    
73.   (prompt "***属性块编辑****")
    
74.   (while (setq ENT (CAR (entsel "\n 选择属性块:")))
    
75.     (setq attlst (editlst (GetAttributes ent)))
    
76.     (SetAttributes ent attlst)
    
77.     (princ "继续选择下一属性块")
    
78.   )
    
79.   (princ)
    
80. )

;|;;文本型点对表编辑<br /> |<br /> (editlst '(("标签1" . "值1")<br />      ("标签2" . "值2")<br />      ("标签3" . "值3")<br />      ("标签4" . "值4")<br />      ("标签5" . "值5")<br />      ("标签6" . "值6")<br />      ("标签7" . "值7")<br />      ("标签8" . "值8")<br />     )<br /> )<br /> |;<br /> (defun editlst (lst / getdata fname F1 I lst1 dclid)<br />   (defun getdata ()<br />     (setq lst1 NIL<br />     I    1<br />     )<br />     (foreach n lst<br />       (setq LST1 (cons (cons (car n) (get_tile (strcat "KEY" (itoa I))))<br />            LST1<br />      )<br />       I   (1+ I)<br />       )<br />     )<br />   )<br />   (setq fname (vl-filename-mktemp nil nil ".dcl"))<br />   (setq F1 (open fname "w"))<br />   (write-line<br />     "EditDCL:dialog{label=\"文本型点对表编辑 \";"<br />     F1<br />   )<br />   (write-line ":boxed_column{ " F1)<br />   (write-line ":row{\n:column{" F1)<br />   (setq I 1)<br />   (foreach n lst<br />     (write-line<br />       (strcat ":edit_box{label=\""<br />         (car n)<br />         "\";value=\""<br />         (cdr n)<br />         "\";key=\"KEY"<br />         (itoa I)<br />         "\";}"<br />       )<br />       F1<br />     )<br />     (if  (= (rem i 5) 0)<br />       (write-line "}\n:column{" F1)<br />     )<br />     (setq I (1+ I))<br />   )<br />   (if (/= (rem (1- i) 5) 0)<br />     (write-line "}" F1)<br />   )<br />   (write-line "}\n}" F1)<br />   (write-line "ok_cancel;" F1)<br />   (write-line "}" F1)<br />   (close F1)<br />   (setq dclid (load_dialog fname))<br />   (vl-file-delete fname)<br />   (new_dialog "EditDCL" dclid)<br />   (action_tile "accept" "(getdata)(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (start_dialog)<br />   (unload_dialog dclid)<br />   (if lst1<br />     (setq lst (reverse lst1))<br />     (setq lst lst)<br />   )<br /> )<br /> (defun c:xx-tt (/ ENT attlst)<br />   (prompt "***属性块编辑****")<br />   (while (setq ENT (CAR (entsel "\n 选择属性块:")))<br />     (setq attlst (editlst (GetAttributes ent)))<br />     (SetAttributes ent attlst)<br />     (princ "继续选择下一属性块")<br />   )<br />   (princ)<br /> )

怎么对齐？？？？？？

qyming

1. (defun getAttributes        (ent / lst)
   
2.   (if (safearray-value (setq lst (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))
   
3.     (mapcar '(lambda (x) (cons (vla-get-tagstring x) (vla-get-textstring x)))
   
4.             (vlax-safearray->list lst)
   
5.     )
   
6.   )
   
7. )
   
8. 
   
9. (defun setAttributes        (ent lst / n atts)
   
10.   (if (safearray-value (setq atts (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))
    
11.     (progn (foreach n lst
    
12.              (mapcar '(lambda (x)
    
13.                         (if (= (strcase (car n)) (strcase (vla-get-tagstring x)))
    
14.                           (vla-put-textstring x (cdr n))
    
15.                         )
    
16.                       )
    
17.                      (vlax-safearray->list atts)
    
18.              )
    
19.            )
    
20.            (vla-update (vlax-ename->vla-object ent))
    
21.     )
    
22.   )
    
23. )

(defun getAttributes        (ent / lst)<br />   (if (safearray-value (setq lst (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))<br />     (mapcar '(lambda (x) (cons (vla-get-tagstring x) (vla-get-textstring x)))<br />             (vlax-safearray->list lst)<br />     )<br />   )<br /> )<br /> <br /> (defun setAttributes        (ent lst / n atts)<br />   (if (safearray-value (setq atts (vlax-variant-value (vla-getattributes (vlax-ename->vla-object ent)))))<br />     (progn (foreach n lst<br />              (mapcar '(lambda (x)<br />                         (if (= (strcase (car n)) (strcase (vla-get-tagstring x)))<br />                           (vla-put-textstring x (cdr n))<br />                         )<br />                       )<br />                      (vlax-safearray->list atts)<br />              )<br />            )<br />            (vla-update (vlax-ename->vla-object ent))<br />     )<br />   )<br /> )

77077

调整了一下，用edit_box。

2. 
   
3. (defun editlst (lst / dclfile dclfo i keys key dclid out)
   
4.         (setq dclfile (vl-filename-mktemp nil nil ".dcl"))
   
5.         (setq dclfo (open dclfile "w"))
   
6.         (write-line "minbox:edit_box{fixed_width=true;fixed_height=true;vertical_margin=none;horizontal_margin=none;}" dclfo)
   
7.         (write-line "consListEdit:dialog{label="文本型点对表编辑 ";" dclfo)
   
8.         (write-line ":boxed_column{ " dclfo)
   
9.         (setq i 1 keys nil)
   
10.         (foreach n lst
    
11.                 (setq key (strcat "key" (itoa i)) keys (cons key keys))
    
12.                 (write-line ":row{" dclfo)
    
13.                 (write-line(strcat ":minbox{width=15;is_enabled=false;value=""(car n)"";}")dclfo)
    
14.                 (write-line(strcat ":minbox{width=20;value=""(cdr n)"";key="" key "";}")dclfo)
    
15.                 (write-line "}" dclfo);row
    
16.                 (setq i (1+ i))
    
17.         )
    
18.         (setq keys(reverse keys))
    
19.         (write-line "}" dclfo);boxed_column
    
20.         (write-line "ok_cancel;" dclfo)
    
21.         (write-line "}" dclfo);dialog
    
22.         (close dclfo)
    
23.         (setq dclid (load_dialog dclfile))
    
24.         (vl-file-delete dclfile)
    
25.         (new_dialog "consListEdit" dclid)
    
26.         (mode_tile (car keys) 2)
    
27.         (action_tile "accept" "(setq out(mapcar '(lambda(v k)(cons (car v)(get_tile k))) lst keys))(done_dialog)")
    
28.         (action_tile "cancel" "(setq out nil)(done_dialog)")
    
29.         (start_dialog)
    
30.         (unload_dialog dclid)
    
31.         out
    
32. )
    

<br /> (defun editlst (lst / dclfile dclfo i keys key dclid out)<br />         (setq dclfile (vl-filename-mktemp nil nil ".dcl"))<br />         (setq dclfo (open dclfile "w"))<br />         (write-line "minbox:edit_box{fixed_width=true;fixed_height=true;vertical_margin=none;horizontal_margin=none;}" dclfo)<br />         (write-line "consListEdit:dialog{label="文本型点对表编辑 ";" dclfo)<br />         (write-line ":boxed_column{ " dclfo)<br />         (setq i 1 keys nil)<br />         (foreach n lst<br />                 (setq key (strcat "key" (itoa i)) keys (cons key keys))<br />                 (write-line ":row{" dclfo)<br />                 (write-line(strcat ":minbox{width=15;is_enabled=false;value=""(car n)"";}")dclfo)<br />                 (write-line(strcat ":minbox{width=20;value=""(cdr n)"";key="" key "";}")dclfo)<br />                 (write-line "}" dclfo);row<br />                 (setq i (1+ i))<br />         )<br />         (setq keys(reverse keys))<br />         (write-line "}" dclfo);boxed_column<br />         (write-line "ok_cancel;" dclfo)<br />         (write-line "}" dclfo);dialog<br />         (close dclfo)<br />         (setq dclid (load_dialog dclfile))<br />         (vl-file-delete dclfile)<br />         (new_dialog "consListEdit" dclid)<br />         (mode_tile (car keys) 2)<br />         (action_tile "accept" "(setq out(mapcar '(lambda(v k)(cons (car v)(get_tile k))) lst keys))(done_dialog)")<br />         (action_tile "cancel" "(setq out nil)(done_dialog)")<br />         (start_dialog)<br />         (unload_dialog dclid)<br />         out<br /> )<br />

yoyoho

77077 发表于 2021-2-20 21:37
调整了一下，用edit_box。

指令: (editlst '(("标签1" . "值1") ("标签2" . "值2") ("标签3" . "值3") ("标签4" . "值4")))
; 错误: 引数太多