内切割刀路引出-源码 随便用

雨的节奏

2. (defun c:NN (/ os olddix pt1 pt2 ptlistx ptlists enx  eny ss2 reg1 reg2)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (if (null DIX)
   
7.   (setq DIX (getdist "\n请输入要连接的距离:"))
   
8.   (progn
   
9.       (setq OLDDIX DIX
   
10.             DIX (getreal (strcat "输入要连接的距离<"(rtos OLDDIX 2 4)">")))
    
11.             (if (null DIX) (setq DIX OLDDIX))
    
12.    )
    
13.   )
    
14.   (command "._undo" "begin")
    
15. (setq pt1 (getpoint "\n输入第一点"))
    
16. (setq pt2 (getpoint pt1 "\n输入下一点"))
    
17. (setq ptlist (list pt1 pt2)
    
18.         angx (angle pt1 pt2))
    
19.   (setq ptlistx
    
20.         (mapcar '(lambda (x) (polar x (+ (/ pi 2) angx) DIX)) ptlist))
    
21.   (setq ptlistx (reverse ptlistx))
    
22.   (setq ptlists (append ptlist ptlistx))
    
23.   (command "pline") (mapcar 'command ptlists) (command "c")
    
24.   (setq enx (entlast))
    
25.   (setq ss (ssget "f" ptlistx))
    
26.   (setq ss (ssdel enx ss))
    
27.   (command "region" enx "")
    
28.   (setq reg1 (entlast))
    
29.   (command "region" ss "")
    
30.   (setq reg2 (entlast))
    
31.   (command "subtract" reg2 "" reg1 "")
    
32.   (setq eny (entlast))
    
33.   (command "explode" eny)
    
34.   (setq ss2 (ssget "p"))
    
35.   (setvar "PEDITACCEPT" 1)
    
36.   (command "PEDIT" ss2  "j" "all" "" "")
    
37.   (setvar "PEDITACCEPT" 0)
    
38.   (command "._undo" "end")
    
39. (setvar "osmode" os)
    
40. (princ "\n完成连线操作")
    
41. (prin1)
    
42. )
    
43. 
    

(defun c:NN (/ os olddix pt1 pt2 ptlistx ptlists enx  eny ss2 reg1 reg2)<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (if (null DIX)<br />   (setq DIX (getdist "\n请输入要连接的距离:"))<br />   (progn <br />       (setq OLDDIX DIX<br />             DIX (getreal (strcat "输入要连接的距离<"(rtos OLDDIX 2 4)">")))<br />             (if (null DIX) (setq DIX OLDDIX))<br />    )<br />   )<br />   (command "._undo" "begin")<br /> (setq pt1 (getpoint "\n输入第一点"))<br /> (setq pt2 (getpoint pt1 "\n输入下一点"))<br /> (setq ptlist (list pt1 pt2)<br />         angx (angle pt1 pt2))<br />   (setq ptlistx <br />         (mapcar '(lambda (x) (polar x (+ (/ pi 2) angx) DIX)) ptlist))<br />   (setq ptlistx (reverse ptlistx))<br />   (setq ptlists (append ptlist ptlistx))<br />   (command "pline") (mapcar 'command ptlists) (command "c")<br />   (setq enx (entlast))<br />   (setq ss (ssget "f" ptlistx))<br />   (setq ss (ssdel enx ss))<br />   (command "region" enx "")<br />   (setq reg1 (entlast))<br />   (command "region" ss "")<br />   (setq reg2 (entlast))<br />   (command "subtract" reg2 "" reg1 "")<br />   (setq eny (entlast))<br />   (command "explode" eny)<br />   (setq ss2 (ssget "p"))<br />   (setvar "PEDITACCEPT" 1)<br />   (command "PEDIT" ss2  "j" "all" "" "")<br />   (setvar "PEDITACCEPT" 0)<br />   (command "._undo" "end")<br /> (setvar "osmode" os)<br /> (princ "\n完成连线操作")<br /> (prin1)<br /> ) <br /> <br />

yoyoho

谢谢! 雨的节奏 分享程序!!!!!

xiangganglv

大佬牛逼。

孙玉坤

怎么不能捕捉端点呢

999999

谢谢大神的分享，有空试试看

999999

大神您好，请问可以实现，在同一个图纸里多次切割，并且切割一次，可以连续的切割其它的吗

xujinhua

好厉害的样子，谢谢你

cyfdean

谢谢! 雨的节奏 分享程序!!!!!