定距打断于点

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

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

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

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

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

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

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

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

插眼，收藏下

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

发错地方了

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

(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) ))
))

luoposhusheng7 · 发表于 2024-11-9 12:20:16

6楼的代码要是可以根据鼠标点击的位置判断是打断直线的哪一端就完美了

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

定距打断于点

最佳答案

相关帖子