p批量插图问题

scdzwch

(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

自贡黄明儒

老实说，真没的看明白你写的是什么。我只不过瞎回复。

scdzwch

自贡黄明儒 发表于 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.这样才能导入各编程软件中去，本人初中文化，学识不够求帮忙。

scdzwch

明经通道高手如云不能解决问题吗？