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

pezyl

xtjd 发表于 2017-12-14 08:00
如果只是单一的零件外形，没有三视图，可以实现；如果零件外形带有侧视图，则排列最好遵循以零件形心

行业需要做工件展开图，都是单一外形，绘图员绘图时每个工件展开图之间会间隔一定距离(比如100以上)，车间实操加工又需要把每个图另存为单个的CAD文件便于设备加工，着实浪费时间，所以求助

WKSTUDIO

同意Andyhon的看法
个人想法：
开发这样类似的专用批处理程序的目的是提高效率，减少重操作和避免人工动作的差错。
1、作为专用程序，完全可以给它增加一些特定的条件，譬如：加个图框或是特定图层上的矩形外框。以把问题简化、程序简化，同时减少无谓的程序运行时间。按本人的做法，套图框（块，块的插入基点为图框左下角，让程序自行SSGET图框进行自动批处理。处理过的图形删除图框或者加上已经处理的标记。）。
2、零件编号放置在特定图层上，避免与零件图中的其他标注之类的文字产生冲突，也利于检查零件无编号和零件重复编号的错误，可以用对话框提醒。
3、输出文件到特定的临时目录，避免覆盖其它文件的错误发生。

pezyl

xtjd 发表于 2017-12-12 10:56
(defun c:wq2(/ f1 f2 f3 f4 o1 o2 ss)
  (setvar "cmdecho" 0)
  (princ "\n请选择需要导出的图元:")

请测试

laorenhao999

xtjd 发表于 2017-12-12 10:56
(defun c:wq2(/ f1 f2 f3 f4 o1 o2 ss)
  (setvar "cmdecho" 0)
  (princ "\n请选择需要导出的图元:")

请教下，用2007CAD下面这句自动保存成2007 DXF的版本，怎么保存成2000DXF版本呢
(command ".wblock" "D:\Documents\新块.dxf"  "" (list 0 0) ss "")
保存的可以这样写，保存的语句是这样的
(command "saveas" "dxf" "v" "R12" "16" ss)

669423907

;输出  http://bbs.mjtd.com/thread-101127-1-1.html
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=173164