怎么获取动态块子图元

skyline00227

做了一个动态块，如下图可以拉伸。
  

我通过
(setq a (entlast)) 返回：<图元名: 24893598>
(entget a)
返回：
((-1 . <图元名: 24893598>) (0 . "INSERT") (5 . "13E7") (102 . "{ACAD_XDICTIONARY")
(360 . <图元名: 22bad270>) (102 . "}") (330 . <图元名: 4ffe588>) (100 . "AcDbEntity")
(67 . 0) (410 . "Model") (8 . "原理图") (100 . "AcDbBlockReference") (2 . "*U14")
(10 14.8016 15.5796 0) (41 . 1) (42 . 1) (43 . 1) (50 . 0) (70 . 0) (71 . 0)
(44 . 0) (45 . 0) (210 0 0
1))
(setq b (entnext a))   返回：nil
问题来了：
1,这个动态块有子图元吗？
2，如果有为什么 entnext 获取不到？
求教各位大神。
PS：在cad 的特性列表里有距离这个参数，autolisp 怎么获取和修改这个参数呢？如图

marting

你从 INSERT，entnext是获得模型空间的下一个实体，
INSERT是块引用， 你要想得到块内的实体，你要得到块定义的实体，才能用entnext

Lisphk

"a"是块名(setq e (tblsearch "block" "a"))  
(setq e (cdr (last e)))
一直entnext e 就行了

skyline00227

marting 发表于 2018-11-13 11:23
你从 INSERT，entnext是获得模型空间的下一个实体，
INSERT是块引用， 你要想得到块内的实体，你要得到块 ...

你好！那怎么得到块定义的实体呢？可否详细说一下，谢谢！

skyline00227

Lisphk 发表于 2018-11-13 13:59
"a"是块名(setq e (tblsearch "block" "a"))  
(setq e (cdr (last e)))
一直entnext e 就行了

你好！我试了一下 (setq e (tblsearch "block" "a"))   返回的是nil，我是不是哪里错了？谢谢！

newer

skyline00227 发表于 2018-11-13 21:14
你好！我试了一下 (setq e (tblsearch "block" "a"))   返回的是nil，我是不是哪里错了？谢谢！

你图中有名字为 "a" 的块吗？
要改成你有的块名字

skyline00227

newer 发表于 2018-11-13 21:19
你图中有名字为 "a" 的块吗？
要改成你有的块名字

谢谢，是我弄错了。
我把a改为我的块名 端子_横 后如下：
命令:(setq e (tblsearch "block" "端子_横"))
返回:((0 . "BLOCK") (2 . "端子_横") (70 . 0) (10 0 0 0) (-2 . <图元名: 1ec39760>))
命令:(setq e (cdr (last e)))
返回:<图元名: 1ec39760>
命令:(setq f (entnext e))
返回:nil
命令:(entget e)
返回:((-1 . <图元名: 1ec39760>) (0 . "LWPOLYLINE") (5 . "2BD") (330 . <图元名: 1ec376c8>)
(100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 .
1) (43 . 0) (38 . 0) (39 . 0) (10 0 0) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10
0 -8) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10 5 -8) (40 . 0) (41 . 0) (42 . 0)
(91 . 0) (10 5 0) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (210 0 0
1))
从上面可以看到，能找到 端子_横 这个块，也返回了再制作这个块时的四个点，但是没有插入图纸后动态块的参数，比如插入点，动态块的距离这些参数。如何获得呢？谢谢~！

skyline00227

Lisphk 发表于 2018-11-13 13:59
"a"是块名(setq e (tblsearch "block" "a"))  
(setq e (cdr (last e)))
一直entnext e 就行了

谢谢，是我弄错了。
我把a改为我的块名 端子_横 后如下：
命令:(setq e (tblsearch "block" "端子_横"))
返回:((0 . "BLOCK") (2 . "端子_横") (70 . 0) (10 0 0 0) (-2 . <图元名: 1ec39760>))
命令:(setq e (cdr (last e)))
返回:<图元名: 1ec39760>
命令:(setq f (entnext e))
返回:nil
命令:(entget e)
返回:((-1 . <图元名: 1ec39760>) (0 . "LWPOLYLINE") (5 . "2BD") (330 . <图元名: 1ec376c8>)
(100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 .
1) (43 . 0) (38 . 0) (39 . 0) (10 0 0) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10
0 -8) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (10 5 -8) (40 . 0) (41 . 0) (42 . 0)
(91 . 0) (10 5 0) (40 . 0) (41 . 0) (42 . 0) (91 . 0) (210 0 0
1))
从上面可以看到，能找到 端子_横 这个块，也返回了再制作这个块时的四个点，但是没有插入图纸后动态块的参数，比如插入点，动态块的距离这些参数。如何获得呢？
命令:(setq f (entnext e))
返回:nil  这说明这个图元后面已经没有图元了，是吧，那怎么才能获得动态块的信息呢？
谢谢~！

newer

skyline00227 发表于 2018-11-15 14:36
谢谢，是我弄错了。
我把a改为我的块名 端子_横 后如下：
命令:(setq e (tblsearch "block" "端子_横") ...

动态块，搜索论坛