OWEN7 发表于 2013-5-24 10:40:28

(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 发表于 2013-5-24 17:24:43

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

风雨依然 发表于 2013-5-27 11:58:17

顶顶下载收藏了

freehand8008 发表于 2013-7-18 09:12:17

收藏了先，哈哈

jun353835273 发表于 2016-7-14 12:36:02

很好，格式刷

szx025 发表于 2016-7-15 11:16:12

ZZXXQQ 发表于 2013-5-21 08:54 static/image/common/back.gif


这个程序很好，但有个小问题，就是图中必须先加载DASHED这个线型文件，能不能再程序中加一个判断，如果图中没有加载DASHED这个线型文件，就在这里自动加载上
页: 1 [2]
查看完整版本: 线的虚实变换