[编程交流] li命令的数据提取

;Gilles Chanteau ;Modified by Júnior Nogueira
(defun c:Demo (/ ss file i)
  (if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "test,`*U*"))))
    (progn
      (setq file (open (strcat (getvar 'dwgprefix) (vl-filename-base (getvar 'dwgname)) ".csv") "w"))
      (repeat (setq i (sslength ss))
        (setq br (ssname ss (setq i (1- i))))
        (if (= (getpropertyvalue (getpropertyvalue br "BlockTableRecord") "Name") "test")
          (write-line
            (strcat
              (getpropertyvalue br "TAG")
              ","
              (getpropertyvalue br "PN")
              ","
              (getpropertyvalue br "FIND#")
              ","
              (getpropertyvalue br "SORT")
              ","
              (getpropertyvalue br "QUANTITY")
            )
            file
          )
        )
      )
      (close file)
    )
  )
  (princ)
  )

;;  Get all tags and values from block including constant attributes in following form:
;; (("TAG1" . "VALUE1") ("TAG2" . "VALUE2") ...("*CONSTANT*: TAGN" . "VALUEN"))
(defun get-all-atts ( obj / att_lst catt_lst lst tag )
  (setq att_lst (append (vlax-invoke obj 'getattributes) (setq catt_lst (vlax-invoke obj 'getconstantattributes)))
        lst nil
  );end_setq      
  (foreach att att_lst
    (setq tag (vla-get-tagstring att))
    (if (member att catt_lst)
      (setq lst (cons (cons (strcat "*CONSTANT*: " tag) (vla-get-textstring att)) lst))  
      (setq lst (cons (cons tag (vla-get-textstring att)) lst))
    );end_if
  );end_foreach
  (setq lst (reverse lst))
);end_defun
;;                        Main part                        ;;
(defun C:ATOUT ( / adoc axss com_data tot)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        osm (getvar "osmode")
  );end_setq
  (vla-endundomark adoc)
  (vla-startundomark adoc)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (cond ( (ssget "_X" (list (cons 0 "INSERT")(cons 66 1)));;This will get you all attributed blocks in the drawing
          (setq com_data nil)
          (vlax-for a        (setq axss (vla-get-activeselectionset adoc))
            (setq com_data (cons (get-all-atts a) com_data))
          );end_for
          (setq com_data (reverse com_data)
                tot (length com_data)
          );end_setq
        )
  );end_cond
  
  (foreach x com_data
    (princ x)
    (princ "\n")
  );end_foreach
  
  (princ)
  (setvar "osmode" 0)
  (vla-endundomark adoc)  
);end_defun