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

xiaomm250

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



注意是用lisp，而不是人工手工操作！

Klein

或者试一试用commond命令的chspace？

vitalgg

xiaomm250 发表于 2023-4-3 13:32
缺一个子函数

pickset:to-list

https://gitee.com/atlisp/atlisp- ... pickset/to-list.lsp

我提供的代码中，有:号的都是@lisp函数库中的函数。
https://gitee.com/atlisp/atlisp-lib

全部开源，实时可查源码
安装@lisp后在CAD命令行输入 (fun:src '函数名) 即可查看。





关注微信公众号 CAD应用云 。输入功能说明查函数。





将以下代码复制到 CAD命令行，直接安装 @lisp

1. (progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

vitalgg

复制的话就是新建 改原图元的410组码的值为 布局名。然后 entmake 即可。
移动的话不能用 entmod 这个。

1. (defun c:lll ()
   
2.   (setq ent (car (entsel "tolayer1")))
   
3.   (entmake
   
4.     (subst (cons 410 "布局1")(assoc 410 (entget ent)) (entget ent))))

(defun c:lll ()<br />   (setq ent (car (entsel "tolayer1")))<br />   (entmake <br />     (subst (cons 410 "布局1")(assoc 410 (entget ent)) (entget ent))))

xiaomm250

vitalgg 发表于 2023-4-3 10:09
复制的话就是新建 改原图元的410组码的值为 布局名。然后 entmake 即可。
移动的话不能用 entmod 这个。
...

谢谢，有时间我自己试一试！

xiaomm250

vitalgg 发表于 2023-4-3 10:09
复制的话就是新建 改原图元的410组码的值为 布局名。然后 entmake 即可。
移动的话不能用 entmod 这个。
...

有办法把一个选择集都搞到布局里面吗？比如我选择了很多线、文字，然后他们都在一个选择集，
然后需要复制粘贴到布局里面

vitalgg

1. (defun c:lll ()
   
2.   (foreach ent (pickset:to-list (ssget))
   
3.     (entmake
   
4.       (subst (cons 410 "布局1") (assoc 410 (entget ent)) (entget ent))
   
5.     )
   
6.   )
   
7. )
   
8. (defun c:lll ()
   
9.   (mapcar
   
10.     '(lambda (ent)
    
11.        (entmake
    
12.          (subst (cons 410 "布局1") (assoc 410 (entget ent)) (entget ent))
    
13.        )
    
14.      )
    
15.     (pickset:to-list (ssget))
    
16.   )
    
17. )

(defun c:lll () <br />   (foreach ent (pickset:to-list (ssget)) <br />     (entmake <br />       (subst (cons 410 "布局1") (assoc 410 (entget ent)) (entget ent))<br />     )<br />   )<br /> )<br /> (defun c:lll () <br />   (mapcar <br />     '(lambda (ent) <br />        (entmake <br />          (subst (cons 410 "布局1") (assoc 410 (entget ent)) (entget ent))<br />        )<br />      )<br />     (pickset:to-list (ssget))<br />   )<br /> )

选择集变图元列表。然后 foreach 或 mapcar

xiaomm250

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

缺一个子函数

pickset:to-list


看来还是我自己写吧

xiaomm250

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

看来你写的代码比较多，我还是自己搞一个循环之类的，虽然比较笨，但是程序相对容易理解之类的！

xiaomm250

vitalgg 发表于 2023-4-3 14:50
https://gitee.com/atlisp/atlisp- ... pickset/to-list.lsp

我提供的代码中，有:号的都是@lisp函数库 ...

你好，有办法获取所有的布局的名称吗？
比如有的名称叫“布局1”，有的可能叫“布局a”，
要复制到布局，首先得知道他们的名称