8
24
16
初来乍到
使用道具 举报
114
1万
中流砥柱
(defun c:laylist ( / ent ind sel ) (setq ind 0) (if (setq sel (nentselp)) (foreach ent (reverse (cons (car sel) (cadddr sel))) (princ "\n") (repeat ind (princ " ")) (if (< 0 ind)(princ "|\n")) (repeat ind (princ " ")) (princ "+--+ ") (princ (cdr (assoc 8 (entget ent)))) (setq ind (1+ ind)) ) ) (princ))
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-11 09:09 , Processed in 1.057137 second(s), 60 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端