[求助]：自动拆图问题

szx025 · 发表于 2008-10-27 11:51:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

画图时喜欢把几张图放在一起画，但归档时要一张图一个文件名的存盘，有高手能编程完成上述工作吗

Underway · 发表于 2008-10-27 11:55:17

需要样本 & 充分的说明

szx025 · 发表于 2008-10-27 14:36:47

(defun c:bb()
  (command "osnap" "off")
(princ "\n选择图号")
(setq s (ssget))
  (setq th 0)
  (setq xxx 0)
   (setq name (ssname s 0))
   (setq a (entget name))
   (setq t1 (assoc '0 a))
   (setq t1 (cdr t1))
   (if (= t1 "TEXT") (PROGN
      (setq tx (assoc '1 a))
      (setq tx (cdr tx))
      (setq llen (strlen tx))
      (setq llen (- llen 2))
      (setq tx1 (substr tx 1 llen))
      ))
  (while (/= xxx nil)
(if (< th 10)(setq thh (strcat "0" (rtos th 2 0))))
(if (>= th 10)(setq thh (rtos th 2 0)))
(setq name1 (strcat tx1 thh))
(setq th (+ th 1))
(setq p1 (getpoint"\n 输入第一点:"))
(setq xxx p1)
(if (/= p1 nil)(progn
      (setq p2 (getpoint"\n 输入第二点:"))
      (setq mmm (strcat "e:/" "plot" "/" name1))
      (command "-wblock" mmm "" p1 "w" p1 p2 "")
      (command "oops")
      )
  )
)
这是在网上下了一个拆图程序，运行出错。
另：我记得xyp1964也写过这样的程序，现在找不到了

feiyvt · 发表于 2008-10-27 16:40:07

不懂不会

791221ni · 发表于 2008-11-2 16:08:26

以前写过一个,图框是属性块,由块名来得到整图中此块的数量和每个块其中的零件名称属性来拆分成一个零件一张.DWG文件.不过你可以自己想想,再到晓东论坛上找些相关程序,就可以组成自己想要的程序了.

黄河之水 · 发表于 2008-11-3 20:10:13

写块保存出去就好了？
。。。。。不懂楼主意思。。

holypower · 发表于 2008-11-4 11:28:02

我公司买了一个商业软件vba开发的可以自动拆分图纸，不过是加密的，大侠可以研究一下。

lee-hk · 发表于 2008-11-11 12:02:27

分图的情况比较复杂了，需要具体分析。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：自动拆图问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子