![c30810315d4488abb3886140bd0d276c.gif](https://i-blog.csdnimg.cn/blog_migrate/d0f8db7d2bfcddc23126a0156e688259.gif)
![818b69a1c3c8daa2588c85bb49a91f9d.gif](https://i-blog.csdnimg.cn/blog_migrate/1bbe9e8a01c9e09eb46bec4048aa753b.gif)
CAD批量制作增减挂钩竣工图
;;;;功能:文字与线对齐
;;;;需要小懒人CAD插件支持
(defun c:tt();;;;;
(if (and
(setq ss (ssget ":S"(list (cons 0 "TEXT,*POLYLINE"))))
(= (sslength ss) 2)
)
(progn
(setq ent (ssname ss 0))
(setq ent1 (ssname ss 1))
(cond
((and
(= (xlr_dxf 0 ent) "TEXT")