请教切图问题？

lclclc

大量图幅要切割，但只用CAD剪切命令显然工作量太大。一直想用LISP编一个能通过画矩形框，从而把框外的图形剪切干净。因是初学，试过几回没用成功。望高手赐教。

yaopx0782

实际上只要调用trim命令时，在选择要剪切的线段时，首先输入"f"，然后再画一个矩形框问题可以解决。

zhang007

快捷工具有一个扩展剪栽命令,可以一试

lclclc

用TRIM命令,再加F。不行我试过，只能剪去一边。不能剪成矩形。

ZZXXQQ

用下面程序试试。程序在R14上调试通过。

1. (DEFUN C:MERASE (/ PT1 PT2 X1 X2 Y1 Y2 XMIN YMIN XMAX YMAX P1 P2 P3 P4)
2.   (SETVAR "BLIPMODE" 0)
3.   (SETVAR "CMDECHO" 0)
4.   (SETQ OLDOS (GETVAR "OSMODE"))
5.   (SETVAR "OSMODE" 0)
6.   (SETQ PT1 (GETPOINT "\nFirst point :")
7.              PT2 (GETCORNER PT1 "\nSecond point :"))
8.   (SETQ X1 (CAR PT1)   X2 (CAR PT2)
9.              Y1 (CADR PT1) Y2 (CADR PT2))
10.   (SETQ XMIN (1- (MIN X1 X2)) XMAX (1+ (MAX X1 X2))
11.              YMIN (1- (MIN Y1 Y2)) YMAX (1+ (MAX Y1 Y2)))
12.   (SETQ P1 (LIST XMIN YMIN)
13.              P2 (LIST XMIN YMAX)
14.              P3 (LIST XMAX YMAX)
15.              P4 (LIST XMAX YMIN))
16.   (COMMAND "RECTANG" PT1 PT2 "TRIM" "L" "" "F" P1 P2 "" "")
17.   (COMMAND "TRIM" "P" "" "F" P2 P3 "" "")
18.   (COMMAND "TRIM" "P" "" "F" P3 P4 "" "")
19.   (COMMAND "TRIM" "P" "" "F" P4 P1 "" "")
20.   (COMMAND "ERASE" "P" "")
21.   (SETVAR "OSMODE" OLDOS)
22.   (SETVAR "BLIPMODE" 1)
23.   (SETVAR "CMDECHO" 1)
24.   (PRINC)
25. )(princ "\nType MERASE to start.")
26. (princ)

复制代码

yuanyuan68

用TR应该可以，你将所选择的用矩形筐起来，然后以矩形为参照边剪切外边的所有边那不就可以了。应该没有问题的

lclclc

谢谢ZZXXQQ和其他的朋友不胜感激.我们是朋友VERY MUCH

oyxx1023

ZZXXQQ发表于2005-2-18 0:41:00用下面程序试试。程序在R14上调试通过。






(DEFUN C:MERASE (/ PT1 PT2 X1 X2 Y1 Y2 XMIN YMIN XMAX YMAX P1 P2 P3 P4)        (SETVAR \"BLIPMODE\"


你这个程序用来剪距这个矩形一个图形单

aaddff

extrim（需安装express)

CADghost

http://www.mjtd.com/mcdown/list.asp?id=512 到这里来下载我的程序,安装好以后输入命令"JD",再按步骤进行就OK了