如何将几条线和一行文字合并成一个块？

yinwh · 发表于 2003-2-25 01:02:00

我猜是用block 命令，但是我不知道格式，哪位用过的麻烦指点一下，谢谢！！

Ea · 发表于 2003-2-25 02:45:00

(defun ea:mkunblk (ss pt name str / n lst0 lst1 blkn)
  (entmake
(list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt))
  )
  (setq n -1)
  (repeat (sslength ss)
(entmake (cdr (entget (ssname ss (1+ n)))))
(setq n (1+ n))
  )
  (setq blkn (entmake '((0 . "ENDBLK"))))
  ;(command "_.insert" name pt "1" "1" "0")
  (if str
(command "_.erase" ss "")
  )
)

龙龙仔 · 发表于 2003-2-25 08:28:00

yinwh · 发表于 2003-2-25 09:45:00

如题

meflying · 发表于 2003-2-25 10:08:00

yinwh · 发表于 2003-2-25 10:44:00

本帖最后由作者于 2003-2-25 10:44:52 编辑

我想用block这个命令，但是在这个命令中输哪个参数是使原图不消失的啊
即 convert to block ，而不是delete

meflying · 发表于 2003-2-25 11:07:00

在弹出的对话框中选中“转换为块”即可，如是英文版就是类似的意思。
如不用对话框形式在BLOCK命令后随即调用OOPS命令即可恢复删除的图块

yinwh · 发表于 2003-2-25 11:51:00

先用block生成块，再调用insert原地插入这个块，可行吗

alin · 发表于 2003-2-26 14:19:00

yinwh · 发表于 2003-2-26 15:18:00

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

如何将几条线和一行文字合并成一个块？

Entmake生成块。

程序對ployline & 屬性會不行!!

autocad里面没有entmake这条命令啊

这是LISP语言中的函数，建议你去学学LISP，

我的不需要这么复杂啊，我只要生成一个图块，不需要以后调用，也不需要能编辑

用BLOCK命令

不行，这样恢复后的不是块，还是散的。。我想这样做

You've got it!

谢谢！！呵呵