求指点图层切换程序

烟消云_uXWx3 · 发表于 2020-4-7 09:15:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

提前建立好图层1 图层2 图层3
进入程序
先在图层1上画一部分图形，画完后跳到图层2。然后再在图层2画

一部分图形，画完后跳到图层1。随后再在图层1画一部分图形，

画完后跳到图层3。
总之就是在图层之间切换画图，能否指点一下思路？

kmliro_2017 · 发表于 2020-4-8 08:13:19

谢谢分享！！！！

kyky1002 · 发表于 2020-4-9 08:24:46

这种我一般把图纸另存为模板，或者使用图层管理器，再加个工具选项板基本就行了

yinchuan99001 · 发表于 2020-4-9 11:32:20

本帖最后由 yinchuan99001 于 2020-4-9 13:08 编辑

(defun c:ced ()
  (initget "0 1 2 3 4 5 6 7 8 9")
  (setq cen (getkword "\n请输入要更换的图层0 1 2 3 4 5 6 7 8 9 <0>:"))
  (setq ss (ssget))
  (setq n 0)
  (repeat
(sslength ss)
   (setq en (ssname ss n))
   (setq en_date (entget en))
   (cen_sub)
   (setq old_dat (assoc 8 en_date))
   (setq new_dat (cons 8 cen))
   (setq en_date (subst new_dat old_dat en_date))
   (entmod en_date)
   (setq n (1+ n))
  )
  (princ)
)
(defun cen_sub ()
  (cond       ((= cen 0) (setq cen 0))
      ((= cen 1) (setq cen 1))
      ((= cen 2) (setq cen 2))
      ((= cen 3) (setq cen 3))
      ((= cen 4) (setq cen 4))
      ((= cen 5) (setq cen 5))
      ((= cen 6) (setq cen 6))
      ((= cen 7) (setq cen 7))
      ((= cen 8) (setq cen 8))
      ((= cen 9) (setq cen 9))
  )

)
(prompt "--快速换图层<命令:ced>--")

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

[求助] 求指点图层切换程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。