[求助]过年了,有一堆数字要统计,大家能帮我夏吗?

linkai2004 · 发表于 2006-1-23 13:12:00

我想把一定范围内的数字,生成一个选择集,

就是象这样子:有 1 2 5 7 11 88 -1 -6 2 .....好多数字

我想要-1到11的数字生成一个选择集,也就是选择-1 1 2 5 7 11这几个数字,

用程序怎么编呀?

谢谢了

xyp1964 · 发表于 2006-1-23 13:16:00

(setq ss (ssget "X" '((0 . "TEXT") (1 . "-1,1,2,5,7,11"))))

linkai2004 · 发表于 2006-1-23 14:51:00

版主,刚才我讲的是一个例子 ,你的程序里怎么会出 -1,1,2,5,7,11 ??

难道我没有表达清楚

linkai2004 · 发表于 2006-1-23 14:55:00

版主,我想要的是程序有提示如:请输入数字范围,然后框选,得到自己所需范围数字的选择集..

linkai2004 · 发表于 2006-1-23 15:58:00

xyp1964 版主还在吗?

帮帮小弟呀

xyp1964 · 发表于 2006-1-23 22:27:00

(load "xyp_lib.vlx") ;版本 V.20051230 (1873)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
|;
(defun c:test ()
(CMDLA0)
(setq STR (USTR 1 "\n数字字符串(格式 : a,b,c,...)" STR NIL)
ss (ssget "X" (list '(0 . "TEXT") (cons 1 str)))
)
(princ"\n选择集为 !ss")
(CMDLA1)
)

linkai2004 · 发表于 2006-1-24 09:03:00

谢谢我这就去试试

linkai2004 · 发表于 2006-1-24 09:12:00

版主呀这个怎么用呀

最后得到一个!ss的结果.要怎么用?

linkai2004 · 发表于 2006-1-24 09:14:00

版主不能输入范围呀..

Andyhon · 发表于 2006-1-24 12:11:00

本帖最后由作者于 2006-1-24 22:38:39 编辑

   (defun sslist (sso / n lst)
       (if (= (type sso) 'PICKSET)
         (repeat (setq n (sslength sso))
           (setq n (1- n)
             lst (cons (ssname sso n) lst)
         ) )
         (if (= (type sso) 'ENAME) (list sso))
       )
    )
    (defun dxg (code ele)
      (cdr (assoc code (entget ele)))
    )

(setq Lint (getInt "下限值起自: ")
Uint (getInt "上限结束值: ")
)
(princ "\n 框选范围内的数字,生成一个选择集: ")
(setq ss (ssget '((0 . "TEXT"))))

(setq sss
(vl-remove-if
   '(lambda (x)
     (setq y (atoi (dxg 1 x)))
     (cond
      ;((< y Lint) x)
      ;((> y Uint) x)
      ((< y Lint))
      ((> y Uint))
    ))
    (sslist ss)
)
)

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

[求助]过年了,有一堆数字要统计,大家能帮我夏吗?

浏览过的版块