Smile日记2012 发表于 2015-8-12 11:57:38

小白求个多段线等距阵列的LISP

本帖最后由 Smile日记2012 于 2015-8-12 14:06 编辑

如图求个多段线等距阵列的LISP
距离是多短线两点间的直线距离（如图标注的20），不是多锻炼圆弧的弧长距离.
长度可以自己设定，最后一处连接不上可以不处理
多短线包含圆弧和直线
要求阵列块

xyp1964 发表于 2015-8-12 13:02:57

本帖最后由 xyp1964 于 2015-8-13 08:16 编辑

;; tt(曲线绝对距离等分)
;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/Qh7rDf4Y2xwYN（提取码：06ee）
(defun c:tt ()
(xyp-Start)
(if (and (setq s1 (car (entsel "\n选择多段线: ")))
         (xyp-etype s1 "*line")
      )
    (setq ptn (xyp-CurveDivByAbsoluteDist s1 20);距离20
          s2(xyp-Pline ptn nil)
    )
)
(xyp-End)
)

Smile日记2012 发表于 2015-8-12 13:34:59

xyp1964 发表于 2015-8-12 13:02 static/image/common/back.gif


有没有不需要对 需要e派工具箱(XCAD)的支持的单独插件。
工具箱安装的太多了

Smile日记2012 发表于 2015-8-13 08:01:43

大侠呢

llsheng_73 发表于 2015-8-13 10:53:32

本帖最后由 llsheng_73 于 2015-8-13 10:55 编辑

Smile日记2012 发表于 2015-8-13 08:01 http://bbs.mjtd.com/static/image/common/back.gif
大侠呢

从指定曲线e起点o开始，放一个图块b,用指定距离r画圆c，求出c与e的交点表并去掉其中到o点距离小于r的得到pt，对pt按vlax-curve-getparamatpoint从小到大排序后取第一个记为p, 如果(>(vlax-curve-getparamatpoint e p)(vlax-curve-getparamatpoint e o)) 则(setq o p)...直到得不到交点或者交点p在曲线上处于o前端

Smile日记2012 发表于 2015-8-14 08:24:19

本帖最后由 Smile日记2012 于 2015-8-14 08:25 编辑

llsheng_73 发表于 2015-8-13 10:53 static/image/common/back.gif
从指定曲线e起点o开始，放一个图块b,用指定距离r画圆c，求出c与e的交点表并去掉其中到o点距离小于r的得 ...
有没有现成的LISP，加密成FAS也可以,初学，LISP还不是太懂，求帮忙

Smile日记2012 发表于 2015-8-15 08:02:23

求大家帮帮忙，感谢了

Smile日记2012 发表于 2015-8-18 14:47:42

继续求。。大神在哪里

Smile日记2012 发表于 2015-8-28 15:15:30

有乐于助人的大侠在么

Smile日记2012 发表于 2015-9-1 14:42:59

页: [1] 2
查看完整版本: 小白求个多段线等距阵列的LISP