Andyhon
发表于 2017-11-27 13:59:16
批量打印出自前辈的大作非我所有
(未知有源码否?得用挖矿的精神去寻宝!)
司徒妙嘉
发表于 2017-11-27 14:39:21
Andyhon 发表于 2017-11-27 13:59
批量打印出自前辈的大作非我所有
(未知有源码否?得用挖矿的精神去寻宝!)
:funk::funk::funk::funk:
llsheng_73
发表于 2017-11-27 15:59:24
wblock命令输出的是DWG文件，其中图元也是一个一个的
Kye
发表于 2017-11-27 19:21:31
二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制到新文件里，电脑登录不了明经网站，要不帮你做了
yoyoho
发表于 2017-11-27 20:02:38
Kye 发表于 2017-11-27 19:21
二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制 ...
[原创]原位置COPY物件到其它圖檔
http://bbs.mjtd.com/thread-34825-1-1.html
情迷法兰西0
发表于 2017-11-27 21:28:39
http://bbs.ivlisp.com/data/attachment/forum/201710/10/191548brq3c7qi4vc3l7vl.gif我看下
司徒妙嘉
发表于 2017-11-28 09:43:33
情迷法兰西0 发表于 2017-11-27 21:28
我看下
很像,很像! 兄弟,我就指望你了!:P
司徒妙嘉
发表于 2017-11-28 10:01:10
Kye 发表于 2017-11-27 19:21
二楼龙龙仔前辈的程序应该是可以的啊，先做个空白的模板文件，复制模板文件为新文件，然后将选择的东西复制 ...
我是看不懂, 好半天才把括号给对起来
(defun C:COPY_2_OTHER_DWG (/ DOC LST N NEWDWG SS NAME)
(vl-load-com)
(if
(and
(setq SS (ssget (list (cons 410 (getvar "ctab")) (cons 0 (strcat "~" "VIEWPORT")))))
(setq NAME (getfiled "Start DWG" (getvar "ACADPREFIX") "dwg" 8))
(setq NAME (findfile NAME))
)
(progn
(setq N -1 DOC (vla-get-activedocument (vlax-get-acad-object))
NEWDWG (vla-open (vla-get-documents (vlax-get-acad-object)) NAME)
)
(repeat
(sslength SS)
(setq LST
(cons (vlax-ename->vla-object (ssname SS (setq N (1+ N)))) LST)
)
)
(vla-copyobjects DOC
(vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length LST)))) LST)
(if
(equal (getvar "ctab") "Model")
(vla-get-modelspace NEWDWG)
(vla-get-paperspace NEWDWG)
)
)
(vla-saveas NEWDWG NAME acnative)
(vla-close NEWDWG)
(vlax-release-object DOC)
(vlax-release-object EWDWG)
)
)
(princ)
)
水吉空
发表于 2017-11-28 10:23:20
可以实现！
ygp820601
发表于 2017-11-28 11:22:13
这个应该很简单的吧。