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

求自动归层插件

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

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcMAAABNCAYAAADaSw/CAAAP8UlEQVR4nO2dfYwd11mHn3s9ttdkm7VrE8mhjfEfJSUbnEA2BdmqaLKKKyoathFrUfGxQcKFIAfa4KaKwFqbqLQ4kYiqClMsVV3SUKpIrimoSjdaNXxYNM2CIltsXJQ22nwBaZrspo7jEG+WP+bO7rnHZ2bOzJ17Z2bv75GsuXO+5tg+7/zmvO85M43h4eHlU6dOkcTRo0e57Q/GE8sIIYQQveDE5x7m7rvvduZNT08zPp5dr5qddkoIIYSoOxJDIYQQfY/EUAghRN8TNMrugehrBp59nsu//QTrFhbL7ooQoiaMnp5j41emuHjdDSxdc21b3vnz53n55Ze92zp79izbt28n+GjRvRTCk21//w12fPq+srshhKgZVwKcfgKAC/sP8OadB1fyjh49yu233565zeaZgjonRBY2/M//SgiFEB0zcPzzrPvP0x23E5zZVEBvhMjI0LefWPl94ap388rem0vsjRCiTpz9zhwfePUlms/NAxCceZKl4V0dtRnwdhFdEyIb63+w6tN/9YM389/7s7s1hBD9ycyFh9nzjg1sPPYAAI1XX+m4zea1b3bchhBCCFFrmteV3QMhhBCiaL61HP7xpPm3XeyLEEII0VMu3wpffXb1/LIhr2qBv24KIYQQFeftJXjim3D8Hrh8AK66CGkLRT8KwWBPeieEEEL0gHctwNP74abW+Wc86rwXgt/xbP/E5x7O2TMhLmX09BzbW7+fenyOmTc0voQQBfA08F/G+SMedd4FwReAtI9dxH0qQ4i8DBx7YOUNEnv27OGGOz5eco+EELWita3iEi4CFzK29TQ0lzZs6LRLQgghRK1p3nXXXWX3QQghhCiV5saNG8vugxBCCFEq+p6hEEKIvqf5yCM+S22EEEKItUvz8ccfL7sPQgghRKnITSqEEKLvkRgKIYToe5pMlt0FIYQQolyCsjsghFi7bN68mYWFBe90M2/z5s3O/KheXH4RdeL6ZjIzM+N9fVEso6OjhbcZcK7wNgvn4MGDZXdBFMyt35vjw2V3wgONvXjuv//+1DKRqJli5CM0rrpRfbuMmRcnvHF1XGQR2ZGREe+yohhmZ2e70m7Ad7vSbuEcP3687C6IIvmLz8IDc2X3wguNvUvZv3+/d1lbfCKxiY5J4mQKYtps0jwmtZtF7ET/EPCPwD1ld0OIetNoNFhezvd10LS6jUbDq5281+8VaTNEU6TMfF8hTJpBmvjOTEV/kTtmmMXdkad8XqIbh3lj6ORGJcql7LhQHlziFY0/11hcXl5OHaNp49dXMHuJPUtL+/eOE8q0maHr/70TV2i3xsWOHTuYn5/vSt0dO3Z4tZP3+v1ALjH0cVt0Ur4TohuLWDuUHReKsMdVnECliVqcIGa5dh2wRcr+N08TL3PGZy+qSRPAtP/fsmeHLvGKhMolfPPz86mCmCZ0voLZr2QWwyzuizzlfcg608s6K9RMspqUHReyvQ3mMfrtM27MWaLPtVzndcSe+fmsKI1rw3VuCmUWYSwSW3DiBCpN1OIEMcu1RTYyiaFrgCYN6qzl07BvNkWLVrfbF/mpUlzIHBe2+zOvwPmMtSxt1xHXQ44dRzTzbHxXrPqIY97xYwpWJE6mSPm6Ss1Zos+1XOciG15iaLsrbGz3hcuVYQ4uVxkfzJuN6+bhulnExRDtdn3aF+VR5biQOZ7SBK6TcbUWxmPcwhlzNhcnij4ClyU26dNuXkzRs92feQXOR0iztF0VTp8+za5duzLnxbFt2zauvvrqzP3wEkNbyLKWcc0Gix6A5k3GvjnFLWgwn+bXwo1mrVKluFDSWPEZR/083pIeiuPKx53HuUuzPGQnCXPRmCKVJnCdLLSpquDFce7cOR588EFuueUW9u7d25Y3PT3No48+yuTkJIODg95tHjhwgPHx8cx9CfCMy7sWKKRtgE1qoxM3abdErNvti3xULS5k4horae72uJhh3AzTVdZFFceq70pQF3kWTqWl2/lx96lOBDFJzHyEzmexzFphcHCQyclJjhw5ArAiiHmFEOAwh9nHPpaxbIjGStqd3MkVXMEhDq3kB/yW/0XS3Biusi7y3ri6vahgLS5aWGtUIS5k4rtgJm0FaZatFXV5SHMtnosj67YYu15aP1z9SStfFKZ7NG7FqH0eFzOMm2G6yrqoosDaggjkFkKTBg1u5VZOcIKg5QQ1BRHgR/yIgIBNbCJgff6/RB6KcEO4bgS2O9Re0JDlBlKHG00/UrW4kAvfhTBFbtCvqjgmrfz0rZOU7vt/6iOAedr1xXfBTNoK0ixbK+o2s7QFsVMhjPj6ya8TXBPAT62m3XjjjXz/E98neCXgoa8+xAt3v8CFkQsEPAj8tl/DWZ+Y0hbSFE2cSMal2UdRbaoQF/KJCSaldyqE5tHO0ziuB74LYYrcoF8HcYwEMfrdMQ8DNwE3AB8D/hjYCbPMwpvAG/DSD1+CrcBuCPhD/7bjXBlxIpnn5iWETRXjQmnExfiS9hi6Vjm7tnFkuZ7oPT4xwaT0ToXQPNp5dRDEjlkA5oH3Aa8D/9xKnwcea/3eRCiI+1rnj0HAvwO/4tF+ympRn7oSRZGHOsSFssabi3bZa1ZYP+JifEl7DF2b+l3bOLJcb81xllDT3gfcAXyKcHb4PaPMJ4BXgS+1zn8AATPAn+a7ZlZRkwiKrNQlLiREGlk3yfvO4oouV3t+Afgx4P+AXwbOAeeBRaPMVmCplbYBWA8B2bdjCCGEENXkKWCYMF74JKFL9APA9UaZnwS2AL9GKIxvQMB7e9zRnGT5fpqoPnX5uC9o7AlRK94NvAc4DrzdSrsPeKv1+yKwvnX8UCvtAgRtU8eK4vNFbVEvBo49AMeq/3FfjT2RRLe+ui464BiwC/gM8KgjvwF8HvhxVhfQAAHretA5IYRYY4yOjpbdBeHiKuAKQrfoeUd+g9BNeg7Ys5occFkPOieEEEL0gj3ANuBXgZtjylxN6Cb9k9WkgNe63TMhLmV5aHVrQ/Cvj7FRWwOEEBkITv3Tyu/lzVtWM74M/BJwCDjpqNgEvkK4teL3jPZ8X9QtqsPmoXx75BYWq7OdYOmaa1d+rzvzJOvOPFlib4QQdWbpp4dXT64FhoBfBN7hKNwgdKVuBX5zNTng8i72UIgYLl4/wlvvv4n1//KtsrsihKgxb73/Ji5eP7Ka8B5gELgR+AlHhQawnXB1qbGkXW5S0cbMzEzvLnbbb7D1Z3+eLc/Ps/7113t33Rzs3Lmz7C6IPuSZZ54puwuVZOfOnbDlnSxd8zNcvO7n2jNPEMYL7wO+5qjcBP6O0E36u6vJAQrVCIuRkZH0QsVdrHfXysns7CxXauWgKIGnZmZ6a481INUedxO6QG8D5z76Riv9DeCe1eRauEkPHjxYdhd6iva2iTz0m53UHdl5lxgEAsI3zGx35DeAAVbdpS0C5z6MCtIvA6duN7S4N+H7fO077UXFce256tXxkzXdoF/spO50y857YY9Jn4jKY3eF2+o08EnClaR/7chvAt8BngcOrCYHDBTXB9F/pH3BO0vdqL6JeR79TrtW0mds+lEgRf/QbXvMc33faxXGBwkF7yOEG+/vsPL/inDWuAn4y9X8JkvZrnPy5Mm23/afpPJibeJ6SoyOacZkPpEmfenbPqY9Abv+9IokO8hjD1W1oUOHDpXdBeGgm/aYNsN0fWIqOvp8ZqoQXiPcUP9D4DlH/nOEb6Z5vT0/8G3fFkGAsbExhoaGmJqaYmJiYiV/cXGxrZzLmMfGxnwv3YZpgPfee2+uNkR3SHsitWd5pnEkGVnc06bZXlobvXabDg0NrdiBmTY2NsbJkydXxn+c0NnlXO0lYQuVbKX/KNoeXe3ZNlgJ/o0wJjgN/A3wZ1b+ZwkX17zYnuf9btLIOCcmJtrEb2pqasVgTWONDHloaOiStqampjIbN4QGbhq1fS56i20Ivt9nc7likgww7np2elLcwy7XLUwBs5mamlr5HY1/066iMuaDpct+0nDZSSfE2Zlsr1r00h5dnpqk/sQJb1doAt8lnCFucuQPAHOA9Q4S75khhIJoil9k3ObTrflE6xK8pJtFGjK+apE0U7PPk2J7puG5BCvuaTTOqFyG7epT0ZjjPrIT0zZMkXNh2krWB8UkZDf9QbftMS0OGCfGeWOYufkUMEL7HkNT+J4lXEm61J4ecM6vfZebFNoNPJrx2TeBuLY6dZXKyKuFS7Syui3TjLTq2CEEUxzhUu9JhDlrNB84u4FtP0ku1Sgvrk7SDNRVNqmeT3m5f/3phj0mPVxmXcXaU3v+RnqR5uSWSe/2JiYmVsTPFkHXk2xU3qxjnudxAUFoAKahiHpgBthNQ00L8EdPmb6zuqgdu91uzgohFEBzbEc2ER2npqbaFpqZ5W07yWsbaUQuT5fQuOzKzrPTTeLaSaqX1J+k69j9EdnJao+udNsdm+YOTQqDdJVfT/+TyU0aPb26nlrjjNcWySLdP6J6JAXeXW4WH/dJ1plhmTNIe1aX5CZdXFyMjblH8UTRTpxoCjdF2mOaXdl1fGaKPbPV6E1rCR+mCI4cOcLevXu92nMtmknCdP24zrOiBTPVxjXQfRa0uM7jDCaPkab1syjs1dNjY2OXuElN23HF1m276tRmYO3ZjekyXUt/r6Lplj3GPZzGxQjTrlOV8EcwOenvJjVnhj5unLQFA1mJc+GI8kiLRyQN9DSRi7uWz3XLwGUXi4uLbW5SU/xci8zsBWa+tmaSZCdJcThTXOJWpKbViWvH7pOPe9RVXqGRZLppj3EimHTNtJhjVzgK/H5M3rb4apncpHac0H6Kdc0Wk9yieVaWSgCrg2tvUhxpK9GS2nfFNeL2RGWJLXaDxcXF2AViLs+Ka+ZnLz7L4y5NshM7L+u5b5pPO1nTZf/xdNsefbZZxG2ncNVLarsjPg7kiDAERz7t7yaFVWO3l5BHx6wxwTz7DUU1yOOuzLKyzN7L5HvdsmaK9kpSaLcXUwTt2WGEvc8wQjYi0ui2PfqUKSUeaHF4w2HGLxv3Lt+4NQwkBvxRemHTmIFLhND1Zg2zvBD9gEsEzXR7y1Hc9iOX3WgxjRBd4h/CQzA5kB4ztPdMAc6YR9y5EP2COYOz7cVOy2ofmh0Kkc7hw4fZt29f5nreMUN7z5Sd7nsuqs/s7GzZXVgzuMZ/t940I9YmssfeEBz582wxw7Ko23f+usnC4kJ6oZyM6ovutUZ2sraQPfaOxvDx4eVT46fK7ocQQgjRMbt372Zubi5zvSZf7EJvhBBCiBrR5LWyuyCEEEKUS8D2srsghBBCFMQ6YH32asHkx/xfxyaEEEJUmkOAuef+xfiiy1eGb/BuvNjI9jo2IYQQouoss0wj+kTFQyuJ8CHgm8DbrbRPslKmMTw8vHzqlFaTCiGEqD+7p3czN95aTWp+sumdwH8Ae4AXwqTl5dbMsNHg/wH8M6+2BnAjRQAAAABJRU5ErkJggg==

火龙果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 8ss) ss))))
    (if (= (cdr (assoc 0 ss)) "HATCH")(progn(setq ss (subst (cons 8 "HATCH") (assoc 8ss) ss))))
    (if (= (cdr (assoc 0 ss)) "DIMENSION")(progn(setq ss (subst (cons 8 "DIM") (assoc 8ss) ss))))
    (if (= (cdr (assoc 0 ss)) "TEXT")(progn(setq ss (subst (cons 8 "TXT") (assoc 8ss) ss))))
    (if (= (cdr (assoc 0 ss)) "INSERT")(progn(setq ss (subst (cons 8 "BLOCKLAYER") (assoc 8ss) 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

https://www.bilibili.com/video/BV1FeUpYfEW4/?spm_id_from=333.337.search-card.all.click

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 ...

很好哦,这是饭喂到嘴里了,向大佬致敬{:1_1:}

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

以前研究这个问题,主要是解决三维软件导出的DWG文件。
页: [1]
查看完整版本: 求自动归层插件