图层统计

twtysoi · 发表于 2019-11-4 18:17:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

输入指令后，选图，能统计出选择对像的的所有图层名，跟数量就好，多谢大师们帮助

XDSoft · 发表于 2019-11-5 13:48:18

请自己手工画个统计的表格，截图贴上论坛来。

twtysoi · 发表于 2019-11-5 16:02:37

多谢晓东帮助

猪八戒悟能 · 发表于 2019-11-6 10:31:20

王鹏_pBZlo · 发表于 2019-11-7 09:37:51

本帖最后由王鹏_pBZlo 于 2019-11-7 09:39 编辑

(defun c:tt( / ss i laylst ent lay laypar)
(setq ss (ssget))
(setq i -1 laylst nil)
(while (setq ent (ssname ss (setq i (1+ i))))
(setq lay (cdr (assoc 8 (entget ent))))
(if (setq laypar (assoc lay laylst))
(setq laylst (subst (list lay (1+ (cadr laypar))) laypar laylst))
(setq laylst (append laylst (list (list lay 1))))
)
)
(setq i -1)
(while (setq laypar (nth (setq i (1+ i)) laylst))
(prompt (strcat "\n图层\"" (car laypar) "\"内对象数量=" (itoa (cadr laypar))))
)(princ)
)

twtysoi · 发表于 2019-11-7 13:43:31

王鹏_pBZlo 发表于 2019-11-7 09:37

王哥这样很好，可不可以帮我在改下，把层名生成在图中，用手点，文件生成的地方

王鹏_pBZlo · 发表于 2019-11-7 15:06:25

(defun c:tt( / ss i laylst ent lay laypar txtstr stp txthei)
(setq ss (ssget))
(setq i -1 laylst nil)
(while (setq ent (ssname ss (setq i (1+ i))))
(setq lay (cdr (assoc 8 (entget ent))))
(if (setq laypar (assoc lay laylst))
(setq laylst (subst (list lay (1+ (cadr laypar))) laypar laylst))
(setq laylst (append laylst (list (list lay 1))))
)
)
(setq stp (getpoint "\n选择文字起始点:"))
(setq txthei (getreal (strcat "\n字高<" (rtos (getvar "textsize")) ">:")))
(if (not txthei) (setq txthei (getvar "textsize")))
(setvar "textsize" txthei)
(setq i -1)
(while (setq laypar (nth (setq i (1+ i)) laylst))
(setq txtstr (strcat "图层\"" (car laypar) "\"内对象数量=" (itoa (cadr laypar))))
(entmake (list (cons 0 "TEXT") (cons 100 "AcDbText")(cons 10 stp) (cons 40 txthei) (cons 1 txtstr) (cons 41 0.8) (cons 7 (getvar "textstyle"))))
(setq stp (list (car stp) (- (cadr stp) (* 1.6 txthei))))
) (princ)
)

(defun c:tt( / ss i laylst ent lay laypar txtstr stp txthei) 
        (setq ss (ssget)) 
        (setq i -1 laylst nil) 
        (while (setq ent (ssname ss (setq i (1+ i)))) 
                (setq lay (cdr (assoc 8 (entget ent)))) 
                (if (setq laypar (assoc lay laylst)) 
                        (setq laylst (subst (list lay (1+ (cadr laypar))) laypar laylst)) 
                        (setq laylst (append laylst (list (list lay 1)))) 
                ) 
        ) 
        (setq stp (getpoint "\n选择文字起始点:")) 
        (setq txthei (getreal (strcat "\n字高<" (rtos (getvar "textsize")) ">:"))) 
        (if (not txthei) (setq txthei (getvar "textsize"))) 
        (setvar "textsize" txthei)        
        (setq i -1) 
        (while (setq laypar (nth (setq i (1+ i)) laylst)) 
                (setq txtstr (strcat "图层\"" (car laypar) "\"内对象数量=" (itoa (cadr laypar)))) 
        (entmake (list (cons 0 "TEXT") (cons 100 "AcDbText")(cons 10 stp) (cons 40 txthei) (cons 1 txtstr) (cons 41 0.8) (cons 7 (getvar "textstyle")))) 
        (setq stp (list (car stp) (- (cadr stp) (* 1.6 txthei)))) 
        ) (princ) 
)

twtysoi · 发表于 2019-11-7 15:55:51

王鹏_pBZlo 发表于 2019-11-7 15:06

可以了，多谢，王哥，每次都是你帮助

王鹏_pBZlo · 发表于 2019-11-7 18:06:10

twtysoi 发表于 2019-11-7 15:55
可以了，多谢，王哥，每次都是你帮助

为什么要统计这个呢？
来自: 微社区

twtysoi · 发表于 2019-11-7 18:29:45

王鹏_pBZlo 发表于 2019-11-7 18:06
为什么要统计这个呢？

这样加工时，可以当出注解，如层当种类，就知道这个图中，哪种类型有几个了，我刚才还发现一个问题王哥，就是文件插入的点，如果是被UCS改个0点，插入的位置就不对了，

王鹏_pBZlo · 发表于 2019-11-7 18:40:32

twtysoi 发表于 2019-11-7 18:29
这样加工时，可以当出注解，如层当种类，就知道这个图中，哪种类型有几个了，我刚才还发现一个问题王哥， ...

(setq stp (getpoint "\n选择文字起始点:"))
改成
(setq stp (trans (getpoint "\n选择文字起始点:") 1 0))
来自: 微社区

twtysoi · 发表于 2019-11-7 20:06:38

王鹏_pBZlo 发表于 2019-11-7 18:40
(setq stp (getpoint "\n选择文字起始点:"))
改成
(setq stp (trans (getpoint "\n选择文 ...

可以了，

账号		自动登录	找回密码
密码			立即注册

[编程申请] 图层统计

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评