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

iJero

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

xyp1964

1. (defun c:tt ()
   
2.   "直线n等分"
   
3.   (defun dxf (code e) (cdr (assoc code (entget e))))
   
4.   (setq nn (getint "\n等分数量(10): "))
   
5.   (or nn (setq nn 10))
   
6.   (while (and (setq s1 (car (entsel "\n选择直线<退出>: ")))
   
7.               (= (DXF 0 s1) "LINE")
   
8.          )
   
9.     (setq p1 (DXF 10 s1)
   
10.           p2 (DXF 11 s1)
    
11.           r  (angle p1 p2)
    
12.           dd (/ (distance p1 p2) nn 1.)
    
13.     )
    
14.     (entdel s1)
    
15.     (repeat nn
    
16.       (entmakex (list '(0 . "line")
    
17.                       (cons 10 p1)
    
18.                       (cons 11 (setq p1 (polar p1 r dd)))
    
19.                 )
    
20.       )
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

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

kwok

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

不是,是把线切断的.

hubeiwdlue

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

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

飞雪神光

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

kwok

是这样?

iJero

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

iJero

哇，谢谢。

iJero

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

iJero

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

qazxswk

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

弱弱地问一句，你这个，是不是直接改线型？