goldwheat 发表于 2013-6-6 12:41:23

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

ponww 发表于 2013-6-6 16:40:23

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

张和平 发表于 2013-6-7 08:55:47

ponww 发表于 2013-6-6 16:40 static/image/common/back.gif
版主真利害
可不可再作一個一邊90度一邊135度
謝謝

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

mj0000 发表于 2013-6-12 10:54:22

程序不错，刚好需要

pengfei2010 发表于 2013-6-12 22:01:09

强烈支持 ，学习了 谢谢

bai2000 发表于 2013-6-13 08:46:51

点钢筋也放出来吧

张和平 发表于 2013-6-13 08:51:53

bai2000 发表于 2013-6-13 08:46 static/image/common/back.gif
点钢筋也放出来吧

这个没有唉。。。

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

本帖最后由 springwillow 于 2013-6-13 09:11 编辑

点筋命令探索者自带的，实在没必要写吧，DJ命令，不过还是给一个例子吧！;;;绘点筋plst为点表
(defun makedj (plst / p1 p2)
(foreach p plst
    (setq p1 (list (- (car p) 25) (cadr p)))
    (setq p2 (list (+ (car p) 25) (cadr p)))
    (entmake (list '(0 . "LWPOLYLINE")
       '(100 . "AcDbEntity")
       '(67 . 0)
       '(410 . "Model")
       '(8 . "COLU_DE_REIN")
       '(100 . "AcDbPolyline")
       '(90 . 2)
       '(70 . 1)
       '(62 . 1)
       '(43 . 50.0)
       '(38 . 0.0)
       '(39 . 0.0)
       (cons 10 p1)
       '(42 . 1.0)
       (cons 10 p2)
       '(42 . 1.0)
       '(210 0.0 0.0 1.0)
       )
    )
)
)

清风明月名字 发表于 2013-6-13 09:33:21

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

张和平 发表于 2013-6-13 10:54:33

springwillow 发表于 2013-6-13 09:03 static/image/common/back.gif


哈哈，，，是是是。。。本来这个拉近箍筋也是编着玩玩的，，，
页: 1 2 [3] 4 5
查看完整版本: 【源码】动态画拉筋