关于CAD中直线批量改长度问题~

luxuelong

有没有方法在CAD中批量选中长度相同或不相同的直线或多段线，然后全部改为另一个长度值！

 

 不改变原直线或多段线的位置，（不是用缩放命令）切直线不平行，有90°有180°等！

luxuelong

高手在那里

Andyhon

貌似不难,但命题不清

 

不改变原直线或多段线的位置 !?
改为另一个长度值 / 位置如何不变法?
最好上附加说明的(*.Dwg)文件

luojie1768

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=88358&extra=&highlight=%D6%B1%CF%DF%B3%A4%B6%C8&page=1
这里的程序可以实现

anan596694567

上面网址所指，实现不了，那个LSP是统一加减，楼主的意思是直线长度不一，要改成一样的长度，而且直线原来的起点不变，方向不变

xyp1964

2. ;; 统一直线长度 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]
   
3. (defun c:tt ()
   
4.   (CMDLA0)
   
5.   (setq dist (Udist 1 "" "直线长度<输入或鼠标直接量取>" dist nil))
   
6.   (princ "\n选择直线: ")
   
7.   (setq ss (ssget '((0 . "line")))
   
8. i  -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (setq rad (xyp-get "angle" s1)
    
12.    p1  (xyp-get-dxf 10 s1)
    
13.    p2  (polar p1 rad dist)
    
14.     )
    
15.     (xyp-SubUpd s1 11 p2)
    
16.   )
    
17.   (CMDLA1)
    
18. )

;; 统一直线长度 需要e派工具箱(XCAD)的支持：[url=http://xyp1964.ys168.com]http://xyp1964.ys168.com[/url]<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq dist (Udist 1 "" "直线长度<输入或鼠标直接量取>" dist nil))<br />   (princ "\n选择直线: ")<br />   (setq ss (ssget '((0 . "line")))<br /> i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq rad (xyp-get "angle" s1)<br />    p1  (xyp-get-dxf 10 s1)<br />    p2  (polar p1 rad dist)<br />     )<br />     (xyp-SubUpd s1 11 p2)<br />   )<br />   (CMDLA1)<br /> )

lichunyu

大代码不好用啊