线的虚实变换

OWEN7

(defun c:tt ( / ss i clt tmp ent )
(princ "\n输入修改为连续线形线形的实体:")
(or (setq ss (ssget))
     (exit)
)
(setq i -1
       clt "DASHED"
)
(repeat (sslength ss)
   (setq i (1+ i)
         ent (entget (ssname ss i))
                 tmp (cdr (assoc 6 ent))
         ent (cond ((= tmp clt) (subst (cons 6 "Continuous") (assoc 6 ent) ent))
                   (tmp (subst (cons 6 clt) (assoc 6 ent) ent))
                   ((= (cdr (assoc 6 (tblsearch "LAYER" (cdr (assoc 8 ent))))) clt)
                    (append ent (list (cons 6 "Continuous")))
                   )
                   ((append ent (list (cons 6 clt))))
             )
   )
   (entmod ent)
)
(princ)
)

fl202

把图层工具栏调出来，从里面选线型或者对象特性工具栏里调整，速度跟这个差不多。

风雨依然

顶顶  下载收藏了

freehand8008

收藏了先，哈哈

jun353835273

很好，格式刷

szx025

ZZXXQQ 发表于 2013-5-21 08:54

这个程序很好，但有个小问题，就是图中必须先加载DASHED这个线型文件，能不能再程序中加一个判断，如果图中没有加载DASHED这个线型文件，就在这里自动加载上