请求大神修改下补充修改下属性块提取到EXCEL表的源码！！！

q2284555

请大神帮忙修改一下这是属性块提取到EXCEL表的源码。
请大神帮忙补充修改下，1.补充提取块名称和坐标  2.固定提取全图内名为“电缆统计1”和“G-DZPJT1”  这两种属性块~！ ！！

==============================================


(defun c:tSK () ;(/ d r ss n obj atts)
  (while (setq d (tblnext "block" (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )
  (and r
       (setq filename (getfiled "属性输出文件名" "" "csv" 1))
  )
  (if filename
    (progn
      (setq f (open filename "w"))
      (setq ss (ssget '((0 . "INSERT")))) ;选择对像,修改这里.
                                        ;(foreach name r
                                        ;(foreach (sslength ss) r
                                        ;(setq ss (ssget '((0 . "INSERT"))));选择对像,修改这里.
      (if ss
        (progn
          (setq
            atts (append
                   (vlax-invoke
                     (setq obj (vlax-ename->vla-object (ssname ss 0)))
                     'GetConstantAttributes
                   )
                   (vlax-invoke obj 'GetAttributes)
                 )
          )
          (princ "序号," f)
          (foreach att atts
            (princ (vla-get-TagString att) f)
            (princ "," f)
          )                             ;求出属性列表,写表头
          (princ "\n" f)
          (setq n -1)
          (repeat (sslength ss)
            (setq
              obj (vlax-ename->vla-object (ssname ss (setq n (1+ n))))
            )
            (setq atts (append
                         (vlax-invoke obj 'GetConstantAttributes)
                         (vlax-invoke obj 'GetAttributes)
                       )
            )
            (princ (1+ n) f)
            (princ "," f)
            ;(foreach att (reverse atts)  ;;;同一列前后颠倒
            (foreach att atts
              (princ (vla-get-TextString att) f)
              (princ "," f)
            )
            (princ "\n" f)              ;写出属性值
          )
         (close f)
        )
      )
    )
    ;(close f)
  )
)

xj6019

q2284555 发表于 2022-11-6 17:48
或者可以在图内选择  这两种属性块~~~

瞎改一通  嘿嘿嘿

q2284555

或者可以在图内选择  这两种属性块~~~

q2284555

xj6019 发表于 2022-11-6 19:07
瞎改一通  嘿嘿嘿

可以补充下表头名称，块名称和坐标吗？ 如果可以实现2种块的数据能分开列输出就棒了。

q2284555

补充下表头也行，自顶一下。