求款根据选取矩形批量分图分大图的LSP，请高手赐教，十分感谢！

王鹏_pBZlo

矩形截图

1. (defun c:jt( / p1 p2 jt osm)        ;;截图
   
2.         (setq osm (getvar "osmode"))
   
3.         (setvar "osmode" 0)
   
4.         (setq p1 (getpoint "\n指定截图第一个角点:"))
   
5.         (setq p2 (getcorner p1 "\n指定截图另一个角点:"))
   
6.         (command "copybase" p1 "c" p1 p2 "")
   
7.         (command "pasteblock" p1)
   
8.         (command "xclip" (entlast) "" "N" "R" p1 p2)
   
9.         (setq jt (entlast))
   
10.         (command "rectangle" p1 p2)
    
11.         (command "move" jt (entlast) "" p1 pause)
    
12.         (setvar "osmode" osm)
    
13.         (princ)
    
14. )
    

(defun c:jt( / p1 p2 jt osm)        ;;截图<br />         (setq osm (getvar "osmode"))<br />         (setvar "osmode" 0)<br />         (setq p1 (getpoint "\n指定截图第一个角点:"))<br />         (setq p2 (getcorner p1 "\n指定截图另一个角点:"))<br />         (command "copybase" p1 "c" p1 p2 "")<br />         (command "pasteblock" p1)<br />         (command "xclip" (entlast) "" "N" "R" p1 p2)<br />         (setq jt (entlast))<br />         (command "rectangle" p1 p2)<br />         (command "move" jt (entlast) "" p1 pause)<br />         (setvar "osmode" osm)<br />         (princ)<br /> )<br />

相信自己666

王鹏_pBZlo 发表于 2019-12-8 21:51
XCLIP方法处理

老师，lsp源码能不能分享下，谢谢

相信自己666

王鹏_pBZlo 发表于 2019-12-8 21:51
XCLIP方法处理

老师，lsp源码能不能分享下，谢谢

xdzcp

王鹏_pBZlo 发表于 2019-12-8 21:51
XCLIP方法处理

很强大 分好的怎么炸开了又还原了，还有是闭合的区域 分好后能否自动闭合 。谢谢。

marting

相信自己666 发表于 2019-9-23 17:27
用布局的话导致图纸太大了，电脑运行不了，也很无奈啊

布局怎么会导致图纸大？
你裁剪到模型空间才会导致大吧

小小的人

王鹏_pBZlo 发表于 2019-12-6 09:55
命令:CUTDWG

会有部分的直线不能剪切掉 能不能完善下    就是一条线  两端都超过矩形框的话  只能剪切一边  另一边就留着了     能不能改的矩形框外不留  全部剪切

qxlonmsn

王鹏_pBZlo 发表于 2019-12-8 21:51
XCLIP方法处理

大神就是牛!

ffyyqq

谢谢分享，很实用