scdzwch 发表于 2016-7-7 20:54:37

批量插图

(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

yaokui25 发表于 2016-7-8 06:01:43

兄弟，能否把代码贴出来分享一下

自贡黄明儒 发表于 2016-7-8 15:51:29

插完后执行
(command "_.ERASE“ (ssget ”Ⅹ” ‘((0 . “*TEXT,LEADER,*DIMENSION”))) “”)
一次，把尺寸全部删除。

scdzwch 发表于 2016-7-8 16:11:21

自贡黄明儒 发表于 2016-7-8 15:51 static/image/common/back.gif
插完后执行
(command "_.ERASE“ (ssget ”Ⅹ” ‘((0 . “*TEXT,LEADER,*DIMENSION”))) “”)
一次，把 ...

长老，(vl-cmdf ".rectangle" (polar pt1 -1.55 0) pt2)   在尺寸线上了，在后面删除标注 distx disty就不是零件的外型尺寸了。

scdzwch 发表于 2016-7-8 16:12:48

自贡黄明儒 发表于 2016-7-8 15:51 static/image/common/back.gif
插完后执行
(command "_.ERASE“ (ssget ”Ⅹ” ‘((0 . “*TEXT,LEADER,*DIMENSION”))) “”)
一次，把 ...

长老，(vl-cmdf ".rectangle" (polar pt1 -1.55 0) pt2)   在尺寸线上了，在后面删除标注 distx disty就不是零件的外型尺寸了。

scdzwch 发表于 2016-7-8 16:50:14

scdzwch 发表于 2016-7-8 16:12
长老，(vl-cmdf ".rectangle" (polar pt1 -1.55 0) pt2)   在尺寸线上了，在后面删除标注 distx disty就不 ...

(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这个点要在删除标注后获取的

scdzwch 发表于 2016-7-11 11:48:25

明经通道高手如云不能解决问题吗？
页: [1]
查看完整版本: 批量插图