定距打断于点

xzklk · 发表于 2020-7-30 21:37

本帖最后由 xzklk 于 2020-11-15 23:06 编辑

打断于点要求：输入距离后鼠标点选图形，靠近端点那边打断。如图程序执行输入距离为1，点选最上面直线右边则从直线右边端点距离1位置打断，点左边则从左边打断。希望程序最好还能支持多段线，打断距离能带记忆，能循环使用。谢谢了！

xj6019 · 发表于 2020-7-30 21:37

感觉你表述的不是很清晰，矩形？单线？相交线？等等各种情况都得说明一下吧

xzklk · 发表于 2020-9-4 02:18

应该发错地方了，没人愿意回答

czb203 · 发表于 2020-9-4 07:49

插眼，收藏下

xzklk · 发表于 2020-11-15 22:45

发错地方了

xzklk · 发表于 2023-3-27 14:25

(defun c:R4 (/ en JG pt1 pt2 pt3 d_end ang );直边变三段
(command "ucs" "w")
  (if (not offset_1) (progn (setq offset_1 0.5)) (setq offset_12 offset_1))
  (setq offset_12 (getreal (strcat "\n输入偏移值<" (rtos offset_1) ">:"))) ;输入的实数
  (if (not offset_12) (setq offset_12 offset_1) (setq offset_1 offset_12))
(while (setq en (ssname (ssget '((0 . "LINE"))) 0))
(if en (progn
  (setq JG  offset_12) ;(setq JG ( * offset_12 0.5))
  (setq pt3 (vlax-curve-getEndPoint en))
  (setq pt1 (vlax-curve-getStartPoint en))
  (setq d_end (vlax-curve-getDistAtPoint en pt3))
  (setq pt2 (vlax-curve-getpointatdist en (/ d_end 2)))
  (setq ang (ANGLE pT3 PT1)
   PC1 (polar pt1 (+ ang (* 1.0 pi)) JG )
   PC3 (polar pt3 (+ ang (* 2.0 pi)) JG ))
(makeline pt3 PC3)(makeline pt1 PC1)
(makeline pc1 PC3) (entdel en) ))
))

账号		自动登录	找回密码
密码			注册

定距打断于点

最佳答案

相关帖子