luxuelong 发表于 2010-7-19 00:05:00

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

<p>有没有方法在CAD中批量选中长度相同或不相同的直线或多段线，然后全部改为另一个长度值！</p>
<p>&nbsp;</p>
<p>&nbsp;不改变原直线或多段线的位置，（不是用缩放命令）切直线不平行，有90°有180°等！</p>

luxuelong 发表于 2010-7-19 14:24:00

<p>高手在那里</p>

Andyhon 发表于 2010-7-20 18:07:00

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">貌似不难,但命题不清</font></p>
<p>&nbsp;</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">不改变原直线或多段线的位置 !?<br/>改为另一个长度值 / 位置如何不变法?<br/>最好上附加说明的(*.Dwg)文件</font></p>

luojie1768 发表于 2011-8-18 15:43:06

本帖最后由 luojie1768 于 2011-8-18 15:53 编辑

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

anan596694567 发表于 2011-10-13 15:36:34

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

xyp1964 发表于 2011-10-20 07:43:45


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

lichunyu 发表于 2012-10-17 23:53:26

大代码不好用啊
页: [1]
查看完整版本: 关于CAD中直线批量改长度问题~