40
103
63
后起之秀
使用道具 举报
6297
6283
(defun c:Test (/ e ent) (setq e (entlast)) (vl-cmdf "_.-boundary" pause "") (setq ent (entlast)) (if (and ent (not (equal e ent))) (progn (alert (strcat "Total Area : " (rtos (vla-get-area (vlax-ename->vla-object ent)) 2) ) ) (entdel ent) ) ) (princ))
13
46
33
初露锋芒
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-10 04:28 , Processed in 0.636181 second(s), 66 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端