用lisp如何实现把一个图元从模型空间复制到布局空间呀

xiaomm250

vitalgg 发表于 2023-4-3 13:12
选择集变图元列表。然后 foreach 或 mapcar

还有一个问题，比如有
布局1
布局2
布局3
布局4
布局5
布局6
布局7
布局8
布局9
布局10
布局11
布局12
布局13
布局14
布局15
布局16
布局17
布局18
布局19
布局20
这样二十个布局，
我需要删除相同位置的相同图元。
就像一堆纸，我想实现在第一张纸上盖章，然后下面的所有的纸上都盖上这个章，
但是在盖章之前，我需要批量操作，把盖章的位置都擦干净！（把所有的纸上的对应位置都擦干净）

vitalgg

xiaomm250 发表于 2023-4-3 16:02
你好，有办法获取所有的布局的名称吗？
比如有的名称叫“布局1”，有的可能叫“布局a”，
要复制到布局 ...

vitalgg

xiaomm250 发表于 2023-4-3 16:12
还有一个问题，比如有
布局1
布局2

(ssget "x" (list '(0 . "图元类型")'(410 . "布局名") '(-4 . ">,>,*") '(10  X1 Y1 Z1)'(-4 . “<,<,*")'(10  X2 Y2 Z2)))

上面只是个选择示例。只有 "x" 参数可以无视实际是否显示屏幕区域上。
其它需要先把要删除的布局和图元显示到屏幕上，然后用 ssget 选中并删除。

nyistjz

Klein 发表于 2023-4-3 13:56
或者试一试用commond命令的chspace？

正解！

gaics

xiaomm250 发表于 2023-4-3 16:02
你好，有办法获取所有的布局的名称吗？
比如有的名称叫“布局1”，有的可能叫“布局a”，
要复制到布局 ...

(getvar "CTAB")或者(layoutlist)

xiaomm250

gaics 发表于 2023-4-4 07:57
(getvar "CTAB")或者(layoutlist)

1. (layoutlist)

复制代码

这个不错，居然那么容易就获取得到所有的布局名称，缺点是布局名排序有问题

xiaomm250

vitalgg 发表于 2023-4-3 17:58
(ssget "x" (list '(0 . "图元类型")'(410 . "布局名") '(-4 . ">,>,*") '(10  X1 Y1 Z1)'(-4 . “

用CP行不？是这个CP不行吗？

vitalgg

xiaomm250 发表于 2023-4-4 08:47
用CP行不？是这个CP不行吗？

CP 只能选中屏幕上显示的图元，显示区域以外的选不上。
@lisp函数 (layout:list) 可以按显示顺序列表。注意冒号。

xiaomm250

vitalgg 发表于 2023-4-4 09:07
CP 只能选中屏幕上显示的图元，显示区域以外的选不上。
@lisp函数 (layout:list) 可以按显示顺序列表。 ...

2. (defun layout:list (/ a lst)
   
3.     "按照当前屏幕显示的顺序返回所有布局名称"
   
4.     "布局名列表"
   
5.     (vlax-for a *layouts* (setq lst (cons (list (vla-get-taborder a)
   
6.                     (vla-get-name a))
   
7.                 lst)))
   
8.     (cdr (mapcar (quote cadr)
   
9.             (vl-sort lst (quote (lambda (x y)
   
10.                         (< (car x)
    
11.                             (car y))))))))

(defun layout:list (/ a lst)<br />     "按照当前屏幕显示的顺序返回所有布局名称"<br />     "布局名列表"<br />     (vlax-for a *layouts* (setq lst (cons (list (vla-get-taborder a)<br />                     (vla-get-name a))<br />                 lst)))<br />     (cdr (mapcar (quote cadr)<br />             (vl-sort lst (quote (lambda (x y)<br />                         (< (car x)<br />                             (car y))))))))

你的这个简直就是宝库，我从那儿把你代码复制粘贴过来了。


https://gitee.com/atlisp/atlisp-lib/blob/main/src/layout/list.lsp

xiaomm250

vitalgg 发表于 2023-4-4 09:07
CP 只能选中屏幕上显示的图元，显示区域以外的选不上。
@lisp函数 (layout:list) 可以按显示顺序列表。 ...

你的*layouts*又是什么东西？我总感觉你这代码不对，
你有你这lst似乎缺乏初值，还有vla-get-taborder，我怎么找不到相关的帮助？
明经的chm帮助文件，我搜索了，但是找不到！