社区 › 编程申请 › 快速选择lsp

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

快速选择lsp

以前在论坛下载的大侠的程序，若选择颜色随层的物体，则不能正确执行，提示:
命令: 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

厉害了大侠

查看完整版本: 快速选择lsp