|
;;将UCS实体投影到WCS,适用2000+以上,R14下对elst需要去除实体名、句柄等
;;才可entmake
;;Write by eachy 2003.08.19
(defun ConvertEntitytoWCS (ent / elst)
(setq elst (entget ent))
(setq
elst
(mapcar
'(lambda (x)
(if (member (car x) '(10 11 12 13 14 15 16 17 18 19))
(cons (car x) (trans (list (cadr x) (caddr x) 0.) 0 1))
x
)
)
elst
)
)
(setq elst (subst '(210 0.0 0.0 1.0)
(assoc 210 elst)
elst
)
)
(entmake elst)
(entdel ent)
(princ)
)
|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )
GMT+8, 2024-5-12 07:39 , Processed in 0.195376 second(s), 23 queries , Gzip On.
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.