p批量插图问题
本帖最后由 scdzwch 于 2016-7-7 20:47 编辑(if (Setp SS (ssget ”Ⅹ” ‘((0 . “MTEXT,TEⅩT,LEADER,DIMENSION”)))) (command "ERASE“ SS “”))加到什么地方可以先删标注再包围盒 写入EXCEL(SetVar “cmdco" 0) (command ".undo""be") (setq fp (open " d:/插入零件.xls" "a")) n (strcat (itoa (length file-list))) (princ filename fp)(princ "\t" fp) (princ distx fp)(princ "\t" fp) (princ disty fp)(princ "\n" fp)
;;插图到一起,来源吴所不及的插计算书源程序,自己做了修改,可多选文件，自动排列插入(colse fp) http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=89231&pid=481612&fromuid=358682
老实说，真没的看明白你写的是什么。我只不过瞎回复。 自贡黄明儒 发表于 2016-7-8 16:24
老实说，真没的看明白你写的是什么。我只不过瞎回复。
(foreach filename file-list
(progn
(command
"_insert"
(strcat filedir "\\" filename)
(list x y 0)
scale
scale
0
)
(progn
(setq newen1 (entlast))
(setq obj (vlax-ename->vla-object newen1))
(vla-getboundingbox obj 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(vl-cmdf ".rectangle" (polar pt1 -3.14 1000) pt2)
(setq newen2 (entlast))
(setq obj (vlax-ename->vla-object newen2))
(vla-put-color obj 8)看下pt2这个点在删除标注后获取，因文件夹下有些有标注，所以写出excel后外型尺寸distx disty就不对，没有标注是正确的。我也这几天领导让我搞的，主要用于激光排版，因激光切割机各品牌太多各编程软件不能共用，通用的只有cAD，并且cAD排完，每个零件还不能封闭式轮廓，要断开0.15mm.这样才能导入各编程软件中去，本人初中文化，学识不够求帮忙。 明经通道高手如云不能解决问题吗？
页:
[1]