求一个快速选择同名块的插件

xlat · 发表于 2015-6-29 00:12

感觉cad自带的快速选择还是有点慢，高版本cad 12 14里面都自带有这个功能，我现在用的是08版本的cad，所以想向各位大神问问有没有这个插件

wutao8282 · 发表于 2022-4-25 18:16

ll120921 发表于 2022-4-25 09:24
(setq radius (assoc 40 elist))
(setq SS (SSGET "x" (LIST '(0 . "CIRCLE") radius )))

那能否按要求输入直径数值范围全选圆形。如：直径大于多少直径小于多少或者多少至多少之间

wutao8282 · 发表于 2022-4-30 23:42

wutao8282 发表于 2022-4-25 18:16
那能否按要求输入直径数值范围全选圆形。如：直径大于多少直径小于多少或者多少至多少之间

大神如果用你这个，快速选择椭圆应该怎么改和圆弧，分别因该怎么写，麻烦大神再指点一下？感谢

ll120921 · 发表于 2022-4-25 09:24

wutao8282 发表于 2022-4-24 15:35
如果要选择相同直径的圆怎么修改呢？恳求指教

(setq radius (assoc 40 elist))
(setq SS (SSGET "x" (LIST '(0 . "CIRCLE") radius )))

Andyhon · 发表于 2015-6-29 08:20

先试 QSelect 能否合于需求

q3_2006 · 发表于 2015-6-29 10:05

(setq ss (ssget "x" (list (cons 0 "INSERT")(cons 2 (cdr(assoc 2 (entget(car(entsel "\n 选择参照块：")))))))))

xlat · 发表于 2015-7-4 20:13

Andyhon 发表于 2015-6-29 08:20
先试 QSelect 能否合于需求

这个就是快速选择嘛我想要个更快的...

xlat · 发表于 2015-7-4 20:13

q3_2006 发表于 2015-6-29 10:05
(setq ss (ssget "x" (list (cons 0 "INSERT")(cons 2 (cdr(assoc 2 (entget(car(entsel "\n 选择参照块：" ...

小白一个不懂这个这么弄

Andyhon · 发表于 2015-7-5 09:30

xlat 发表于 2015-7-4 20:13
小白一个不懂这个这么弄

command: (setq ss (ssget "x" (list (cons 0 "INSERT")(cons 2 (cdr(assoc 2 (entget(car(entsel "\n 选择参照块：")))))))))

dali630 · 发表于 2015-7-5 14:04

FI......................

ll120921 · 发表于 2015-7-13 10:22

试试这个
(defun c:gb()
  (setq e(entsel "请选择图块"))
  (setq en(car e))
  (setq elist(entget en))
  (setq iname (assoc 2 elist))
  ;(setq a (2 . iname))
  (setq SS (SSGET "x" (LIST '(0 . "INSERT") iname )))
  (sssetfirst nil ss)
  )

xlat · 发表于 2015-7-13 19:39

ll120921 发表于 2015-7-13 10:22
试试这个
(defun c:gb()
(setq e(entsel "请选择图块"))

非常感谢

davide888 · 发表于 2017-11-8 14:48

ll120921 发表于 2015-7-13 10:22
试试这个
(defun c:gb()
(setq e(entsel "请选择图块"))

非常感谢

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

求一个快速选择同名块的插件

点评