求改变线型的小程序!

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

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

;;;线型变换明经 ZZXXQQ 2013.5.21
;;;http://bbs.mjtd.com/forum.php?mo ... d=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

这下这个帖子可以结贴了

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

ucuc2003 发表于 2013-7-15 20:22
这下这个帖子可以结贴了

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

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

有没有同一个图层快捷键A画实线，B画虚线的lisp？

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

[已解答] 求改变线型的小程序!

点评