间距LISP

Paul H · 发表于 2022-7-6 09:35:35

你好

有人知道LISP例程可以在对象之间创建空间吗？数组对于一个重复的对象是合适的，如果对象都不同呢？

我花了很多时间手动分隔对象。。。

谢谢

ReMark · 发表于 2022-7-6 09:44:30

间距是随机的吗？

我知道一个叫做Scatter的VLX lisp程序：

“在2D或3D中随机移动选定对象-果园、停车场、群组…”

pBe · 发表于 2022-7-6 09:50:40

间隔的原因是什么？为了清晰起见，只是将实体从下一个实体中移开？

Tharwat · 发表于 2022-7-6 09:54:51

你好，pBe。

假设他有几十个圆圈和文本，并希望以特定的距离将它们彼此分开！所以数组命令不会
允许他同时选择多个实体。

使用移动命令需要很长时间才能完成。

谢谢

pBe · 发表于 2022-7-6 10:00:10

你这么认为塔尔瓦？无论如何，我们要有耐心。我们最好等待OP为我们澄清这一点。

干杯

Tharwat · 发表于 2022-7-6 10:04:45

我想是的，因为他提到的物体给了我灵感，让我说它可能是不同种类的实体。

干杯

BIGAL · 发表于 2022-7-6 10:09:24

不管它是什么，重要的是如何计算包含对象的框的大小，如果你取100个块，做一个10x10的网格，一些块可能会太大并且重叠。

您可以通过多种方式执行此操作：读取文件/Excel，设置框的大小，创建新的布局选项卡放置块或对象，并计算其范围最小值最大值。这会给出框的大小，然后删除所有跳回并添加对象。如果需要多行，请保留x max和y max的记录，但确实可行。对于每个布局选项卡，这绝对可以为extmin extmax得到不同的答案。

alanjt · 发表于 2022-7-6 10:14:17

快一点。我明天会把它清理干净并发布一些代码。

编辑：
啊，去他妈的，这里（提前警告，这太草率了）：

copy

(defun _bboxAndMid (obj / a b l)
 (vla-getboundingbox obj 'a 'b)
 (list (car (setq l (mapcar 'vlax-safearray->list (list a b))))
       (apply '(lambda (a b) (mapcar '(lambda (a b) (/ (+ a b) 2.)) a b)) l)
       (cadr l)
 )
)
(defun ss->lst (ss / i l)
 (if (eq (type ss) 'PICKSET)
   (repeat (setq i (sslength ss))
     (setq l (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) l))
   )
 )
)
(defun c:Test (/ lst p1 g p2 a d)
 (if (and (setq lst (ss->lst (ssget "_:L")))
          (setq p1 (getpoint "\nSpecify first point: "))
     )
   (while (eq 5 (car (setq g (grread T 15 0))))
     (redraw)
     (grdraw p1 (polar (setq p2 (cadr g)) (angle p1 p2) 10000000.) 1 -1)
     (setq p1 (trans p1 1 0)
           p2 (trans p2 1 0)
           a  (angle p1 p2)
           d  (/ (distance p1 p2) (float (length lst)))
     )
     (vla-move (car lst) (vlax-3d-point (cadr (_bboxAndMid (car lst)))) (vlax-3d-point p1))
     (mapcar
       '(lambda (o1 o2 / l)
          (vla-move o2
                    (vlax-3d-point (cadr (_bboxAndMid o2)))
                    (vlax-3d-point
                      (polar (cadr (setq l (_bboxAndMid o1)))
                             a
                             (+ d (distance (car l) (caddr l)))
                      )
                    )
          )
        )
       lst
       (cdr lst)
     )
   )
 )
 (redraw)
 (princ)
)

Paul H · 发表于 2022-7-6 10:18:40

谢谢大家的快速回复！

谢谢你的评论，不过我确实需要有序的间距。。。

是的，pBe，它基本上是布置结构，以便模糊和注释。。。

看起来alnajt的常规动作应该能奏效，谢谢你，伙计。。。

喜欢这个网站！

ReMark · 发表于 2022-7-6 10:23:45

干得好，艾伦。

[编程交流] 间距LISP

发表回复

精选推荐