社区 › AutoLISP/Visual LISP 编程技术 › 单向递增阵列

荒野孤行 发表于 2015-3-17 22:00:04

单向递增阵列

本帖最后由 荒野孤行 于 2015-4-23 23:07 编辑

请看图片演示，再确定是否需要此功能吧

tangjunasd58 发表于 2015-4-20 15:32:40

阵列方向 可以记忆上次的方向就好了

荒野孤行 发表于 2015-4-23 23:06:06

本帖最后由 荒野孤行 于 2015-4-23 23:07 编辑

tangjunasd58 发表于 2015-4-20 15:32 static/image/common/back.gif
阵列方向 可以记忆上次的方向就好了
增加如下代码即可记录阵列方向角度。

leedun 发表于 2024-1-4 19:38:38

收藏，单向递增阵列

荒野孤行 发表于 2015-5-21 23:08:10

本帖最后由 荒野孤行 于 2015-5-22 19:26 编辑

tangjunasd58 发表于 2015-5-21 13:52 static/image/common/back.gif
(if (not backup_angx)
(setq backup_angx 45)
)

180°镜像是什么意思？太高深的表达，表示语文考试基本及格的我实在理解仁兄的意思。
难道你要求的是从左下角往右上角阵列，但是实际上是从右上角往左下角阵列的？那是因为你选择的角度的时候是从右上角往左下角的。

tangjunasd58 发表于 2015-5-21 13:52:40

荒野孤行 发表于 2015-4-23 23:06 static/image/common/back.gif
增加如下代码即可记录阵列方向角度。

(if (not backup_angx)
(setq backup_angx 45)
)
(initget 4)
(if (not (setq angx (getangle (strcat "\n\n指定阵列方向与X轴的角度<"
                                        (rtos backup_angx 2)
                                          ">"
                                          )
                        )
               )
       )
    (setq angx (angtof (rtos backup_angx)))
)
(setq backup_angx
          (/(* angx 180.0) PI)
)

帮忙看看，为什么我的要与之前的方向是成180的镜像的

荒野孤行 发表于 2015-4-13 23:29:54

本帖最后由 荒野孤行 于 2015-4-13 23:31 编辑

bookish 发表于 2015-4-13 23:08 static/image/common/back.gif
如图所示

实现，点击起点和终点，阵列的物体自动排列出来
第一，阵列的物体不一定是单一的，可能有多个
第二，若阵列的物体是多个，再让用户增加一个指定物体基准点的输入，然后通过距离的计算再取整得出阵列的个数，自行修改下程序就可以实现了。

bookish 发表于 2015-4-13 23:08:32

荒野孤行 发表于 2015-4-13 22:57 static/image/common/back.gif
没明白你说的，物体所在位置就是起点，起点和终点距离相等是什么意思？

如图所示

实现，点击起点和终点，阵列的物体自动排列出来

荒野孤行 发表于 2015-4-13 22:57:23

bookish 发表于 2015-4-13 22:53 static/image/common/back.gif
能否考虑实现在两点之间，物体阵列个数会自己计算布置多少了，第一个物体距离起点的距离（L1）和最后一个物 ...

没明白你说的，物体所在位置就是起点，起点和终点距离相等是什么意思？

bookish 发表于 2015-4-13 22:53:06

能否考虑实现在两点之间，物体阵列个数会自己计算布置多少了，第一个物体距离起点的距离（L1）和最后一个物体距离终点的距离（L2）相等，即L1=L2

查看完整版本: 单向递增阵列