[LISP函数]：查询选中目标的数量的lisp怎样写？

瀛丹

下面的代码只能实现文体的查询，我还想实现 块 、群组及多义线 的查询。

那位高手能帮忙修改一下，可同时实现其他的查询

(defun c:txs()
  (setq ent(car (entsel "\\n选择要筛选的字母: ")))
  (redraw ent 3)
  (setq tex(cdr (assoc 1 (entget ent))))
  (prompt "选择要筛选的区域....")
  (setq ss(ssget (list '(0 . "TEXT") (cons 1 tex))))
  (redraw ent 4)
  (setq len (sslength ss))
  (print (strcat "文本" tex "共有" (rtos len)))
  (princ)
  )

falconry

可以这样
(setq ss (ssget))
(setq len (sslength ss))

只是查个数的话其实比楼主贴出的程序更简单,我试过文学、线、多义线、块均能查询

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. (defun c:txs ()
    
14.   (setq uw (UKWORD 7 "1 2 3 4" "\n1-文本/2-块/3-群组/4-多义线" uw))
    
15.   (cond        ((= uw "1")
    
16.          (setq ent (car (entsel "\n选择要筛选的字母 : ")))
    
17.          (redraw ent 3)
    
18.          (prompt "选择要筛选的区域....")
    
19.          (setq ss (ssget
    
20.                     (list '(0 . "TEXT") (cons 1 (cdr (assoc 1 (entget ent)))))
    
21.                   )
    
22.          )
    
23.          (redraw ent 4)
    
24.         )
    
25.         ((= uw "2")
    
26.          (prompt "\n选择要筛选的区域....")
    
27.          (setq ss (ssget '((0 . "BLOCK"))))
    
28.         )
    
29.         ((= uw "3")
    
30.          (prompt "\n选择要筛选的区域....")
    
31.          (setq ss (ssget '((0 . "group"))))
    
32.         )
    
33.         ((= uw "4")
    
34.          (prompt "\n选择要筛选的区域....")
    
35.          (setq ss (ssget '((0 . "*POLYLINE"))))
    
36.         )
    
37.   )
    
38.   (print (strcat "共有实体 " (rtos (sslength ss)) " 个"))
    
39.   (princ)
    
40. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> (defun c:txs ()<br />   (setq uw (UKWORD 7 "1 2 3 4" "\n1-文本/2-块/3-群组/4-多义线" uw))<br />   (cond        ((= uw "1")<br />          (setq ent (car (entsel "\n选择要筛选的字母 : ")))<br />          (redraw ent 3)<br />          (prompt "选择要筛选的区域....")<br />          (setq ss (ssget<br />                     (list '(0 . "TEXT") (cons 1 (cdr (assoc 1 (entget ent)))))<br />                   )<br />          )<br />          (redraw ent 4)<br />         )<br />         ((= uw "2")<br />          (prompt "\n选择要筛选的区域....")<br />          (setq ss (ssget '((0 . "BLOCK"))))<br />         )<br />         ((= uw "3")<br />          (prompt "\n选择要筛选的区域....")<br />          (setq ss (ssget '((0 . "group"))))<br />         )<br />         ((= uw "4")<br />          (prompt "\n选择要筛选的区域....")<br />          (setq ss (ssget '((0 . "*POLYLINE"))))<br />         )<br />   )<br />   (print (strcat "共有实体 " (rtos (sslength ss)) " 个"))<br />   (princ)<br /> )[/FONT]

001_boy

直接有cad的篩選功能就可以

瀛丹

版主3楼的程序运行后出现，ERROR: no function definition: UKWORD ，我用的是2006 ，难道UKWORD是要另外加载的函数？

似水无痕

最初由 xyp1964 发布
[B][CODE](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp... [/B]

三楼斑竹自编了一个函数库，已经编译成“.vlx”文件，你可以先点击链接下载该函数，然后按照提示步骤1～4（其中任何一个都可以）加载该函数，然后再运行程序就可以了？
对了，xyp1964斑竹能否将这个函数库的源码公布，或发至我的邮箱：xuefeng0323.student@sina.com，在下感激不尽！
如不能，兄弟也能理解，毕竟是您辛苦的劳动成果么！！
再次感谢xyp1964斑竹，感谢所有热心帮助别人的朋友！！！