请问这个代码想增加一个线型的筛选改怎么加呀

初学者123

• ;; tt(圆替换成块)
• (defun c:tt ()
•   (princ "\n根据圆直径替换成块: ")
•   (if (setq ss (ssget '((0 . "circle"))))
•     (progn
•       (setq i        -1
•             ss1        (ssadd)
•       )
•       (while (setq s1 (ssname ss (setq i (1+ i))))
•         (setq ent (entget s1)
•               pt  (cdr (assoc 10 ent))
•               rr  (cdr (assoc 40 ent))
•         )
•         (cond ((= rr 5.15)
•                (command "insert" "xm12" pt 1 1 0)
•                (ssadd s1 ss1)
•               )
•               ((= rr 4.15)
•                (command "insert" "xm10" pt 1 1 0)
•                (ssadd s1 ss1)
•               )
•         )
•       )
•       (command "erase" ss1 "")
•     )
•   )
•   (princ)
• )
  

在论坛找到这个代码 想再增加一个线型的识别

Andyhon

ByLayer or ByBlock?

初学者123

Andyhon 发表于 2017-11-10 17:32
ByLayer or ByBlock?

也不一定是这两个线型  就是想增加一个线型的筛选项