xyp1964 发表于 2011-8-17 19:01:15

闭合PL线内、外修剪


;; 闭合PL线内、外修剪
;; 需要e派工具箱的支持 http://xyp1964.ys168.com
(defun c:tt (/ s1 p0 p1 dd s2 ptn pt)
(CMDLA0)
(if (and (setq s1 (car (entsel "\n选择<退出>: ")))
    (= (xyp-get-dxf 0 s1) "LWPOLYLINE")
    (= (xyp-get-dxf 70 s1) 1)
    (XYP-CURVE-CLOSE s1)
    (setq p0 (xyp-get-CurveMidPoint s1))
    (setq p1 (getpoint p0 "\n方向位置点<退出>: "))
      )
    (progn
      (setq dd (distance (vlax-curve-getclosestpointto s1 p1) p1))
      (command "offset" dd s1 p1 "")
      (setq s2 (entlast)
   ptn (xyp-get-Vertexs s2 0)
   ptn (cons (last ptn) ptn)
      )
      (xyp-erase s2)
      (repeat 10
(command "_.trim" s1 "" "f")
(foreach pt ptn
   (command pt)
)
(command "" "")
      )
    )
)
(CMDLA1)
)
‘

npcer 发表于 2024-8-21 17:59:10

好像挺有意思的这个

lijunfa12345 发表于 2024-9-25 14:41:19

谢谢，很适用。。。。。

yk1216 发表于 2024-8-31 14:21:01

谢谢分享了

1548845899 发表于 2011-8-17 19:31:13

z073445 发表于 2011-8-17 20:52:27

怎么显示函数错误

cnks 发表于 2011-8-17 22:24:55

动画里面好像顶上一条短线没有修剪掉

xyp1964 发表于 2011-8-17 22:42:19

cnks 发表于 2011-8-17 22:24 static/image/common/back.gif
动画里面好像顶上一条短线没有修剪掉

顶上的一条短线与剪切线无关

xiaxiang 发表于 2011-8-17 22:46:16

院长如果能适当放出些通用函数就好了

gbhsu 发表于 2011-8-17 23:04:30

放出些通用函数就好了 放

1548845899 发表于 2011-8-18 09:22:20

cnks 发表于 2011-8-18 14:53:35

xyp1964 发表于 2011-8-17 22:42 static/image/common/back.gif
顶上的一条短线与剪切线无关

是么？第一次剪切留下外部，内部有一个短线没剪掉，第二次剪切留下内部，外部的全部被剪掉了，好像不合理

xyp1964 发表于 2011-8-18 18:08:48

cnks 发表于 2011-8-18 14:53 static/image/common/back.gif
是么？第一次剪切留下外部，内部有一个短线没剪掉，第二次剪切留下内部，外部的全部被剪掉了，好像不合理 ...

第一次剪切留下外部，内部有一个短线没剪掉——那是可控、故意的
页: [1] 2 3
查看完整版本: 闭合PL线内、外修剪