taoyi0727 发表于 2020-10-31 22:42:36

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

本帖最后由 taoyi0727 于 2020-11-4 11:19 编辑

如题
在论坛里找到这个
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 发表于 2020-11-3 08:36:37

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

taoyi0727 发表于 2020-11-3 08:49:37

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

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

gaics 发表于 2020-11-3 16:22:59

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

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

taoyi0727 发表于 2020-11-4 11:11:25

已自行解决

vlisp2012 发表于 2020-11-5 07:57:25

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

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

taoyi0727 发表于 2020-11-5 08:38:10

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

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

tigcat 发表于 2020-11-7 22:15:03

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

taoyi0727 发表于 2020-11-8 08:46:49

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

你的给你搞好了

tigcat 发表于 2020-11-8 19:30:39

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

哎呀，我收到大侠回复了。那么晚还帮我弄代码，
页: [1] 2
查看完整版本: 创建块，可以支持任意视图