[LISP]请大家指点关于自动修剪的程序化

walong

我想制作这样一LISP程序，框选某矩形体后，在选框内的矩形线部分会被自己修剪掉。
请大家帮忙指点下。

tukuitk

以哪个为修剪边界呢？是以选框为边界吗？

walong

对，以框选为边界，效果是当边界确定后，自动将里面的线修剪掉。

浪人

这样的话，精确度怎样控制？

龙龙仔

2. 
   
3. ;;配合expresstools
   
4. ;;BY 龙龙仔(LUCAS)
   
5. (load "extrim.lsp" NIL)
   
6. (defun C:EXTRIM_LAI (/ NA P1 PT1 PT2)
   
7.   (ACET-ERROR-INIT
   
8.     (list
   
9.       (list "cmdecho"        0            "highlight"        0            "regenmode"
   
10.             1                "osmode"    0                "ucsicon"   0
    
11.             "offsetdist"            0                "attreq"    0
    
12.             "plinewid"        0            "plinetype"        1            "gridmode"
    
13.             0                "celtype"   "CONTINUOUS"            "ucsfollow"
    
14.             0                "limcheck"  0
    
15.            )
    
16.       t
    
17.       '(if
    
18.         REDRAW_IT
    
19.         (redraw NA 4)
    
20.        )
    
21.     )
    
22.   )
    
23.   (setvar "osmode" 39)
    
24.   (setq PT1 (getpoint "\n指定第一个角点: "))
    
25.   (setq PT2 (getcorner PT1 "\n指定其它角点: "))
    
26.   (if (and PT1 PT2)
    
27.     (progn
    
28.       (command "_.rectang" PT1 PT2)
    
29.       (setq NA (entlast))
    
30.       (setq P1 (mapcar '(lambda (X Y) (/ (+ X Y) 2.0)) PT1 PT2))
    
31.       (setvar "osmode" 0)
    
32.       (ETRIM NA P1)
    
33.       (ACET-ERROR-RESTORE)
    
34.       (entdel NA)
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )
    

<br /> ;;配合expresstools<br /> ;;BY 龙龙仔(LUCAS)<br /> (load "extrim.lsp" NIL)<br /> (defun C:EXTRIM_LAI (/ NA P1 PT1 PT2)<br />   (ACET-ERROR-INIT<br />     (list<br />       (list "cmdecho"        0            "highlight"        0            "regenmode"<br />             1                "osmode"    0                "ucsicon"   0<br />             "offsetdist"            0                "attreq"    0<br />             "plinewid"        0            "plinetype"        1            "gridmode"<br />             0                "celtype"   "CONTINUOUS"            "ucsfollow"<br />             0                "limcheck"  0<br />            )<br />       t<br />       '(if<br />         REDRAW_IT<br />         (redraw NA 4)<br />        )<br />     )<br />   )<br />   (setvar "osmode" 39)<br />   (setq PT1 (getpoint "\n指定第一个角点: "))<br />   (setq PT2 (getcorner PT1 "\n指定其它角点: "))<br />   (if (and PT1 PT2)<br />     (progn<br />       (command "_.rectang" PT1 PT2)<br />       (setq NA (entlast))<br />       (setq P1 (mapcar '(lambda (X Y) (/ (+ X Y) 2.0)) PT1 PT2))<br />       (setvar "osmode" 0)<br />       (ETRIM NA P1)<br />       (ACET-ERROR-RESTORE)<br />       (entdel NA)<br />     )<br />   )<br />   (princ)<br /> )<br />

walong

我用陈伯雄老师书中的工具找到这个功能了
谢谢各位

龙龙仔

書中會比EXPRESSTOOLS還好,那我也要回家找找!

longer1000

walong 发表于 2004-1-13 12:59
我用陈伯雄老师书中的工具找到这个功能了
谢谢各位

能否共享下，或者发longer1000@sina.com，谢谢

GDFGFGF

好，谢谢，收藏了，都是热心人啊

yoyoho

谢谢! 龙龙仔 分享程序!!!!!