wharan 发表于 2019-10-13 14:10:56

entmake生成块的问题

从论坛里借用大侠的程序，想把中间中间用entmake生成的很多实体组成块，结果只有一部分实体做成了块，不知道是怎么回事，求大侠指点

[*](defun emkblk (pt name)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif；中间用entmake生成了很多实体
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(entmake '((0 . "ENDBLK")))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(command "_.erase" ss "")
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)

wharan 发表于 2022-4-5 15:01:09

本帖最后由 wharan 于 2022-4-5 15:04 编辑

这是我的一个应用，供参考。
;;以下生成块
(defun emkunameblk (ss pt / i name)
(entmake
    (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt))
)
(repeat (setq i (sslength ss))
    (entmake (cdr (entget (ssname ss (setq i (1- i))))))
)
(setq name (entmake '((0 . "ENDBLK"))))
(command "_.erase" ss "")
(entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
name
)

hubeiwdlue 发表于 2024-7-16 12:59:35

谢谢楼主分享经验。
页: [1]
查看完整版本: entmake生成块的问题