修剪完善下

2012淡然之马

就像这个样子的

crazylsp

我在08里面是正常的，我的CAD选项关闭了右键菜单，不行的话你找一下别人写的，修改一下即可

i3ku

crazylsp 发表于 2013-5-23 15:37
我在08里面是正常的，我的CAD选项关闭了右键菜单，不行的话你找一下别人写的，修改一下即可

我在08里也出现同杨的问题

crazylsp

噢，有时间重新修改了，有什么改进的地方大家多提只要不是太难{:soso_e100:}，修改完善提升品质 ;;T E 修剪 延伸, 右键退出 李劲松原创于2013 509 修改于2013 524

1. (defun C:4S ()
   
2.   ( setq loop t )
   
3.   ( while loop
   
4.   ( setq g ( grread t 7 0 ) )
   
5.   ( if  ( and ( = ( car g ) 2) ( = ( cadr g ) 116 ) ( member ( cadr g ) '( 101 116 ) ) )
   
6.    ( progn
   
7.      ( setq ss ( ssget ) pt ( getpoint "拾取点<" ) ptlst ( list pt )  )
   
8.        ( while  ( setq pt ( getpoint ( car ptlst ) "拾取点<" ) )
   
9.          ( grdraw pt ( car ptlst ) 1 )
   
10.          ( setq ptlst ( append  ptlst ( list pt ) ) )
    
11.           ( if ( = ( length ptlst ) 2 )
    
12.            ( progn
    
13.             ( command "trim"  ss"" "F"  ( car ptlst ) ( cadr ptlst )  "" "" )
    
14.             ( setq ptlst ( cdr ptlst )  )
    
15.            )
    
16.          )
    
17.        )
    
18.     )
    
19.   )
    
20.   ( if ( and ( = (car g) 2) ( = ( cadr g ) 101 ) ( member ( cadr g ) '( 101 116 ) ) )
    
21.    ( progn
    
22.      ( setq ss ( ssget ) pt ( getpoint "拾取点<" ) ptlst ( list pt )  )
    
23.        ( while  ( setq pt ( getpoint ( car ptlst ) "拾取点<" ) )
    
24.          ( grdraw pt ( car ptlst ) 3 )
    
25.          ( setq ptlst ( append  ptlst ( list pt ) ) )
    
26.           ( if ( = ( length ptlst ) 2 )
    
27.            ( progn
    
28.             ( command "extend"  ss"" "F"  ( car ptlst ) ( cadr ptlst )  "" "" )
    
29.             ( setq ptlst ( cdr ptlst )  )
    
30.            )
    
31.          )
    
32.        )
    
33.     )
    
34.   )
    
35.   (if  ( = ( car g ) 25) ( setq loop nil ) )
    
36. );for
    
37. )

(defun C:4S ()<br />   ( setq loop t )<br />   ( while loop<br />   ( setq g ( grread t 7 0 ) )<br />   ( if  ( and ( = ( car g ) 2) ( = ( cadr g ) 116 ) ( member ( cadr g ) '( 101 116 ) ) )<br />    ( progn<br />      ( setq ss ( ssget ) pt ( getpoint "拾取点<" ) ptlst ( list pt )  )<br />        ( while  ( setq pt ( getpoint ( car ptlst ) "拾取点<" ) ) <br />          ( grdraw pt ( car ptlst ) 1 ) <br />          ( setq ptlst ( append  ptlst ( list pt ) ) )<br />           ( if ( = ( length ptlst ) 2 ) <br />            ( progn <br />             ( command "trim"  ss"" "F"  ( car ptlst ) ( cadr ptlst )  "" "" )<br />             ( setq ptlst ( cdr ptlst )  )<br />            )<br />          ) <br />        )<br />     )<br />   )<br />   ( if ( and ( = (car g) 2) ( = ( cadr g ) 101 ) ( member ( cadr g ) '( 101 116 ) ) )<br />    ( progn<br />      ( setq ss ( ssget ) pt ( getpoint "拾取点<" ) ptlst ( list pt )  )<br />        ( while  ( setq pt ( getpoint ( car ptlst ) "拾取点<" ) ) <br />          ( grdraw pt ( car ptlst ) 3 ) <br />          ( setq ptlst ( append  ptlst ( list pt ) ) )<br />           ( if ( = ( length ptlst ) 2 ) <br />            ( progn <br />             ( command "extend"  ss"" "F"  ( car ptlst ) ( cadr ptlst )  "" "" )<br />             ( setq ptlst ( cdr ptlst )  )<br />            )<br />          ) <br />        )<br />     )<br />   )<br />   (if  ( = ( car g ) 25) ( setq loop nil ) )<br /> );for<br /> )

龙吟舞

有版本限制吗？我07的不能用，命令调用不了