[求助]lisp当中选择一个对象的命令是什么？

pc728 · 发表于 2009-10-7 09:45:00

各位大侠：

我找了一个计算相同块数量的程序，但是我想在计算后能够把统计的块同时选择上，请问该加一句什么呢？谢谢各位大侠了。。

程序如下：

(defun c:CalBlk( / ent ents blkname)
(setq ent (car (entsel)))
(if ent
    (progn
      (setq ents (entget ent))
      (if (= (cdr (assoc 0 ents)) "INSERT")
(progn
   (setq blkname (cdr (assoc 2 ents)))
   (princ (strcat "\n块名:" blkname "," "数量:"))
   (princ (sslength (ssget "x" (list '(0 . "INSERT") (cons 2 blkname)))))
)
      )
    )
)
(princ)
)
(prompt "Enter CALBLK to launch the program!")

jaminth · 发表于 2009-10-7 10:28:00

(defun c:CalBlk( / ent ents blkname)
(setq ent (car (entsel)))
(if ent
(progn
(setq ents (entget ent))
(if (= (cdr (assoc 0 ents)) "INSERT")
(progn
(setq blkname (cdr (assoc 2 ents)))
(princ (strcat "\n块名:" blkname "," "数量:"))
(princ (sslength (sssetfirst gripset (ssget "x" (list '(0 . "INSERT") (cons 2 blkname))))))
)
)
)
)
(princ)
)
(prompt "Enter CALBLK to launch the program!")

pc728 · 发表于 2009-10-7 10:30:00

呵呵，谢谢了哈。。好同志

pc728 · 发表于 2009-10-7 10:33:00

选择对象:
块名:p,数量:; 错误: 参数类型错误: lselsetp (nil <Selection set: 32c>)
命令:

提示错误哈，但能选择！！

龙龙仔 · 发表于 2009-10-7 12:26:00

....

(princ (strcat "\n塊名:" BLKNAME "," "數量:"))
   (sssetfirst
     GRIPSET
     (setq
       SS (ssget "x" (list '(0 . "INSERT") (cons 2 BLKNAME)))
     )
   )
   (princ (sslength SS))

....

jaminth · 发表于 2009-10-7 14:21:00

按版主龙龙仔的改法修改就可以了.以下是我重新改进的代码:

(defun c:CalBlk( / ent ents blkname)
(setq ent (car (entsel)))
(if ent
(progn
(setq ents (entget ent))
(if (= (cdr (assoc 0 ents)) "INSERT")
(progn
(setq blkname (cdr (assoc 2 ents)))
(princ (strcat "\n块名:" blkname "," "数量:"))
(princ (sslength (setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 blkname))))))
)
)
(sssetfirst gripset ss)
)
)
(princ)
)
(prompt "Enter CALBLK to launch the program!")

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

[基础] [求助]lisp当中选择一个对象的命令是什么？