akram85ing 发表于 2022-7-6 14:44:11

阵列和层

我使用Autocad 2004
使用lisp routin或vba宏
我们如何在一个层上创建一个数组(例如5个raw和5个列),而不是成对的列(第2列和第4列)
并破坏另一层上的列(列1、3和5)
然后,我们以距离d向下或向上移动成对列的内容
非常感谢。

Lee Mac 发表于 2022-7-6 16:39:10

您可以使用以下方法从阵列中收集实体:
 
(归功于ASMI):
 
 

(defun Ent_List_to_End(ent / a)
(reverse
   (if(setq a(entnext ent))
      (cons ent(Ent_List_to_End a)))))
页: [1]
查看完整版本: 阵列和层