扩展数据读取
;图元扩展数据读取
(defun $kuo-zhan-du-qu$(ent app-n lst / -3d app-v vs dxf)
;和$kuo-zhan-xie-ru$函数刚好一正一反;
;①($kuo-zhan-du-qu$(car(entsel)) "sc" nil) ;②($kuo-zhan-du-qu$ (car(entsel)) nil nil)
(if (not dxf)
(and ent (setq dxf (ENTGET ent '("*"))))
)
(if dxf
(progn
(setq -3d (cdr (assoc -3 dxf)))
(cond
((and app-n)
(setq app-v (list (assoc app-n -3d)))
)
(t
(setq app-v -3d)
)
)
)
)
(setq
vs
(mapcar
(function
(lambda (a / k a-cdr s)
(if
(and (setq k (car a))
(setq a-cdr (cdr a))
(setqs (vl-remove '(1002 . "}")
(vl-remove '(1002 . "{") a-cdr)
)
)
(setq s (mapcar 'cdr s))
)
(cons k s)
)
)
)
app-v
)
)
(setq vs (vl-remove nil vs))
vs
)
感谢大佬的热心分享~
感谢大佬的热心分享~
页:
[1]