裁图、切图工具(支持UCS)

Lispboy

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

清风明月10

谢谢楼主的分享！很有意思的软件，收藏备用。

yjf247606

很好的工具，只是权限不够:)

phoevana

楼主，提个小意见。有时候一个dwg上有很多副图，我只想裁剪其中一幅的一小块，怎么实现呢？能实现裁剪两个封闭多段线之间的区域吗？

Lisphk

phoevana 发表于 2013-7-31 12:32
楼主，提个小意见。有时候一个dwg上有很多副图，我只想裁剪其中一幅的一小块，怎么实现呢？能实现裁剪两个 ...

毕竟裁图这些不是总用吧，裁前，把需要的CTTL+C下，裁剪完，再CTRL+V下，变通解决下。

Lispboy

phoevana 发表于 2013-7-31 12:32
楼主，提个小意见。有时候一个dwg上有很多副图，我只想裁剪其中一幅的一小块，怎么实现呢？能实现裁剪两个 ...

感谢提供建议，一楼程序修改了，现在适应你说的情况了，分三种情况裁图

1、 内部
2、 外部
3、 内外之间

下载测试下。

Lispboy

phoevana 发表于 2013-7-31 12:32
楼主，提个小意见。有时候一个dwg上有很多副图，我只想裁剪其中一幅的一小块，怎么实现呢？能实现裁剪两个 ...

程序需要一个新的函数，到下面帖子下载

http://bbs.xdcad.net/thread-669930-1-1.html

zxz2003@qq.com

很强大哦。下一个试试，谢谢！:)

renyong119

谢谢楼主的分享！很有意思的软件，收藏备用

junkio

我以前有个低级别的裁图工具，唉  不能适应新版本了

renyong119

有二维多段线的不能裁剪

Lispboy

renyong119 发表于 2013-9-2 14:59
有二维多段线的不能裁剪

那就转为LWPOLYLINE，晓东工具箱里面有转换工具或者简单的用下面代码：

1. (defun c:tt ()
   
2.   (if (setq ss (ssget "x" '((0 . "polyline"))))
   
3.     (progn
   
4.       (setq len (sslength ss))
   
5.       (xdrx_setsstodb ss 0)
   
6.       (while (setq e (xdrx_getentdata 0))
   
7.          (xdrx_polyline_ConvertFrom e)
   
8.       )
   
9.       (princ (strcat "\n成功转换了" (itoa len) "个2D多段线到LWPolyline."))
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )
    
14. 
    

(defun c:tt ()<br />   (if (setq ss (ssget "x" '((0 . "polyline"))))<br />     (progn<br />       (setq len (sslength ss))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />          (xdrx_polyline_ConvertFrom e)<br />       )<br />       (princ (strcat "\n成功转换了" (itoa len) "个2D多段线到LWPolyline."))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

renyong119

填充图案也不能裁剪

Lispboy

renyong119 发表于 2013-9-2 15:29
填充图案也不能裁剪

暂时没考虑填充。

renyong119

不知道是我操作不对还是哪里原因！裁剪出来的图，乱七八糟的