[分享]学院派工具箱，近期拟一元抛售！

yewuqiang

一元抛售啥意思啊，

daidong013

好工具！我要下载！~~

jfxia

    我也要个，不知版主的自动标注线性尺寸有没有在工具箱里，

daidong013

有新的去楼主的网络U盘下吧！~~

daidong013

什么时候可以放送一些注册码呀！~~

zxmmelly

正在期待中

xyp1964

2. 
   
3. ;;窗帘线
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (setq s0 (entlast))
   
7.   (command "pline")
   
8.   (while (/= 0 (getvar "cmdactive"))
   
9.     (command pause)
   
10.   )
    
11.   (xyp-Curve2Blx (entlast) 80 60 0)
    
12.   (setq        ptn (reverse (xyp-get-Vertexs (entlast) 0))
    
13.         p2  (car ptn)
    
14.         p1  (cadr ptn)
    
15.         rad (angle p1 p2)
    
16.         p3  (polar p2 rad 200)
    
17.         p3a (polar p3 rad -80)
    
18.   )
    
19.   (command "pline" p2 "w" 0 0 p3a "w" 50 0 p3 "")
    
20.   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)
    
21.   (CMDLA1)
    
22. )

<br /> ;;窗帘线<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq s0 (entlast))<br />   (command "pline")<br />   (while (/= 0 (getvar "cmdactive"))<br />     (command pause)<br />   )<br />   (xyp-Curve2Blx (entlast) 80 60 0)<br />   (setq        ptn (reverse (xyp-get-Vertexs (entlast) 0))<br />         p2  (car ptn)<br />         p1  (cadr ptn)<br />         rad (angle p1 p2)<br />         p3  (polar p2 rad 200)<br />         p3a (polar p3 rad -80)<br />   )<br />   (command "pline" p2 "w" 0 0 p3a "w" 50 0 p3 "")<br />   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)<br />   (CMDLA1)<br /> )

edsion24

不知道那个是最新的。。。
怎么有的要钱 有的不要呢 呵呵

edsion24

怎么用呢。。。 怎么加载出问题

zhb236623

坐等放送，期待中。。。。。