雨的节奏 发表于 2019-6-20 11:30:12

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

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


yoyoho 发表于 2019-6-20 12:48:50

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

xiangganglv 发表于 2019-6-26 16:17:08

大佬牛逼。

孙玉坤 发表于 2019-7-22 12:40:46

怎么不能捕捉端点呢

999999 发表于 2020-8-29 02:48:56

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

999999 发表于 2021-6-3 11:37:40

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

xujinhua 发表于 2021-6-3 20:34:55

好厉害的样子，谢谢你

cyfdean 发表于 2021-6-16 09:44:26


谢谢! 雨的节奏 分享程序!!!!!
页: [1]
查看完整版本: 内切割刀路引出-源码 随便用