[求助]：跪求entmakeunnblk.lsp

FrankZJD · 发表于 2006-1-10 11:10:39

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

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

×

本人急需，可因爱心币不够，无法下载，望各位斑竹、大侠不吝赐教，谢谢！

qiaqiadeng · 发表于 2006-1-10 13:15:17

拼命回帖，回个20帖你就可以下载了，再说了，不知道阁下要的DD是何物。

FrankZJD · 发表于 2006-1-10 13:43:38

是ll_j长老的一个lisp,是用于分解minsert的块的

rzg1972 · 发表于 2008-9-13 18:41:53

mc-make-unname-block 生成无名图块
［作者：郑立楷    来源：明经通道    点击数：3311    更新时间：2002-11-15    文章录入：mccad ］

语法: (mc-make-unname-block ss)
  说明:生成无名图块
函数内容:
(defun mc-make-unname-block(ss / count entlist ent blk)
  (entmake '((0 . "BLOCK")
   (2 . "*U")
   (70 . 1)
   (10 0 0 0)
   ))
  (setq count 0)
  (repeat (sslength ss)
(setq entlist(entget(setq ent(ssname ss  count))))
(setq count (1+ count))
(entmake entlist)
)
  (setq count 0)
  (repeat(sslength ss)
(setq ent(ssname ss count))
(setq count (1+ count))
(entdel ent)
)
  (setq blk(entmake '((0 . "ENDBLK"))))
  (if (princ blk)
  (entmake (list (cons 0  "INSERT")
   (cons 2 blk)
   (cons 10 '(0 0 0))
   ))
)
  blk
  )

  参数:ss：选择集

返回值: 无名块

注意: 函数对选择集中存在具有属性的图块及复杂多义线无效

示例:
(mc-make-unname-block (ssget))

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

[求助]：跪求entmakeunnblk.lsp

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

相关帖子