怎样实现直线两端同时延伸相同长度

马之剑影

怎样实现直线两端同时延伸相同长度

llsheng_73

1. (defun c:tt(/ e p1 p2 d a)
   
2.   (setq d(getdist"延伸距离"))
   
3.   (while(and(setq e(car(entsel"选择直线")))(equal'(0 . "LINE")(assoc 0(entget e))))
   
4.     (entmod(setq e(entget e)
   
5.                  p1(cdr(assoc 10 e))
   
6.                  p2(cdr(assoc 11 e))
   
7.                  e(list(assoc -1 e)(cons 10(polar p1(angle p2 p1)d))(cons 11(polar p2(angle p1 p2)d)))))
   
8.     )
   
9.   )

(defun c:tt(/ e p1 p2 d a)<br />   (setq d(getdist"延伸距离"))<br />   (while(and(setq e(car(entsel"选择直线")))(equal'(0 . "LINE")(assoc 0(entget e))))<br />     (entmod(setq e(entget e)<br />                  p1(cdr(assoc 10 e))<br />                  p2(cdr(assoc 11 e))<br />                  e(list(assoc -1 e)(cons 10(polar p1(angle p2 p1)d))(cons 11(polar p2(angle p1 p2)d)))))<br />     )<br />   )

huxu823

llsheng_73 发表于 2014-12-30 15:14

只能一条条线选择，如果加上可以框选就更好了，不知道怎么改

GDFGFGF

lucas_3333 发表于 2014-12-25 19:24
收币 ，不喜勿下！

大师，能不能改为框选和可以支持多段线吗，

xyp1964

2. ;; tt(直线双向伸缩)
   
3. ;; 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  (提取码 eca7)
   
4. (defun c:tt ()
   
5.   (setq dist (Udist 7 "" "距离<输入或鼠标直接量取>" dist nil))
   
6.   (setq i -1)
   
7.   (if (setq ss (ssget '((0 . "LINE"))))
   
8.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.       (xyp-Lengthen-De s1 dist)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

;; tt(直线双向伸缩)<br /> ;; 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  (提取码 eca7)<br /> (defun c:tt ()<br />   (setq dist (Udist 7 "" "距离<输入或鼠标直接量取>" dist nil))<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (xyp-Lengthen-De s1 dist)<br />     )<br />   )<br />   (princ)<br /> )

vectra

1. (defun extentline (ent extent / ang dxf pt0 pt01 pt1 pt11)
   
2.   (setq        dxf  (entget ent)
   
3.         pt0  (cdr (assoc '10 dxf))
   
4.         pt1  (cdr (assoc '11 dxf))
   
5.         ang  (angle pt0 pt1)
   
6.         pt01 (polar pt0 (- ang pi) extent)
   
7.         pt11 (polar pt1 ang extent)
   
8.         dxf  (subst (cons '10 pt01) (cons '10 pt0) dxf)
   
9.         dxf  (subst (cons '11 pt11) (cons '11 pt1) dxf)
   
10.   )
    
11.   (entmod dxf)
    
12. )

(defun extentline (ent extent / ang dxf pt0 pt01 pt1 pt11)<br />   (setq        dxf  (entget ent)<br />         pt0  (cdr (assoc '10 dxf))<br />         pt1  (cdr (assoc '11 dxf))<br />         ang  (angle pt0 pt1)<br />         pt01 (polar pt0 (- ang pi) extent)<br />         pt11 (polar pt1 ang extent)<br />         dxf  (subst (cons '10 pt01) (cons '10 pt0) dxf)<br />         dxf  (subst (cons '11 pt11) (cons '11 pt1) dxf)<br />   )<br />   (entmod dxf)<br /> )

lucas_3333

收币 ，不喜勿下！

s678z

用LEN命令，选DE，点两端

ysq101

llsheng_73 发表于 2014-12-30 15:14

刚测试了一下。。原来还是可以缩短的。。
我再修改一下搞成批量。。
这算借鉴还是偷窃？？？

前生

取二个点，算角度，更新二个点的坐标。

llsheng_73

ysq101 发表于 2014-12-31 20:16
刚测试了一下。。原来还是可以缩短的。。
我再修改一下搞成批量。。
这算借鉴还是偷窃？？？

黄老师说过：这算研究

ysq101

llsheng_73 发表于 2015-1-1 15:37
黄老师说过：这算研究

谢谢支持....
新手只求渔法
而你的渔法技术相当好...
像高飞,不死猫那种可望不可及..像是在看天书
谢谢你一直以来的指点