图像批量裁剪.LSP

发布于：2010-11-12 11:04:12 来自：建筑设计/CAD下载及教程 [复制转发]

图像批量裁剪.LSP;|'((-1 . <图元名: 7e135ea0> ) (0 . "IMAGE") (330 . <图元名: 7e135cf8> ) (5 . "94") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbRasterImage" ) (90 . 0) (10 14.2588 17.2157 0.0) (11 0.0104167 0.0 0.0) (12 6.37816e-019 0.0104167 0.0 ) (13 1024.0 768.0 0.0) (340 . <图元名: 7e135e90> ) (70 . 7) (280 . 0) (281 . 50) (282 . 50) (283 . 0) (360 . <图元名: 7e135e98> ) (71 . 1) (91 . 2) (14 -0.5 -0.5 0.0) (14 1023.5 767.5 0.0) )

'((-1 . <图元名: 7e135ea0> ) (0 . "IMAGE") (330 . <图元名: 7e135cf8> ) (5 . "94") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbRasterImage" ) (90 . 0) (10 14.2588 17.2157 0.0) (11 0.0104167 0.0 0.0) (12 6.37816e-019 0.0104167 0.0 ) (13 1024.0 768.0 0.0) (340 . <图元名: 7e135e90> ) (70 . 7) (280 . 1) (281 . 50) (282 . 50) (283 . 0) (360 . <图元名: 7e135e98> ) (71 . 1) (91 . 2) (14 0.0919184 123.242 0.0) (14 1023.5 749.188 0.0) )

|;(defun c:tt () (setq i 0) (if (setq ss (ssget '((0 . "IMAGE")))) (repeat (sslength ss) (setq en (ssname ss i) ent (entget en) ent (subst '(280 . 1) (assoc 280 ent) ent) ent (subst '(14 0.0919184 123.242 0.0) '(14 -0.5 -0.5 0.0) ent) ent (subst '(14 1023.5 749.188 0.0) '(14 1023.5 767.5 0.0) ent) ) (entmod ent) (setq i (1+ i)) ) ) (princ))

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（2 ）

只看楼主我来说两句抢地板

longer1000 沙发

2011-09-29 14:49:29
回复举报
赞同0
lishaohua616 板凳

一串代码楼主是程序开发的吗不懂

2010-11-13 14:31:13
回复举报
赞同0