能否用lisp实现快速将选中的图元另存一个cad文件

Andyhon

批量打印出自前辈的大作非我所有
(未知有源码否?得用挖矿的精神去寻宝!)

司徒妙嘉

Andyhon 发表于 2017-11-27 13:59
批量打印出自前辈的大作非我所有
(未知有源码否?得用挖矿的精神去寻宝!)

llsheng_73

wblock命令输出的是DWG文件，其中图元也是一个一个的

Kye

二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制到新文件里，电脑登录不了明经网站，要不帮你做了

yoyoho

Kye 发表于 2017-11-27 19:21
二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制 ...

[原创]原位置COPY物件到其它圖檔
http://bbs.mjtd.com/thread-34825-1-1.html   

情迷法兰西0

我看下

司徒妙嘉

情迷法兰西0 发表于 2017-11-27 21:28
我看下

很像,很像! 兄弟,我就指望你了!:P

司徒妙嘉

Kye 发表于 2017-11-27 19:21
二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制 ...

我是看不懂, 好半天才把括号给对起来

2. (defun C:COPY_2_OTHER_DWG (/ DOC LST N NEWDWG SS NAME)
   
3.         (vl-load-com)
   
4.         (if
   
5.                 (and
   
6.                         (setq SS (ssget (list (cons 410 (getvar "ctab")) (cons 0 (strcat "~" "VIEWPORT")))))
   
7.                         (setq NAME (getfiled "Start DWG" (getvar "ACADPREFIX") "dwg" 8))
   
8.                         (setq NAME (findfile NAME))
   
9.                 )
   
10.                 (progn
    
11.                         (setq N -1 DOC (vla-get-activedocument (vlax-get-acad-object))
    
12.                                 NEWDWG (vla-open (vla-get-documents (vlax-get-acad-object)) NAME)
    
13.                         )
    
14.                         (repeat
    
15.                                 (sslength SS)
    
16.                                 (setq LST
    
17.                                         (cons (vlax-ename->vla-object (ssname SS (setq N (1+ N)))) LST)
    
18.                                 )
    
19.                         )
    
20.                         (vla-copyobjects DOC
    
21.                                 (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length LST)))) LST)
    
22.                                 (if
    
23.                                         (equal (getvar "ctab") "Model")
    
24.                                         (vla-get-modelspace NEWDWG)
    
25.                                         (vla-get-paperspace NEWDWG)
    
26.                                 )
    
27.                         )
    
28.                         (vla-saveas NEWDWG NAME acnative)
    
29.                         (vla-close NEWDWG)
    
30.                         (vlax-release-object DOC)
    
31.                         (vlax-release-object EWDWG)
    
32.                 )
    
33.         )
    
34.         (princ)
    
35. )

(defun C:COPY_2_OTHER_DWG (/ DOC LST N NEWDWG SS NAME)<br />         (vl-load-com)<br />         (if<br />                 (and <br />                         (setq SS (ssget (list (cons 410 (getvar "ctab")) (cons 0 (strcat "~" "VIEWPORT")))))<br />                         (setq NAME (getfiled "Start DWG" (getvar "ACADPREFIX") "dwg" 8))<br />                         (setq NAME (findfile NAME))<br />                 )<br />                 (progn <br />                         (setq N -1 DOC (vla-get-activedocument (vlax-get-acad-object))<br />                                 NEWDWG (vla-open (vla-get-documents (vlax-get-acad-object)) NAME)<br />                         )<br />                         (repeat<br />                                 (sslength SS)<br />                                 (setq LST<br />                                         (cons (vlax-ename->vla-object (ssname SS (setq N (1+ N)))) LST)<br />                                 )<br />                         )<br />                         (vla-copyobjects DOC<br />                                 (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length LST)))) LST)<br />                                 (if<br />                                         (equal (getvar "ctab") "Model")<br />                                         (vla-get-modelspace NEWDWG)<br />                                         (vla-get-paperspace NEWDWG)<br />                                 )<br />                         )<br />                         (vla-saveas NEWDWG NAME acnative)<br />                         (vla-close NEWDWG)<br />                         (vlax-release-object DOC)<br />                         (vlax-release-object EWDWG)<br />                 )<br />         )<br />         (princ)<br /> )

水吉空

可以实现！

ygp820601

这个应该很简单的吧。