没用了哟！
本帖最后由 cq4920 于 2020-6-22 16:25 编辑模仿imini的门窗工具做的！
感觉来的次数越来越少了！
论坛打开好慢！
感觉还是有点用处的，比如同理一键布置卧室 布置客厅衣柜布局 插入A2 A3 A4 图框等等 原理应该都一样！
也不知道这种东西有没有需要的！
留言超过50条，上传源码！
有些等不急的有钱大佬可以先行付费下载！
其实留言超过50条的目的就是想看看论坛里有多少活跃的人！
留言超过50条付费下载改成免费！
窗户的这插件个 和论坛里的某个衣柜衣杆的功能好像
涉及2个函数
;两点中
(defun Mc:Md (pt1 pt2 / ptn)
(setq jl (distance pt1 pt2))
(setq fx (angle pt1 pt2))
(setq ptn (polar pt1 fx (/ jl 2)))
)
;;40最后生产出的图元
(defun last_ent (en / ss)
(if en
(progn
(setq ss (ssadd))
(while (setq en (entnext en))
(if (not (member (cdr (assoc 0 (entget en)))
'("ATTRIB" "VERTEX" "SEQEND")
)
)
(ssadd en ss)
);if
);while
(if (zerop (sslength ss)) (setq ss nil))
ss
);progn
(ssget "_x")
);if
)