求自动归层插件

254619324 · 发表于 2024-12-26 20:19:11

一个已经画好的图，有填充、文字、标注、中心线、虚线、双点划线等、画到时候有点乱，能否用lisp 把他们分别放到指定的图层？

火龙果2022 · 发表于 2024-12-26 20:30:05

可以用SSGET

你有种再说一遍 · 发表于 2024-12-26 20:56:25

源泉cad插件...免费又好用...

qazxswk · 发表于 2024-12-26 21:44:38

可以看看这个。
http://bbs.mjtd.com/thread-89742-1-1.html

尘缘一生 · 发表于 2024-12-26 23:54:09

这个没有固定的，需要根据你自己的图层系统，写，

三领的

BUBUBA918 · 发表于 2024-12-27 08:52:58

本帖最后由 BUBUBA918 于 2024-12-27 08:56 编辑

(prompt  "\n***将标注归入dim层,hatch SOLID归入Hatch Solid层")
(setq xz (ssget))
(setq num (sslength xz))(setq shu 0)
  (repeat num
(setq ss (entget(ssname xz shu)))
(if (= (cdr (assoc 0 ss)) "SOLID")(progn(setq ss (subst (cons 8 "Solid") (assoc 8  ss) ss))))
(if (= (cdr (assoc 0 ss)) "HATCH")(progn(setq ss (subst (cons 8 "HATCH") (assoc 8  ss) ss))))
(if (= (cdr (assoc 0 ss)) "DIMENSION")(progn(setq ss (subst (cons 8 "DIM") (assoc 8  ss) ss))))
(if (= (cdr (assoc 0 ss)) "TEXT")(progn(setq ss (subst (cons 8 "TXT") (assoc 8  ss) ss))))
(if (= (cdr (assoc 0 ss)) "INSERT")(progn(setq ss (subst (cons 8 "BLOCKLAYER") (assoc 8  ss) ss))))
      (setq shu (+ 1 shu))(entmod ss)
  )

煮茗 · 发表于 2024-12-27 11:49:49

BUBUBA918 发表于 2024-12-27 08:52
(prompt "\n***将标注归入dim层,hatch SOLID归入Hatch Solid层")
(setq xz (ssget))
(setq num (ssle ...

SSGET 要预先筛选，不然CAD可能崩溃。

kozmosovia · 发表于 2024-12-27 13:26:55

chslwj521 · 发表于 2024-12-28 10:08:42

BUBUBA918 发表于 2024-12-27 08:52
(prompt "\n***将标注归入dim层,hatch SOLID归入Hatch Solid层")
(setq xz (ssget))
(setq num (ssle ...

很好哦，这是饭喂到嘴里了，向大佬致敬

zhangcan0515 · 发表于 2024-12-28 11:43:24

以前研究这个问题，主要是解决三维软件导出的DWG文件。

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

[提问] 求自动归层插件

本帖子中包含更多资源

本帖子中包含更多资源