[求助]：如何用autolisp的方法建立一个块

fylinwater · 发表于 2002-5-6 03:33:54

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

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

×

不调用COMMAND函数
还有就是如何修改一个块比如给块再加一个子实体

cy956 · 发表于 2002-5-6 04:28:11

(setq en1 (list (cons 0 "BLOCK") (CONS 8 "dim") (cons 10 ps);;
               (cons 2 "*SECTSYM");;实体名带*号头的定义为无名块
               (cons 70 1);;
(entmake en1) ;;

;;创建组成块的实体
.......

(setq enl(list (cons 0 "ENDBLK"))
blknam (entmake enl)
enl (list
   (cons 0 "INSERT")
   (cons 10 ps)
   (cons 2 blknam)
   (cons 8 "dim")
         ) ;_ end of list
  ) ;_ end of setq
  (entmake enl)

改块内实体，先找到实体，改其实体数据，
entmod子实体，再entupd更新主实体即可。

fylinwater · 发表于 2002-5-11 09:08:13

不我是想添加子实体而不是更改子实体
还有就是想删除子实体

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

[求助] [求助]：如何用autolisp的方法建立一个块

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

相关帖子

这样的过程。