快速选择lsp

yunfengning · 发表于 2015-8-18 12:33:25

以前在论坛下载的大侠的程序，若选择颜色随层的物体，则不能正确执行，提示:
命令: tt
选择对象: 程序运行出错:ssget 列表错误AutoCAD 变量设置被拒绝: "osmode" nil
请大侠修改，改成能按类型图层颜色(可颜色随层) 正确过滤选择物体。谢谢。
(defun C:Tt (/ E)
  (if (setq E (entsel))
(progn
   (setq E (entget (car E))
         E (list (assoc 0 E) (assoc 8 E)(assoc 62 E))
         E (ssget "_X" E)
   )
   (sssetfirst nil E)
   (princ "\n共有 ")
   (princ (sslength E))
   (princ " 个对象被选择。")
)
  )
  (princ)
)

yunfengning · 发表于 2015-8-21 15:56:17

谢谢叮咚，修改后达到目的。

叮咚 · 发表于 2015-8-21 12:10:51

(defun C:Tt (/ E)
(if (setq E (entsel))
(progn
(setq E (entget (car E))
E (list (assoc 0 E) (assoc 8 E)(if (assoc 62 E)(assoc 62 E)(cons 62 256)))
E (ssget "_X" E)
)
(sssetfirst nil E)
(princ "\n共有 ")
(princ (sslength E))
(princ " 个对象被选择。")
)
)
(princ)
)

rakea · 发表于 2017-12-21 08:00:52

感谢分享，非常有用

k1nger · 发表于 2021-8-26 17:02:58

（ssget）不可以么？

vladimirputin · 发表于 2023-2-9 08:38:37

非常好的代码，谢谢楼主分享啊。

Enjoy!!! · 发表于 2023-3-15 00:48:55

叮咚发表于 2015-8-21 12:10

能增加一项块名吗

嘒彼小星 · 发表于 2023-7-10 09:52:03

Enjoy!!! 发表于 2023-3-15 00:48
能增加一项块名吗

在3楼代码的基础上05行。加上(assoc 2 E)即可。

loveu515 · 发表于 2023-7-14 08:26:57

叮咚发表于 2015-8-21 12:10

代码短小精悍，值得学习

jh3030912 · 发表于 2023-9-1 07:03:27

厉害了大侠

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