[求助]：这个程序为何无法实现

snsj · 发表于 2003-3-17 20:35:03

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

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

×

;查选中图块在图形中的数
;cks.lsp
(defun c:cks ()
  (setq a1 (entsel "\nselect a bolck:"))
  (setq a2 (car a1))
  (setq a3 (entget b2))
  (setq a4 (assoc 2 a3))
  (setq a5 (cdr a4))
  (setq a6 (ssget "x" (list a5)))
  (setq a7 (sslength a6))
  )
  (princ a7)
  (princ)
看不出问题出在那里？请各位看看～～
提示错误：
命令: cks
select a bolck:
错误: 参数类型错误: lentityp nil

cy956 · 发表于 2003-3-17 22:26:13

(setq a6 (ssget "x" (list a5)))错了,改为
(setq a6 (ssget "x" (list '(0 . "INSERT")(cons 2 a5))))

lijiao · 发表于 2003-3-18 08:12:15

最初由 snsj 发布
[B];查选中图块在图形中的数
;cks.lsp
(defun c:cks ()
  (setq a1 (entsel "\nselect a bolck:"))
  (setq a2 (car a1))
  (setq a3 (entget b2))
  (setq a4 (assoc 2 a3))
  (setq a5 (cdr a4))
  (setq a6 ... [/B]

其中(setq a3 (entget b2))也错了
应为(setq a3 (entget a2))

hi71400 · 发表于 2003-3-18 10:13:42

经检测，这样是正确的。
(defun c:cks ()
(setq a1 (entsel "\nselect a bolck:"))
(setq a2 (car a1))
(setq a3 (entget a2))
(setq a4 (assoc 2 a3))
(setq a6 (ssget "x" (list '(0 . "INSERT") a4)))
(setq a7 (sslength a6))
(princ a7)
(princ)
)

snsj · 发表于 2003-3-18 11:51:06

谢谢各位
原来是对象类型未声明
改为：
;查选区内的块数
;cks.lsp
(defun c:cks ()
  (setq a1 (entsel "\nselect a bolck:"))
  (setq a2 (car a1))
  (setq a3 (entget a2))
  (setq a4 (assoc 2 a3))
  (setq a5 (cdr a4))
  (setq a6 (ssget (list '(0 . "INSERT")(cons 2 a5))))
  (setq a7 (sslength a6))
  (princ "\n选区内的块")
  (princ a5)
  (princ "数目为:")
  (princ a7)
  (princ)
  )
或者为：
;查选区内的块数
;cks.lsp
(defun c:cks ()
  (setq a1 (entsel "\nselect a bolck:"))
  (setq a2 (car a1))
  (setq a3 (entget a2))
  (setq a4 (assoc 2 a3))
  (setq a5 (cdr a4))
  (setq a6 (ssget (list '(0 . "INSERT") a4)))
  (setq a7 (sslength a6))
  (princ "\n选区内的块")
  (princ a5)
  (princ "数目为:")
  (princ a7)
  (princ)
  )

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

[求助] [求助]：这个程序为何无法实现

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

相关帖子

Re: [求助]：这个程序为何无法实现