求增减直线长度的工具

gcho

如何批量增减直线长度
思路：
1）命令里输入zz，命令栏里提示：输入增减长度n——提示选择对象——选中对象按n值增减——继续选择对象——对象按n值增减……
2）n值为负表示减，增减后的直线是在原来的基础上延伸（即增减后的直线仍为一根直线）
3）选中对象增减的方向靠近鼠标选择的那一方

最好是lsp程序，也想学习一下！
拜谢！

zhynt

这个好像不需要用到对话框吧。

gcho

已改，应是：命令栏里提示

zhynt

2. 
   
3. (defun c:len ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq en (entsel "\n选择需要修改的线段:"))
   
6.   (setq lengthen (getreal "\n输入需增加或减少的长度:"))
   
7.   (setq pt1 (cadr en))
   
8.   (setq ent (entget (car en)))
   
9.   (setq        pta (cdr (assoc 10 ent))
   
10.         ptb (cdr (assoc 11 ent))
    
11.   )
    
12.   (if (> (distance pta pt1) (distance pt1 ptb))
    
13.     (progn (setq pt2 (polar ptb (angle pta ptb) lengthen))
    
14.            (setq ent1 (cons 11 pt2))
    
15.            (setq ent (subst ent1 (assoc 11 ent) ent))
    
16.            (entmod ent)
    
17.     )
    
18.     (progn (setq pt2 (polar pta (angle ptb pta) lengthen))
    
19.            (setq ent1 (cons 10 pt2))
    
20.            (setq ent (subst ent1 (assoc 10 ent) ent))
    
21.            (entmod ent)
    
22.     )
    
23.   )
    
24.   (setvar "cmdecho" 1)
    
25.   (princ)
    
26. )
    

<br /> (defun c:len ()<br />   (setvar "cmdecho" 0)<br />   (setq en (entsel "\n选择需要修改的线段:"))<br />   (setq lengthen (getreal "\n输入需增加或减少的长度:"))<br />   (setq pt1 (cadr en))<br />   (setq ent (entget (car en)))<br />   (setq        pta (cdr (assoc 10 ent))<br />         ptb (cdr (assoc 11 ent))<br />   )<br />   (if (> (distance pta pt1) (distance pt1 ptb))<br />     (progn (setq pt2 (polar ptb (angle pta ptb) lengthen))<br />            (setq ent1 (cons 11 pt2))<br />            (setq ent (subst ent1 (assoc 11 ent) ent))<br />            (entmod ent)<br />     )<br />     (progn (setq pt2 (polar pta (angle ptb pta) lengthen))<br />            (setq ent1 (cons 10 pt2))<br />            (setq ent (subst ent1 (assoc 10 ent) ent))<br />            (entmod ent)<br />     )<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

LLXXZZ

CAD中有 命令:LENGTHEN

命令: LEN
LENGTHEN
选择对象或 [增量(DE)/百分数(P)/全部(T)/动态(DY)]:
这么好的命令为啥不用?

zhynt

我知道有这个命令，这只是应楼主的要求，写的学习贴。

ljpnb

2. 
   
3. (defun c:zz ()
   
4.   (setvar "cmdecho" 0)
   
5.   (if (null old-len)
   
6.     (setq old-len 0)
   
7.   )
   
8.   (if (setq len
   
9.              (getreal
   
10.                (strcat "\n输入一个增量值(负值为减量)<" (rtos old-len) ">:")
    
11.              )
    
12.       )
    
13.     (setq old-len len)
    
14.     (setq len old-len)
    
15.   )
    
16. 
    
17.   (command "LENGTHEN" "de" len)
    
18.   (while (/= 0 (getvar "cmdactive"))
    
19.     (prompt "\n选择要修改的对象或 [放弃(U)]:")
    
20.     (command pause)
    
21.   )
    
22.   (setvar "cmdecho" 1)
    
23.   (princ)
    
24. )
    

<br /> (defun c:zz ()<br />   (setvar "cmdecho" 0)<br />   (if (null old-len)<br />     (setq old-len 0)<br />   )<br />   (if (setq len<br />              (getreal<br />                (strcat "\n输入一个增量值(负值为减量)<" (rtos old-len) ">:")<br />              )<br />       )<br />     (setq old-len len)<br />     (setq len old-len)<br />   )<br /> <br />   (command "LENGTHEN" "de" len)<br />   (while (/= 0 (getvar "cmdactive"))<br />     (prompt "\n选择要修改的对象或 [放弃(U)]:")<br />     (command pause)<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br />

gcho

ljpnb 发表于 2011-7-23 13:11

ljpnb 你的代码确实不错，有个建议，可否再升华，将修改的对象扩广到标注？

gbhsu

再升华，将修改的对象扩广到标注！

ljpnb

gbhsu 发表于 2011-7-26 07:05
再升华，将修改的对象扩广到标注！

不是很明白意思，是直接增减标注是还增减直线后标注自动跟着变动