多重引线属性设置

熊心万丈

本人想通过lisp实现对多重引线的一个属性修改。比如：ctrl+1 打开属性框，找到“文字”——“连接位置-左”，就是这个属性，已查到是（173.n） ，我想是用lisp来实现这个属性由“第一行顶板”和“最后一行底部”这两个值的切换。
(173 . 0)第一行顶部
(173 . 1) 第一行中间
(173 . 2) 文字中间
(173 . 3) 最后一行中间
(173 . 4) 最后一行底部
(173 . 5) 最后一行底部加下划线
(173 . 6) 第一行加下划线
(173 . 7) 第一行底部
(173 . 8) 所有文件加下划线

希望大神能帮我，小弟初学lisp ，不太会用这个。。。谢谢！

熊心万丈

(defun C:22 ()
(graphscr)
(setq ss (ssget))
(setq x (cons 173 6))
(setq ent (entget (ssname ss 0)))
(setq entnew (subst x (assoc 173 ent) ent))
(entmod entnew)
(setq entgai (entget (ssname ss 0)))
(princ)
)
我试图用这个来修改。
可是结果却不行。
返回的三个变量是。。。
ent
((-1 . <图元名: 7ffffb2a110>) (0 . "MULTILEADER") (330 . <图元名: 7ffffb03a10>) (5 . "197B9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0S-BEAM-TEXT") (100 . "AcDbMLeader") (270 . 2) (300 . "CONTEXT_DATA{") (40 . 100.0) (10 -59545.3 2742.65 0.0) (41 . 250.0) (140 . 100.0) (145 . 100.0) (174 . 1) (175 . 0) (176 . 0) (177 . 0) (290 . 1) (304 . "\\pxsm0.6;26WKL-V01(5)\\P400x750\\P\U+008410@100/200(4)\\P4\U+008425; 4\U+008425\\PN4\U+008414\\P梁顶：F+3.000m") (11 0.0 0.0 1.0) (340 . <图元名: 7ffffb0d1d0>) (12 -59445.3 2892.65 0.0) (13 1.0 0.0 0.0) (42 . 0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 1) (172 . 5) (91 . -1073741824) (141 . 0.0) (92 . 0) (291 . 0) (292 . 0) (173 . 0) (293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 -59545.3 4936.39 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . "LEADER{") (290 . 1) (291 . 1) (10 -59745.3 2742.65 0.0) (11 1.0 0.0 0.0) (90 . 0) (40 . 200.0) (304 . "LEADER_LINE{") (10 -59545.3 4542.65 0.0) (91 . 0) (170 . 1) (92 . -1056964608) (340 . <图元名: 0>) (171 . -2) (40 . 0.0) (341 . <图元名: 0>) (93 . 0) (305 . "}") (271 . 0) (303 . "}") (272 . 9) (273 . 9) (301 . "}") (340 . <图元名: 7ffffb29940>) (90 . 283652) (170 . 1) (91 . -1073741824) (341 . <图元名: 7ffffb03940>) (171 . -2) (290 . 1) (291 . 0) (41 . 2.0) (342 . <图元名: 7ffffb29950>) (42 . 1.0) (172 . 2) (343 . <图元名: 7ffffb0d1d0>) (173 . 1) (95 . 0) (174 . 1) (175 . 0) (92 . -1073741824) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0) (43 . 0.0) (176 . 0) (293 . 0) (294 . 0) (178 . 0) (179 . 1) (45 . 100.0) (271 . 0) (272 . 9) (273 . 9))
_$ entnew
((-1 . <图元名: 7ffffb2a110>) (0 . "MULTILEADER") (330 . <图元名: 7ffffb03a10>) (5 . "197B9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0S-BEAM-TEXT") (100 . "AcDbMLeader") (270 . 2) (300 . "CONTEXT_DATA{") (40 . 100.0) (10 -59545.3 2742.65 0.0) (41 . 250.0) (140 . 100.0) (145 . 100.0) (174 . 1) (175 . 0) (176 . 0) (177 . 0) (290 . 1) (304 . "\\pxsm0.6;26WKL-V01(5)\\P400x750\\P\U+008410@100/200(4)\\P4\U+008425; 4\U+008425\\PN4\U+008414\\P梁顶：F+3.000m") (11 0.0 0.0 1.0) (340 . <图元名: 7ffffb0d1d0>) (12 -59445.3 2892.65 0.0) (13 1.0 0.0 0.0) (42 . 0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 1) (172 . 5) (91 . -1073741824) (141 . 0.0) (92 . 0) (291 . 0) (292 . 0) (173 . 6) (293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 -59545.3 4936.39 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . "LEADER{") (290 . 1) (291 . 1) (10 -59745.3 2742.65 0.0) (11 1.0 0.0 0.0) (90 . 0) (40 . 200.0) (304 . "LEADER_LINE{") (10 -59545.3 4542.65 0.0) (91 . 0) (170 . 1) (92 . -1056964608) (340 . <图元名: 0>) (171 . -2) (40 . 0.0) (341 . <图元名: 0>) (93 . 0) (305 . "}") (271 . 0) (303 . "}") (272 . 9) (273 . 9) (301 . "}") (340 . <图元名: 7ffffb29940>) (90 . 283652) (170 . 1) (91 . -1073741824) (341 . <图元名: 7ffffb03940>) (171 . -2) (290 . 1) (291 . 0) (41 . 2.0) (342 . <图元名: 7ffffb29950>) (42 . 1.0) (172 . 2) (343 . <图元名: 7ffffb0d1d0>) (173 . 1) (95 . 0) (174 . 1) (175 . 0) (92 . -1073741824) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0) (43 . 0.0) (176 . 0) (293 . 0) (294 . 0) (178 . 0) (179 . 1) (45 . 100.0) (271 . 0) (272 . 9) (273 . 9))
_$ entgai
((-1 . <图元名: 7ffffb2a110>) (0 . "MULTILEADER") (330 . <图元名: 7ffffb03a10>) (5 . "197B9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0S-BEAM-TEXT") (100 . "AcDbMLeader") (270 . 2) (300 . "CONTEXT_DATA{") (40 . 100.0) (10 -59545.3 2742.65 0.0) (41 . 250.0) (140 . 100.0) (145 . 100.0) (174 . 1) (175 . 0) (176 . 0) (177 . 0) (290 . 1) (304 . "\\pxsm0.6;26WKL-V01(5)\\P400x750\\P\U+008410@100/200(4)\\P4\U+008425; 4\U+008425\\PN4\U+008414\\P梁顶：F+3.000m") (11 0.0 0.0 1.0) (340 . <图元名: 7ffffb0d1d0>) (12 -59445.3 2892.65 0.0) (13 1.0 0.0 0.0) (42 . 0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 1) (172 . 5) (91 . -1073741824) (141 . 0.0) (92 . 0) (291 . 0) (292 . 0) (173 . 0) (293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 -59545.3 4936.39 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . "LEADER{") (290 . 1) (291 . 1) (10 -59745.3 2742.65 0.0) (11 1.0 0.0 0.0) (90 . 0) (40 . 200.0) (304 . "LEADER_LINE{") (10 -59545.3 4542.65 0.0) (91 . 0) (170 . 1) (92 . -1056964608) (340 . <图元名: 0>) (171 . -2) (40 . 0.0) (341 . <图元名: 0>) (93 . 0) (305 . "}") (271 . 0) (303 . "}") (272 . 9) (273 . 9) (301 . "}") (340 . <图元名: 7ffffb29940>) (90 . 283652) (170 . 1) (91 . -1073741824) (341 . <图元名: 7ffffb03940>) (171 . -2) (290 . 1) (291 . 0) (41 . 2.0) (342 . <图元名: 7ffffb29950>) (42 . 1.0) (172 . 2) (343 . <图元名: 7ffffb0d1d0>) (173 . 1) (95 . 0) (174 . 1) (175 . 0) (92 . -1073741824) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0) (43 . 0.0) (176 . 0) (293 . 0) (294 . 0) (178 . 0) (179 . 1) (45 . 100.0) (271 . 0) (272 . 9) (273 . 9))
_$

熊心万丈

希望把左边下面的多重引线修改为右边的样子

熊心万丈

没有人能搞定吗？

52幕墙设计

有两个173的

dingtiedt

熊心万丈 发表于 2013-7-16 10:51
没有人能搞定吗？

楼主，我也想知道，有没有解决？

edata

CAD2011测试通过
(vla-put-TextLeftAttachmentType(vlax-ename->vla-object (car(entsel))) 6)

dingtiedt

edata 发表于 2015-7-7 18:22
CAD2011测试通过
(vla-put-TextLeftAttachmentType(vlax-ename->vla-object (car(entsel))) 6)

你好，如果要批量修改多重引线基线长度，图元信息列表中有三个(40 . _)，想要选择第二个(40 . _),请问怎么选择又怎么修改。在此先谢谢！

edata

1. (vla-put-DoglegLength(vlax-ename->vla-object (car(entsel))) 10)

(vla-put-DoglegLength(vlax-ename->vla-object (car(entsel))) 10)

dingtiedt

edata 发表于 2015-7-11 16:49

太谢谢你了，真的有用