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

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

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

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

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:06

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

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

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

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:40

先试 QSelect 能否合于需求

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

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

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

Andyhon 发表于 2015-6-29 08:20 static/image/common/back.gif
先试 QSelect 能否合于需求

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

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

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

小白一个   不懂这个这么弄

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

xlat 发表于 2015-7-4 20:13 http://bbs.mjtd.com/static/image/common/back.gif
小白一个   不懂这个这么弄

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

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

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

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

试试这个
(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:40

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


非常感谢

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

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


非常感谢
页: [1] 2 3
查看完整版本: 求一个快速选择同名块的插件