[LISP函数]：急~~~~~~~~~~~~~请大哥帮我看看

luoyaya · 发表于 2002-7-28 19:27:15

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

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

×

(defun C:reb ( )
  (setq blkname (getstring  "输一个要填加的字符串:"))
  (setq blk (tblnext "BLOCK" 1))

  (while blk
(setq blk_get (tblobjname "BLOCK" (cdr (assoc 2 blk))) )
(setq blk_tbl (entget  blk_get))
(setq blk_all_name (strcat blkname (cdr (assoc 2 blk_tbl))))
(setq blk_tbl_mod (subst (cons 2 blk_all_name) (assoc 2 blk_tbl) blk_tbl))
(entmod blk_tbl_mod)
(setq blk (tblnext "BLOCK"))

)
  )
为什么改不了块名？

LUCAS · 发表于 2002-7-29 10:10:27

(defun C:REB (/ BLKNAME BLK)
(setq BLKNAME (getstring "输一个要填加的字符串:"))
(setq BLK (tblnext "BLOCK" t))
(while BLK
(if (/= "*" (substr (cdr (assoc 2 BLK)) 1 1))
(command "_.rename"
"B"
(cdr (assoc 2 BLK))
(strcat BLKNAME (cdr (assoc 2 BLK)))
)
)
(setq BLK (tblnext "BLOCK"))
)
(princ)
)

luoyaya · 发表于 2002-7-29 11:09:16

先谢谢楼上的：）

还问，可不可以用entmod改块？
我看到资料上说entmod不能接受tblnext的返回值，我用了getent为什么还不行？

luoyaya · 发表于 2002-7-31 11:10:15

楼上的代码有点点问题，我改了一下，如下：

(defun C:REB (/ BLKNAME BLK)
(setq BLKNAME (getstring "输一个要填加的字符串:"))
(setq BLK (tblnext "BLOCK" t))
(while BLK
(if (and (/= "*" (substr (cdr (assoc 2 BLK)) 1 1)) (/= "" (cdr (assoc 2 BLK))))
(command "_.rename"
"B"
(cdr (assoc 2 BLK))
(strcat BLKNAME (cdr (assoc 2 BLK)))
)
)
(setq BLK (tblnext "BLOCK"))
)
(princ)
)

如果各位有什么更好的方法请告诉我：）谢谢！！！

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

[LISP函数]：急~~~~~~~~~~~~~请大哥帮我看看

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

相关帖子