自动计算面积
文件大小: 1k
源码售价: 10 个金币 积分规则     积分充值
资源说明:自动计算面积 cad二次开发 lisp ;get area (defun C:GETAREA ( / ss e ent lyname ls llist) (setq ss (ssget)) (while ss (setq e (ssname ss 0) ent (entget e) ss (if (> (sslength ss) 1) (ssdel e ss) nil
本源码包内暂不包含可直接显示的源代码文件,请下载源码包。