没用了哟！

cq4920

模仿imini的门窗工具做的！


感觉来的次数越来越少了！
论坛打开好慢！

感觉还是有点用处的，比如同理一键布置卧室 布置客厅  衣柜布局   插入A2 A3 A4 图框等等 原理应该都一样！

也不知道这种东西有没有需要的！
留言超过50条，上传源码！



有些等不急的有钱大佬可以先行付费下载！
其实留言超过50条的目的就是想看看论坛里有多少活跃的人！
留言超过50条付费下载改成免费！

窗户的这插件个 和论坛里的某个衣柜衣杆的功能好像



涉及2个函数

2. ;两点中
   
3. (defun Mc:Md (pt1 pt2 / ptn)
   
4.   (setq jl (distance pt1 pt2))
   
5.   (setq fx (angle pt1 pt2))
   
6.   (setq ptn (polar pt1 fx (/ jl 2)))
   
7. )

;两点中<br /> (defun Mc:Md (pt1 pt2 / ptn)<br />   (setq jl (distance pt1 pt2))<br />   (setq fx (angle pt1 pt2))<br />   (setq ptn (polar pt1 fx (/ jl 2)))<br /> )

2. ;;40最后生产出的图元
   
3. (defun last_ent (en / ss)
   
4.   (if en
   
5.     (progn
   
6.       (setq ss (ssadd))
   
7.       (while (setq en (entnext en))
   
8.         (if (not (member (cdr (assoc 0 (entget en)))
   
9.                    '("ATTRIB" "VERTEX" "SEQEND")
   
10.                  )
    
11.             )
    
12.           (ssadd en ss)
    
13.         );if
    
14.       );while
    
15.       (if (zerop (sslength ss)) (setq ss nil))
    
16.       ss
    
17.     );progn
    
18.     (ssget "_x")
    
19.   );if
    
20. )
    

;;40最后生产出的图元<br /> (defun last_ent (en / ss)<br />   (if en<br />     (progn<br />       (setq ss (ssadd))<br />       (while (setq en (entnext en))<br />         (if (not (member (cdr (assoc 0 (entget en)))<br />                    '("ATTRIB" "VERTEX" "SEQEND")<br />                  )<br />             )<br />           (ssadd en ss)<br />         );if<br />       );while<br />       (if (zerop (sslength ss)) (setq ss nil))<br />       ss<br />     );progn<br />     (ssget "_x")<br />   );if<br /> )<br />