多条连续直线廷长求思路!!!!!或原码

ysq101

如图所示:        如何用纯LISP批量廷长图中所示线段(没学到VL函数)
差点忘了说是两端同时廷长

eachy

是 Line 还是 Pline ?

newer

你发帖的语气怎么那么熟呢？ 是不是那个袋鼠熊朋友？

ysq101

newer 发表于 2013-6-24 23:02
你发帖的语气怎么那么熟呢？ 是不是那个袋鼠熊朋友？

不是的....为什么会这么问呢?

eachy

延伸 Pline 的，Line 也可以，但是你的图片是几根连续 Line ，这个需要很多判断，你可以参照下面这个程序修改

1. (defun c:tt (/ ss d e pts)
   
2.   (if (and (setq ss (ssget '((0 . "lwpolyline"))))
   
3.     (setq d (getdist "\n延伸长度: "))
   
4.       )
   
5.     (progn
   
6.       (xdrx_begin)
   
7.       (xdrx_setsstodb ss 0)
   
8.       (while (setq e (xdrx_getentdata 0))
   
9. (setq pts (xdrx_entity_getstretchpoint e))
   
10. (xdrx_entity_movestretchpoint
    
11.    e
    
12.    (mapcar '-
    
13.     (polar (car pts) (angle (cadr pts) (car pts)) d)
    
14.     (car pts)
    
15.    )
    
16.    0
    
17. )
    
18. (xdrx_entity_movestretchpoint
    
19.    e
    
20.    (mapcar
    
21.      '-
    
22.      (polar (last pts) (angle (cadr (reverse pts)) (last pts)) d)
    
23.      (last pts)
    
24.    )
    
25.    (1- (length pts))
    
26. )
    
27.       )
    
28.       (xdrx_end)
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )

(defun c:tt (/ ss d e pts)<br />   (if (and (setq ss (ssget '((0 . "lwpolyline"))))<br />     (setq d (getdist "\n延伸长度: "))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br /> (setq pts (xdrx_entity_getstretchpoint e))<br /> (xdrx_entity_movestretchpoint<br />    e<br />    (mapcar '-<br />     (polar (car pts) (angle (cadr pts) (car pts)) d)<br />     (car pts)<br />    )<br />    0<br /> )<br /> (xdrx_entity_movestretchpoint<br />    e<br />    (mapcar<br />      '-<br />      (polar (last pts) (angle (cadr (reverse pts)) (last pts)) d)<br />      (last pts)<br />    )<br />    (1- (length pts))<br /> )<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )

ysq101

给个思路吧

newer

PLINE线的末端 ssget f 求到园，然后求末端延伸和圆的两个交点，去掉不在多段线上的那个交点，就得到远端的交点了。修改多段线顶点到远端就是了。

ysq101

newer 发表于 2013-6-25 02:25
PLINE线的末端 ssget f 求到园，然后求末端延伸和圆的两个交点，去掉不在多段线上的那个交点，就得到远端的 ...

圆本来是没有的

newer

ysq101 发表于 2013-6-25 13:31
圆本来是没有的

那就简单了，

距离是多少要你输入吧？

PL两端各修改顶点就是了。

ysq101

newer 发表于 2013-6-25 13:43
那就简单了，

距离是多少要你输入吧？

右边的直线改顶点座标数好改,,,,左边的斜线该如何改呢????

eachy

先 Pedit 为一根，修改 起点 终点 后再 explode

newer

ysq101 发表于 2013-6-25 19:16
右边的直线改顶点座标数好改,,,,左边的斜线该如何改呢????

图中出去园的线，都是 多段线吧？

eachy

newer 发表于 2013-6-25 19:51
图中出去园的线，都是 多段线吧？

他说的都是 Line ，连在一起，外观像一个 pline

crazylsp

找到直线的端点，分析出不共点的端点，计算延长的这种端点，更新entmod {:soso_e189:}

ysq101

eachy 发表于 2013-6-25 19:58
他说的都是 Line ，连在一起，外观像一个 pline

可以做成PLINE