创建块，可以支持任意视图

taoyi0727

如题
在论坛里找到这个
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92482&highlight=entmake
但是只能用在俯视图，其它视图用不了，不知道怎么改，加210组码吗？
最好不要用command来写，用VL函数最佳，路过的大神来指点下
(defun T-new-block (name-lst pt name)
  (entmake (list '(0 . "block") (cons 2 name) '(70 . 0) (cons 10 pt)));创建块名
  (foreach x name-lst
    (entmake (cdr (entget x)));图元加入块内
  )
  (entmake '((0 . "ENDBLK")));结束创建块
  (foreach x name-lst
                (entdel x);删除图元
        )
  (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)));插入块
)
已自行解决
已自行解决
已自行解决
已自行解决

gaics

测试其他视图也可以创建块

taoyi0727

gaics 发表于 2020-11-3 08:36
测试其他视图也可以创建块

我知道可以，但是是有问题的，你创建好块，把这个块删除了，再ctrl+Z恢复，这个块就移位了

gaics

taoyi0727 发表于 2020-11-3 08:49
我知道可以，但是是有问题的，你创建好块，把这个块删除了，再ctrl+Z恢复，这个块就移位了

那跟你一楼描述的问题就不一致了

taoyi0727

已自行解决

vlisp2012

taoyi0727 发表于 2020-11-8 06:11
已自行解决

咋解决的呀？
上代码啊？！

taoyi0727

vlisp2012 发表于 2020-11-5 07:57
咋解决的呀？
上代码啊？！

水平不高，也没高人指点，每次发的贴子没人理，只有用command

tigcat

大侠20币也没人帮忙，我提的问题才给5个币，肯定熄火了。算了，自己慢慢画吧，有空了学习下编程

taoyi0727

tigcat 发表于 2020-11-7 22:15
大侠20币也没人帮忙，我提的问题才给5个币，肯定熄火了。算了，自己慢慢画吧，有空了学习下编程

你的给你搞好了

tigcat

taoyi0727 发表于 2020-11-8 08:46
你的给你搞好了

哎呀，我收到大侠回复了。那么晚还帮我弄代码，