【源码】动态画拉筋

goldwheat

这个源码，应好好学习一下，可能用得到。支持楼主的分享，多谢。

ponww

版主真利害
可不可再作一個一邊90度一邊135度
謝謝

张和平

ponww 发表于 2013-6-6 16:40
版主真利害
可不可再作一個一邊90度一邊135度
謝謝

可根据源码自行修改。。。。

mj0000

程序不错，刚好需要

pengfei2010

强烈支持 ，学习了 谢谢

bai2000

点钢筋也放出来吧

张和平

bai2000 发表于 2013-6-13 08:46
点钢筋也放出来吧

这个没有唉。。。

springwillow

1. 点筋命令探索者自带的，实在没必要写吧，DJ命令，不过还是给一个例子吧！

复制代码

2. ;;;绘点筋plst为点表
   
3. (defun makedj (plst / p1 p2)
   
4.   (foreach p plst
   
5.     (setq p1 (list (- (car p) 25) (cadr p)))
   
6.     (setq p2 (list (+ (car p) 25) (cadr p)))
   
7.     (entmake (list '(0 . "LWPOLYLINE")
   
8.        '(100 . "AcDbEntity")
   
9.        '(67 . 0)
   
10.        '(410 . "Model")
    
11.        '(8 . "COLU_DE_REIN")
    
12.        '(100 . "AcDbPolyline")
    
13.        '(90 . 2)
    
14.        '(70 . 1)
    
15.        '(62 . 1)
    
16.        '(43 . 50.0)
    
17.        '(38 . 0.0)
    
18.        '(39 . 0.0)
    
19.        (cons 10 p1)
    
20.        '(42 . 1.0)
    
21.        (cons 10 p2)
    
22.        '(42 . 1.0)
    
23.        '(210 0.0 0.0 1.0)
    
24.        )
    
25.     )
    
26.   )
    
27. )

;;;绘点筋plst为点表<br /> (defun makedj (plst / p1 p2)<br />   (foreach p plst<br />     (setq p1 (list (- (car p) 25) (cadr p)))<br />     (setq p2 (list (+ (car p) 25) (cadr p)))<br />     (entmake (list '(0 . "LWPOLYLINE")<br />        '(100 . "AcDbEntity")<br />        '(67 . 0)<br />        '(410 . "Model")<br />        '(8 . "COLU_DE_REIN")<br />        '(100 . "AcDbPolyline")<br />        '(90 . 2)<br />        '(70 . 1)<br />        '(62 . 1)<br />        '(43 . 50.0)<br />        '(38 . 0.0)<br />        '(39 . 0.0)<br />        (cons 10 p1)<br />        '(42 . 1.0)<br />        (cons 10 p2)<br />        '(42 . 1.0)<br />        '(210 0.0 0.0 1.0)<br />        )<br />     )<br />   )<br /> )

清风明月名字

谢谢楼主的分享！收藏备用。

张和平

springwillow 发表于 2013-6-13 09:03

哈哈，，，是是是。。。本来这个拉近箍筋也是编着玩玩的，，，