提取点的属性到txt或xls

oldenn

如图。需要算点的平均标高，
希望能框选全部或部分点，属性里面的数值能导出到txt或xls

cable2004

(defun  c:tt()(vl-load-com)
  (setq lst
    (mapcar '(lambda (a)
               (mapcar '(lambda (att)
                           (vl-princ-to-string (list (Vlax-safearray->list (Variant-value (Vla-get-insertionpoint att)))(vla-get-TextString att))))
                       (vlax-invoke (vlax-ename->vla-object a) "GetAttributes")))
            (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "INSERT")))))))
    )
    (setq file (getfiled "文件保存为" "" "txt" 1))
    (if (findfile file)
    (setq ff (open file "a"))
    (setq ff (open file "w"))
    )
  (mapcar '(lambda (a) (write-line (car a) ff)) lst)
  (close ff)
(prin1)
)

oldenn

求帮忙。谢谢大家了。。。。

oldenn

cable2004 发表于 2015-7-26 20:35
(defun  c:tt()(vl-load-com)
  (setq lst
    (mapcar '(lambda (a)

非常感谢。