扩展数据到行和块

akis · 发表于 2022-7-5 22:40:40

嘿
我试图将扩展数据插入结构化布线计划，问题是插座（开始）和配线架（结束）是我用线路连接的块，我希望线路和2个块上的扩展数据相同。有没有一种方法可以将扩展数据插入到3个扩展数据之一，并自动插入到另2个扩展数据？
我想到了group命令，但当我选择插入扩展数据时，这3个实体中的每一个都是独立的。

谢谢

heschr · 发表于 2022-7-5 23:09:11

嗨，akis，

这只能通过AutoLisp和reactor实现，但这是一个高级主题。前往Autolisp论坛，试试你的运气。

akis · 发表于 2022-7-5 23:14:33

在哪里阅读以及如何阅读方面有什么帮助吗？
我想没有简单的方法将整个事情分组，并将其全部选择在一起以添加数据？

Tharwat · 发表于 2022-7-5 23:40:30

这里是一个选择线的示例，应该选择与选定线相交的块，并且必须只选择两个块。

注意：如果将块名称添加到选择集，则会更准确。

copy


(defun _Prepare:to:xdata (/ s e ss)
 (if (and (setq s (car (entsel "\n Select a line :")))
             (eq (cdr (assoc 0 (setq e (entget s)))) "LINE")
             (setq ss (ssget "_F"
                             (list (cdr (assoc 10 e)) (cdr (assoc 11 e)))
                             '((0 . "INSERT"))
                      )
             )
             (eq (sslength ss) 2)
        )
   (list s (ssname ss 0) (ssname ss 1)) 
 )
)
(_Prepare:to:xdata)

akis · 发表于 2022-7-5 23:41:07

thx mate，
我试过了，效果很好。。。
现在的问题是，大多数行实际上都是LWpolyline，所以我试图实现我在Afralisp上找到的代码(http://www.afralisp.net/autolisp/tutorials/polylines-and-blocks.php)
从多段线的端点执行ssget。

[编程交流] 扩展数据到行和块

发表回复

精选推荐