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

xiaomm250

xiaomm250 发表于 2023-4-4 10:49
你的这个简直就是宝库，我从那儿把你代码复制粘贴过来了

2. (vl-load-com)
   
3. ;子函数,布局名列表,按照当前屏幕显示的顺序返回所有布局名称
   
4. (defun c:lolist(/ a lst newlst out x y xx)
   
5.     (setq lst nil);初始赋值
   
6.     ;vlax获取所有的布局的顺序号、布局名称,两列,获得这个列表
   
7.     (vlax-for Layout (vla-get-Layouts(vla-get-ActiveDocument(vlax-get-acad-object)))
   
8.             (setq lst (cons (list (vla-get-TabOrder Layout)(vla-get-name Layout)) lst))
   
9.     )
   
10.     ;重新排序,按照第1列(TabOrder)从小到大的顺序排列
    
11.     (setq newlst (vl-sort lst (function(lambda(x y)(<(car x)(car y))))))
    
12.     ;只取第二列的元素,也就是布局的名称
    
13.     (setq out (mapcar(function(lambda(xx)(nth 1 xx))) newlst))
    
14.     ;第一个是模型名称,因此删除
    
15.     (setq out (cdr out))
    
16. )
    
17. 
    

(vl-load-com)<br /> ;子函数,布局名列表,按照当前屏幕显示的顺序返回所有布局名称<br /> (defun c:lolist(/ a lst newlst out x y xx)<br />     (setq lst nil);初始赋值<br />     ;vlax获取所有的布局的顺序号、布局名称,两列,获得这个列表<br />     (vlax-for Layout (vla-get-Layouts(vla-get-ActiveDocument(vlax-get-acad-object)))<br />             (setq lst (cons (list (vla-get-TabOrder Layout)(vla-get-name Layout)) lst))<br />     )<br />     ;重新排序,按照第1列(TabOrder)从小到大的顺序排列<br />     (setq newlst (vl-sort lst (function(lambda(x y)(<(car x)(car y))))))<br />     ;只取第二列的元素,也就是布局的名称<br />     (setq out (mapcar(function(lambda(xx)(nth 1 xx))) newlst))<br />     ;第一个是模型名称,因此删除<br />     (setq out (cdr out))<br /> )<br /> <br />

我把你的代码改一改！

完善你的代码，让你的代码能独立工作，并且让代码可读性进一步提升！

陨落

这个问题不闭合---从模型空间到图纸空间，不仅涉及到“哪个布局”的问题，还涉及到“哪个视口的问题”。要说这个功能，leemac早就写过了。

vitalgg

xiaomm250 发表于 2023-4-4 11:03
你的*layouts*又是什么东西？我总感觉你这代码不对，
你有你这lst似乎缺乏初值，还有vla-get-taborder， ...

不需要复制函数，只需安装 @lisp ,这些函数就自动加载到CAD了。
*layouts* 是布局的对象集 的 ActiveX

xiaomm250

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

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

选中是能选中了，但是删除不掉

2.           (command"_ERASE" ss "")
   

          (command"_ERASE" ss "")<br />

我用这个命令，删除不掉，
ss是ssget得到的选择集，但是我删除不掉不在当前空间里面的图元

xiaomm250

xiaomm250 发表于 2023-4-4 13:57
选中是能选中了，但是删除不掉

1.             (vla-delete(vlax-ename->vla-object (ssname ss i)))
   

复制代码

用这个能把看见的、看不见的都删除掉！

xiaomm250

陨落 发表于 2023-4-4 12:51
这个问题不闭合---从模型空间到图纸空间，不仅涉及到“哪个布局”的问题，还涉及到“哪个视口的问题”。要 ...

你很牛，居然想到leemac的代码有这个功能，不过他的代码基本都是天书，送给我看我也看不懂