预修改MLeaderstyle

st788796 · 发表于 2021-1-31 12:10:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

简便方法：
使用 mleaderstyle 设置好样式，然后使用 entget 获取后黏贴到 Lisp 代码中后用

(if (setq lst (dictsearch
(cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")))
"standard"
)
)
(entmod (append lst
(cons (cons 341 (tblobjname "block" "_none"));_用到前面的预设标注块
(cons (cons 342 (tblobjname "style" "standard"))
'((40 . 0.0)
(41 . 0.0)
(42 . 0.0)
(43 . 0.0)
(44 . 0.0) ;_arrowsize
(45 . 1.0)
(46 . 0.18)
(47 . 1.0)
(49 . 1.0)
(90 . 2)
(92 . -2)
(140 . 1.0)
(141 . 0.0)
(142 . 1.0)
(143 . 1.0)
(170 . 2)
(171 . 1)
(172 . 0)
(173 . 1)
(174 . 6)
(175 . 1)
(176 . 0)
(177 . 0)
(178 . 6)
(179 . 2)
(271 . 0)
(272 . 9)
(273 . 9)
(290 . 1)
(291 . 1)
(292 . 0)
(293 . 1)
(294 . 1)
(295 . 0)
(296 . 0)
(297 . 1)
(298 . 1)
)
)
)
)
)
)

(if        (setq lst (dictsearch 
                    (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE"))) 
                    "standard" 
                  ) 
        ) 
      (entmod (append lst 
                      (cons (cons 341 (tblobjname "block" "_none"));_用到前面的预设标注块 
                            (cons (cons 342 (tblobjname "style" "standard")) 
                                  '((40 . 0.0) 
                                    (41 . 0.0) 
                                    (42 . 0.0) 
                                    (43 . 0.0) 
                                    (44 . 0.0) ;_arrowsize 
                                    (45 . 1.0) 
                                    (46 . 0.18) 
                                    (47 . 1.0) 
                                    (49 . 1.0) 
                                    (90 . 2) 
                                    (92 . -2) 
                                    (140 . 1.0) 
                                    (141 . 0.0) 
                                    (142 . 1.0) 
                                    (143 . 1.0) 
                                    (170 . 2) 
                                    (171 . 1) 
                                    (172 . 0) 
                                    (173 . 1) 
                                    (174 . 6) 
                                    (175 . 1) 
                                    (176 . 0) 
                                    (177 . 0) 
                                    (178 . 6) 
                                    (179 . 2) 
                                    (271 . 0) 
                                    (272 . 9) 
                                    (273 . 9) 
                                    (290 . 1) 
                                    (291 . 1) 
                                    (292 . 0) 
                                    (293 . 1) 
                                    (294 . 1) 
                                    (295 . 0) 
                                    (296 . 0) 
                                    (297 . 1) 
                                    (298 . 1) 
                                   ) 
                            ) 
                      ) 
              ) 
      ) 
    )

xvjiex · 发表于 2021-2-3 06:14:01

预修改MLeaderstyle ，感谢分享！

xvjiex · 发表于 2021-2-5 13:56:08

DXF组不正确：(341)

st788796 · 发表于 2021-2-5 16:00:33

xvjiex 发表于 2021-2-5 13:56
DXF组不正确：(341)

看这个帖子
http://bbs.xdcad.net/forum.php?m ... peid%26typeid%3D226

xvjiex · 发表于 2021-2-5 16:54:54

谢谢！明白了。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 预修改MLeaderstyle

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。