请各位看下这个程序！是计算块的！

zhangzg · 发表于 2002-1-17 12:24:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:jsk()
(setq bloc (getstring "\nEnter name of block you want counted:"))
(setq d (cons 2 bloc))
(setq a (ssget "X" (list d)))
(if (/= a nil)
(progn
   (setq n (sslength a))
   (prompt "There are")(prin1 n)(prompt "in the database\n")
)
  )
(if (= a nil)
  (prompt "There ara none in the database\n")
  )
)

此程序中的  (ssget "x" (list d)) 返回的总是nil。
怎么办？

zhangzg · 发表于 2002-1-17 12:26:39

(setq ss1 (ssget "F" (list pt2 pt3 pt4)))
创建栏选对象的选择集，由点 (5,5)、(4,1) 和 (2,6) 定义

(setq ss1 (ssget "W" (list pt1 pt2)))
生成的选择集有什么区别？

cy956 · 发表于 2002-1-17 13:27:14

(setq ss1 (ssget "P"))
创建一个包含最新选定对象的选择集

(setq ss1 (ssget "L"))
创建一个包含最新增加的对象的选择集

该对象应是在屏幕上可见的

(setq ss1 (ssget pt2))
创建一个通过点 (5,5) 的对象的选择集

(setq ss1 (ssget "W" pt1 pt2))
创建一个包含在窗口内部的对象的选择集

(setq ss1 (ssget "F" (list pt2 pt3 pt4)))

创建一个栏选对象的选择集

(setq ss1 (ssget "WP" (list pt1 pt2 pt3)))
创建一个包含在多边形内部的对象的选择集
(setq ss1 (ssget "X"))
创建一个包含数据库中所有对象的选择集

。。。。。。

cy956 · 发表于 2002-1-17 13:33:18

程序应该可以，可能是你输错块名了。还是选块计数方便些。

zhangzg · 发表于 2002-1-17 14:33:45

我每次都是看帮助，但是觉得收获不大，因为我刚刚做这个总共也就一个月吧，呵呵，是个十足的菜鸟！
还得望各位高手帮助！了呵呵，谢谢了，

LUCAS · 发表于 2002-1-17 14:42:06

改写如下即可:

(defun c:sk ( / bloc a n)
(setq bloc (getstring "\nEnter name of block you want counted:"))
(setq a (ssget "X" (list (cons 2 bloc))))
(if (/= a nil)
(progn
(setq n (sslength a))
(prompt (strcat "\nBlock name = "(strcase bloc)))
(prompt (strcat "\nThere are " (rtos n) " in the database"))
)
)
(if (= a nil)
(prompt "\nThere ara none in the database")
)
(princ)
)
:9

zhangzg · 发表于 2002-1-17 15:13:39

已经ok了，我是在繁体环境中运行的，也不知道怎么搞得，就可以。什么都没有动！
可能是我的繁体系统有问题！
呵呵，真是搞不明白！
谢谢！

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

请各位看下这个程序！是计算块的！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

还有，在帮助文件中：

多看看help

程序应该可以，可能是你输错块名了。还是选块计数方便些。

谢谢，指教！

呵呵，你的和第一个一样的！