帮忙看看下面的修改属性块内容的lsp！

spp_wall

下面的程序如何改成符合自己需要的
http://bbs.mjtd.com/thread-102074-1-1.html
(defun c:BTL()
  (getatt)
  (setvar "cmdecho" 0)
  (setlist)
  (dcl_bomdcl)
  (prin1)
)


(defun getatt ()
  (setq en (car (entsel "选择块")))
  (setq xobj2 (vlax-ename->vla-object en))
  (vlax-get-property xobj2 'hasAttributes)
  (setq xvar (vla-GetAttributes xobj2))
  (setq svar (vlax-variant-value xvar))
  (setq att_obj_list (vlax-safearray->list svar))
  (setq attobj1 (nth 0 att_obj_list))
  (setq tag1 (vla-get-tagstring attobj1))
  (setq text1 (vla-get-textstring attobj1))
  
  (setq attobj2 (nth 1 att_obj_list))
  (setq tag2 (vla-get-tagstring attobj2))
  (setq text2 (vla-get-textstring attobj2))
  
  (setq attobj3 (nth 2 att_obj_list))
  (setq tag3 (vla-get-tagstring attobj3))
  (setq text3 (vla-get-textstring attobj3))
  
  (setq attobj4 (nth 3 att_obj_list))
  (setq tag4 (vla-get-tagstring attobj4))
  (setq text4 (vla-get-textstring attobj4))
  
  (setq attobj5 (nth 4 att_obj_list))
  (setq tag5 (vla-get-tagstring attobj5))
  (setq text5 (vla-get-textstring attobj5))
  
  (setq attobj6 (nth 5 att_obj_list))
  (setq tag6 (vla-get-tagstring attobj6))
  (setq text6 (vla-get-textstring attobj6))
  
  (setq attobj7 (nth 6 att_obj_list))
  (setq tag7 (vla-get-tagstring attobj7))
  (setq text7 (vla-get-textstring attobj7))
  
  (setq attobj8 (nth 7 att_obj_list))
  (setq tag8 (vla-get-tagstring attobj8))
  (setq text8 (vla-get-textstring attobj8))
  
  (setq attobj9 (nth 8 att_obj_list))
  (setq tag9 (vla-get-tagstring attobj9))
  (setq text9 (vla-get-textstring attobj9))
  
  (setq attobj10 (nth 9 att_obj_list))
  (setq tag10 (vla-get-tagstring attobj10))
  (setq text10 (vla-get-textstring attobj10))
  
  (setq attobj11 (nth 10 att_obj_list))
  (setq tag11 (vla-get-tagstring attobj11))
  (setq text11 (vla-get-textstring attobj11))
  
  (setq attobj12 (nth 11 att_obj_list))
  (setq tag12 (vla-get-tagstring attobj12))
  (setq text12 (vla-get-textstring attobj12))
  
  (setq attobj13 (nth 12 att_obj_list))
  (setq tag13 (vla-get-tagstring attobj13))
  (setq text13 (vla-get-textstring attobj13))
  
  (setq attobj14 (nth 13 att_obj_list))
  (setq tag14 (vla-get-tagstring attobj14))
  (setq text14 (vla-get-textstring attobj14))
  
  (setq attobj15 (nth 14 att_obj_list))
  (setq tag15 (vla-get-tagstring attobj15))
  (setq text15 (vla-get-textstring attobj15))
  
  (setq attobj16 (nth 15 att_obj_list))
  (setq tag16 (vla-get-tagstring attobj16))
  (setq text16 (vla-get-textstring attobj16))
)
(defun dcl_bomdcl()
  (setq dcl_id (load_dialog "bomdcl"))
  (new_dialog "bomdcl" dcl_id)
  (show_list "pop1" pop1_list)
  (show_list "pop2" pop2_list)
  (show_list "pop3" pop3_list)
  (show_list "pop4" pop4_list)
  (show_list "pop5" pop5_list)
  (show_list "pop6" pop6_list)
  (show_list "pop7" pop7_list)
  (show_list "pop8" pop8_list)
  (show_list "pop9" pop9_list)
  (set_tile "txt1" text1)
  (set_tile "txt2" text2)
  (set_tile "txt3" text3)
  (set_tile "txt4" text5)
  (set_tile "txt5" (nth 0 pop5_list))
  (set_tile "txt6" text8)
  (set_tile "txt7" text9)
  (set_tile "txt8" (nth 0 pop8_list))
  (set_tile "txt9" (nth 0 pop9_list))
  (action_tile "pop1" "(sub_pop1 $value)")
  (action_tile "pop2" "(sub_pop2 $value)")
  (action_tile "pop3" "(sub_pop3 $value)")
  (action_tile "pop4" "(sub_pop4 $value)")
  (action_tile "pop5" "(sub_pop5 $value)")
  (action_tile "pop6" "(sub_pop6 $value)")
  (action_tile "pop7" "(sub_pop7 $value)")
  (action_tile "pop8" "(sub_pop8 $value)")
  (action_tile "pop9" "(sub_pop9 $value)")
  (action_tile "accept" "(ok_bomdcl)(done_dialog 1)")
  (setq dd(start_dialog))
  (if (= dd 1)
    (puttext)
    )
)
(defun show_list (key newlist)
  (start_list key)
  (mapcar 'add_list newlist)
  (end_list)
)
(defun sub_pop1 (vvs)
  (set_tile "txt1" (nth (atoi vvs) pop1_list))
)
(defun sub_pop2 (vvs)
  (set_tile "txt2" (nth (atoi vvs) pop2_list))
)
(defun sub_pop3 (vvs)
  (set_tile "txt3" (nth (atoi vvs) pop3_list))
)
(defun sub_pop4 (vvs)
  (set_tile "txt4" (nth (atoi vvs) pop4_list))
)
(defun sub_pop5 (vvs)
  (set_tile "txt5" (nth (atoi vvs) pop5_list))
)
(defun sub_pop6 (vvs)
  (set_tile "txt6" (nth (atoi vvs) pop6_list))
)
(defun sub_pop7 (vvs)
  (set_tile "txt7" (nth (atoi vvs) pop7_list))
)
(defun sub_pop8 (vvs)
  (set_tile "txt8" (nth (atoi vvs) pop8_list))
)
(defun sub_pop9 (vvs)
  (set_tile "txt9" (nth (atoi vvs) pop9_list))
)

(defun ok_bomdcl ()
  (setq txt1 (get_tile "txt1"))
  (setq txt2 (get_tile "txt2"))
  (setq txt3 (get_tile "txt3"))
  (setq txt5 (get_tile "txt4"))
  (setq txt6 (get_tile "txt5"))
  (setq txt8 (get_tile "txt6"))
  (setq txt9 (get_tile "txt7"))
  (setq txt14 (get_tile "txt8"))
  (setq txt15 (get_tile "txt9"))
)


(defun puttext ()
  (do_fname_andtime)
  (vla-put-textstring attobj1 txt1)
  (vla-put-textstring attobj2 txt2)
  (vla-put-textstring attobj3 txt3)
  (vla-put-textstring attobj5 txt5)
  (vla-put-textstring attobj6 txt6)
  (vla-put-textstring attobj7 txt1)
  (vla-put-textstring attobj8 txt8)
  (vla-put-textstring attobj9 txt9)
  (vla-put-textstring attobj10 moldno)
  (vla-put-textstring attobj11 fname)
  (vla-put-textstring attobj12 newdate)
  (vla-put-textstring attobj13 newdate)
  (vla-put-textstring attobj14 txt14)
  (vla-put-textstring attobj15 txt15)
  (vla-put-textstring attobj16 txt2)
  )
;;;BY 风之影
(defun do_fname_andtime()
  (setq moldno (vl-string-subst "" "M.dwg" (getvar "dwgname")))
  (setq fname (vl-string-subst "" ".dwg" (getvar "dwgname")))
  (setq cdate (rtos (getvar "cdate") 2 0))
  (setq newdate (strcat (substr cdate 1 4) "." (substr cdate 5 2) "." (substr cdate 7 2)))
)

(defun readtxt(lujin /)
  (setq data_list '())
  (setq ff (open lujin  "r"))
  (setq data (read-line ff))
  (while data
    (setq data_list (cons data data_list))
    (setq data(read-line ff))
    )
  (end_list)  
  (close ff)
  (setq data_list (reverse data_list))
  )
(defun setlist( /)
  (setq lu1 "D:/t1.txt")
  (setq pop1_list (readtxt lu1))
  (setq lu2 "D:/t2.txt")
  (setq pop2_list (readtxt lu2))
  (setq lu3 "D:/t3.txt")
  (setq pop3_list (readtxt lu3))
  (setq lu4 "D:/t4.txt")
  (setq pop4_list (readtxt lu4))
  (setq lu5 "D:/t5.txt")
  (setq pop5_list (readtxt lu5))
  (setq lu6 "D:/t6.txt")
  (setq pop6_list (readtxt lu6))
  (setq lu7 "D:/t7.txt")
  (setq pop7_list (readtxt lu7))
  (setq lu8 "D:/t8.txt")
  (setq pop8_list (readtxt lu8))
  (setq lu9 "D:/t9.txt")
  (setq pop9_list (readtxt lu9))
  )


/*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/
bomdcl:dialog {
    label = "TONY-BOM" ;
    :row {
        :edit_box {
            edit_width = 15 ;
            key = "txt1" ;
            label = "序号" ;
        }
        :popup_list {
            key = "pop1" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "名称" ;
            key = "txt2" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop2" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "材质" ;
            key = "txt3" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop3" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "数量" ;
            key = "txt4" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop4" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "备注" ;
            key = "txt5" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop5" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "胶料" ;
            key = "txt6" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop6" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "缩水" ;
            key = "txt7" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop7" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "名字" ;
            key = "txt8" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop8" ;
            edit_width = 15 ;
        }
    }
    :row {
        :edit_box {
            label = "主管" ;
            key = "txt9" ;
            edit_width = 15 ;
        }
        :popup_list {
            key = "pop9" ;
            edit_width = 15 ;
        }
    }
    spacer_1;
    ok_cancel;
}


文本要放D盘根目录，哈哈，我的程序很乱吧



我自己的属性块 只有3个属性 但是用这个程序怎么都选择不上！
提示：选择块参数类型错误: VLA-OBJECT nil

bori

这个程序局限性太大了，固定的块属性数量。
DCL也是死的。

获取块属性你可以用循环 while 或者 foreach
组成list 再从list读取写入dcl
foreach：
(foreach att att_obj_list
          (setq tag1 (vla-get-tagstring att))
          (setq text1 (vla-get-textstring att))
          (setq tag_lst (cons (list tag1) tag_lst))
          (setq txt_lst (cons (list text1) txt_lst))
  )

while:
  (setq i 0)
  (while (< i (length att_obj_list))
      (setq attobj1 (nth i att_obj_list))
          (setq tag1 (vla-get-tagstring attobj1))
          (setq text1 (vla-get-textstring attobj1))
          (setq tag_lst (cons (list tag1) tag_lst))
          (setq txt_lst (cons (list text1) txt_lst))
          (setq i (+ i 1))
  )l


不知道你想实现的是什么功能。。。

spp_wall

bori 发表于 2014-10-18 14:13
这个程序局限性太大了，固定的块属性数量。
DCL也是死的。

就是点取 我自己的图框 改图名 图号 总页码这几个文字

点击 图名 图号 总页码 弹出对话框 可以选择自己定义好的文字 然后修改 就像原来的程序

原来的程序太复杂 菜鸟完全蒙可 改了几次都无法实现

bori

spp_wall 发表于 2014-10-18 16:48
就是点取 我自己的图框 改图名 图号 总页码这几个文字

点击 图名 图号 总页码 弹出对话框 可以选择自己 ...

OK,下班了，礼拜一来给你看看。

spp_wall

bori 发表于 2014-10-18 17:00
OK,下班了，礼拜一来给你看看。

谢谢la !!!!!!!!!!!!!

bori

spp_wall 发表于 2014-10-18 17:09
谢谢la !!!!!!!!!!!!!

针对你的图框，注释了一部分程序。
原程序的DCL是要求放在DWG文件相同文件夹的。
改成了与文本文档放在一起，也是D盘，具体目录你自己弄吧。

spp_wall

bori 发表于 2014-10-20 09:31
针对你的图框，注释了一部分程序。
原程序的DCL是要求放在DWG文件相同文件夹的。
改成了与文本文档放在 ...

谢谢 我看看！！！

77077

程序太繁琐且不通用，只针对作者的块~~~

spp_wall

77077 发表于 2014-10-20 19:26
程序太繁琐且不通用，只针对作者的块~~~

是的  而且太长  我刚学  一看就蒙了！