如何用lsp 选择一批名称相似的图块？

lxy_gy · 发表于 2011-9-10 11:34:50

一批相似名称的图块如何全部选择，图块名为ABC_1,ABC_2,ABC_4,ABC_7......CREW_AR_1，CREW_AR_3,CREW_AR_5,CREW_AR_45...

caoyin · 发表于 2011-9-10 14:29:33

(ssget "X" '((0 . "INSERT")(2 . "*@_#*")))

yjr111 · 发表于 2011-9-10 15:08:29

本帖最后由 yjr111 于 2011-9-11 14:46 编辑

(defun c:xz()
(setvar "cmdecho" 0)
(setq n 0)
(setq sss(ssadd ))
(SETQ STR (GETSTRING "输入要选择的块名<支持通配符>："))
(prompt "通配符如：ABC*，则查找所有含ABC的块")
(setq ss (ssget '((0 . "INSERT"))))
(repeat (sslength ss)
(setq bb(SSNAME ss n))
(setq cc(ENTGET bb))
(setq s1(CDR(ASSOC 2 cc)))
(if(WCMATCH S1 STR)
(progn
(setq sss(ssadd bb sss))
;;; (command "select" sss "")用此句命令则选择的图元无法看到哪些被选取
;;; (command "select" sss )用此句命令虽看到被选取的图元，
;;; 但无法用其他命令修改图元，右键一回车就没了
;;; (redraw bb 3);;;;;;;;;;;;;;水平有限，退而求其次，只能高亮图元了
)
)
(setq n(+ n 1))
)
(princ (strcat "共找到" (rtos (sslength sss) 2 0) "个"))
(princ)
)

已经解决问题：

lxy_gy · 发表于 2011-9-10 16:22:42

本帖最后由 lxy_gy 于 2011-9-10 16:28 编辑

非常谢谢两位高手，对lisp不熟悉，直接用yjr111兄的了，试了下能用，但有两个问题
1.块名不支持中文的（不能输入中文），如门_1、门_2、门_5.......;
2.选集没有保持，不能执行后续操作，如拷贝、移动等操作

yjr111 · 发表于 2011-9-10 17:20:15

本帖最后由 yjr111 于 2011-9-11 16:12 编辑

1、选集的问题你可以在命令行输入"select" "!sss“即可;(可以输入copy或其它修改命令后出现选择对象提示后再输入“!sss")
2、中文我没测试，待会看看

中文名我2006测试没问题，不知道你是什么版本

已经在楼上更新，2006测试完美！

lxy_gy · 发表于 2011-9-10 18:55:09

本帖最后由 lxy_gy 于 2011-9-10 18:55 编辑

我的是2011 x64中文版的

yjr111 · 发表于 2011-9-14 19:40:55

本帖最后由 yjr111 于 2011-9-14 19:42 编辑

caoyin 发表于 2011-9-10 14:29
(ssget "X" '((0 . "INSERT")(2 . "*@_#*")))

版主的高见竟一下子没看懂，今看了半天书，自己写了一个简洁的选择相似块的程序，发现原来版主已经给出答案，真是惭愧！

(defun c:sk() (setvar "cmdecho" 0) (setq str (getstring "\n 请输入要查询的块名《支持通配符》:")) (sssetfirst (setq ss (ssget "x" (LIST (CONS 0 "INSERT") (cons 2 str))))ss) (if ss (princ (strcat "共找到了" (rtos (sslength ss) 2 0) "个" str)) (princ (strcat "没有找到你要找的块:" str )) ) (princ) )

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

如何用lsp 选择一批名称相似的图块？

本帖子中包含更多资源