ucuc2003 发表于 2013-7-15 20:21:49

本帖最后由 ucuc2003 于 2013-7-19 15:23 编辑

;;;线型变换 明经 ZZXXQQ 2013.5.21
;;;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101524&page=1
(defun c:XS ()
(prompt "线型虚实变换")
(while
(if (setq ss (ssget))
   (progn
    (setq i -1)
    (setq clt "DASH")
    (repeat (sslength ss)
   (setq ent (entget(ssname ss (setq i (1+ i)))))
   (if (assoc 6 ent)
      (if (= (cdr(assoc 6 ent)) clt)
      (setq ent (subst (cons 6 "Continuous") (assoc 6 ent) ent))
      (setq ent (subst (cons 6 clt) (assoc 6 ent) ent))
      )
   (if (= (cdr(assoc 6 (tblsearch "LAYER" (cdr(assoc 8 ent))))) clt)
      (setq ent (append ent (list(cons 6 "Continuous"))))
      (setq ent (append ent (list(cons 6 clt))))
   )
    )
    (entmod ent)
   )
))
);while
(princ)
)

ucuc2003 发表于 2013-7-15 20:22:38

这下这个帖子可以结贴了

泉(Ango) 发表于 2013-7-16 08:21:51

ucuc2003 发表于 2013-7-15 20:22 static/image/common/back.gif
这下这个帖子可以结贴了

@ucuc2003
谢谢你的帮助!
谢谢!

蘇_小粒 发表于 2014-9-30 17:56:21

有没有同一个图层 快捷键A画实线，B画虚线的lisp？
页: 1 [2]
查看完整版本: 求改变线型的小程序!