社区 › AutoLISP/Visual LISP 编程技术 › 《相同刷》V2.5源码（增加一把小刷子）

lvbin2ooo 发表于 2013-9-26 18:49:25

及时雨啊，狼版

caogl1965 发表于 2013-9-27 16:57:48

实用性很强的程序，支持！

suliweihslg 发表于 2013-9-28 15:07:59

很给力，对于结构同仁来说大大减少了重复劳动！支持 ！

suliweihslg 发表于 2013-9-28 15:12:18

在板配筋中常要根据板跨的跨度来计算支座负筋的伸出长度，一般是取计算跨度L的1/4长度。可否帮忙编写一个lsp实现如下功能？
功能如下：1、在屏幕上直接用鼠标任意点取两点（点取的时候可同时捕捉，控制方向-----这就像画直线一样可捕捉和控制方向）
          2、以点取的两点的距离作为参数，参与到自定义的函数计算中去，并返回值。
      比如我随便点两点，距离为1200，同时自定义的函数为取1/4，则返回300.
我用过一些cad计算插件，但都是在cad命令行里编写公式，把命令行当计算器使用，这样太不方便。所以就想请您帮个忙编写一个lsp吧。我是做建筑结构的。
   谢谢了哈。贴上源码，也让其他结构同仁体验吧。
   万分感激！

langjs 发表于 2013-9-29 14:52:16

本帖最后由 langjs 于 2013-9-29 15:10 编辑

suliweihslg 发表于 2013-9-28 15:12 static/image/common/back.gif
在板配筋中常要根据板跨的跨度来计算支座负筋的伸出长度，一般是取计算跨度L的1/4长度。可否帮忙编写一个ls ...


这个行么？

(defun c:qq (/ p)
(/ (distance (setq p (getpoint "\n 指定第一点："))(getpoint p "\n 指定第二点：")) 4 )
)

xuyajun1979 发表于 2013-9-29 16:21:10

好程序，楼主很牛

suliweihslg 发表于 2013-9-29 21:22:47

langjs 发表于 2013-9-29 14:52 static/image/common/back.gif
suliweihslg 发表于 2013-9-28 15:12
在板配筋中常要根据板跨的跨度来计算支座负筋的伸出长度，一般是取计 ...

呵呵，很好用。非常感谢！

ORCHI 发表于 2013-9-29 22:59:59

很好的东西，最近正好用上。谢谢！

rhww 发表于 2013-10-1 22:10:25

及时雨啊，狼版

冰之绝恋 发表于 2013-10-2 17:12:51

牛人！!

查看完整版本: 《相同刷》V2.5源码（增加一把小刷子）