iJero 发表于 2024-9-16 15:50:46

想把一条Line切割成许多条小尺寸的线段，有什么思路吗

如题。
想把一条Line切割成许多条小尺寸的线段，有什么思路吗

xyp1964 发表于 2024-9-17 12:15:29

本帖最后由 xyp1964 于 2024-9-18 08:01 编辑

(defun c:tt ()
"直线n等分"
(defun dxf (code e) (cdr (assoc code (entget e))))
(setq nn (getint "\n等分数量(10): "))
(or nn (setq nn 10))
(while (and (setq s1 (car (entsel "\n选择直线<退出>: ")))
            (= (DXF 0 s1) "LINE")
         )
    (setq p1 (DXF 10 s1)
          p2 (DXF 11 s1)
          r(angle p1 p2)
          dd (/ (distance p1 p2) nn 1.)
    )
    (entdel s1)
    (repeat nn
      (entmakex (list '(0 . "line")
                      (cons 10 p1)
                      (cons 11 (setq p1 (polar p1 r dd)))
                )
      )
    )
)
(princ)
)

kwok 发表于 2024-9-18 22:33:50

qazxswk 发表于 2024-9-17 22:17
弱弱地问一句，你这个，是不是直接改线型？

不是,是把线切断的.

hubeiwdlue 发表于 2024-9-17 21:54:11

iJero 发表于 2024-9-17 18:18
先谢谢。
这XYP-DXF，代表了什么？

院长的函数，你改成dxf就可以了。

飞雪神光 发表于 2024-9-16 18:56:03

获取起点与直线的方向 polar算点 生成新线段 或者vlax-curve-getPointAtDist计算

kwok 发表于 2024-9-17 11:13:47

本帖最后由 kwok 于 2024-9-18 16:02 编辑

是这样?



iJero 发表于 2024-9-17 12:00:57

对，就是这效果，但比这个密集。

iJero 发表于 2024-9-17 12:33:10

哇，谢谢。

iJero 发表于 2024-9-17 12:45:58

可能是我哪里没看明白，运行后TT没反应。

iJero 发表于 2024-9-17 18:18:30

先谢谢。
这XYP-DXF，代表了什么？

qazxswk 发表于 2024-9-17 22:17:37

kwok 发表于 2024-9-17 11:13
是这样?

弱弱地问一句，你这个，是不是直接改线型？
页: [1] 2
查看完整版本: 想把一条Line切割成许多条小尺寸的线段，有什么思路吗