[寻找]：如何把已经存在的两条平行线的距离沿中轴缩放？

lyd128

如何把已经存在的两条平行线的距离沿中轴缩放？ 例如：
把已经存在的两条平行线的距离沿中轴由180的距离变成240的距离？

lsjjm

以中轴上某一点为基点SCALE, 放大xi数(/ 240 180.0).

chstart

SCALE 会改变原线尺寸吧，如果只是改变距离，得移动了。
应该是类似天正改变墙宽的命令，中轴线实际上是不存在的。
我不懂用lisp求出选择的俩平行线的距离，向长老求助。

lsjjm

不好意思,  班门弄斧拉. 我不懂建筑, 也不知天正是什么.

chstart

我的理解，编程思路是选择两平行线，判断他们的距离，然后提示输入改变后的距离，计算后对原平行线offset，然后再删除原线。可我不知道怎样才能判断原来的距离。

f5612140

最初由 chstart 发布
[B]我的理解，编程思路是选择两平行线，判断他们的距离，然后提示输入改变后的距离，计算后对原平行线offset，然后再删除原线。可我不知道怎样才能判断原来的距离。 [/B]

跨線兩端

2. 
   
3. (defun offsll()
   
4.       (setq pt2 (getpoint pt1 "\nGive Second point:"))
   
5.       (setq pp (list pt1 pt2))
   
6.       (setq ppf (list pt1 pt2))
   
7.       (setq ss (ssget "F" pp))
   
8.       (setq i 0)
   
9.       (repeat (sslength ss)
   
10.          (setq ssn (ssname ss i))
    
11.          (setq ssdata (entget ssn))
    
12.          (setq sstype (cdr (assoc 0 ssdata)))
    
13.          (setq pp1 (cdr (assoc 10 ssdata)))
    
14.          (setq pp2 (cdr (assoc 11 ssdata)))
    
15.          (setq pp (inters pt1 pt2 pp1 pp2))
    
16.          (if (= i 0)(setq pd1 pp))
    
17.          (if (= i 1)(setq pd2 pp))
    
18.          (setq i (+ i 1))
    
19.       )
    
20.       (setq dt (distance pd1 pd2))
    
21.       (setq ang1 (angle pt2 pt1))
    
22.       (setq ang2 (angle pp2 pp1))
    
23.       (setq ang (- (/ pi 2) (- ang1 ang2)))
    
24.       (setq dt (* dt (abs (cos ang))))
    
25.       (print dt)
    
26. )
    
27. 
    
28. (defun C:offsc()
    
29.    (setvar "cmdecho" 0)
    
30.    (setvar "blipmode" 0)
    
31.    (setq selnum (getvar "osmode"))
    
32.    (setvar "osmode" 0)
    
33.    (setq pt1 (getpoint "\nGive First point:"))
    
34.    (while pt1
    
35.       (offsll)
    
36.       (setq pt1 (getpoint "\nGive First point:"))
    
37.    )
    
38.        (setvar "osmode" selnum)
    
39. (prin1)
    
40. )
    

<br /> (defun offsll()<br />       (setq pt2 (getpoint pt1 "\nGive Second point:"))<br />       (setq pp (list pt1 pt2))<br />       (setq ppf (list pt1 pt2))<br />       (setq ss (ssget "F" pp))<br />       (setq i 0)<br />       (repeat (sslength ss)<br />          (setq ssn (ssname ss i))<br />          (setq ssdata (entget ssn))<br />          (setq sstype (cdr (assoc 0 ssdata)))<br />          (setq pp1 (cdr (assoc 10 ssdata)))<br />          (setq pp2 (cdr (assoc 11 ssdata)))<br />          (setq pp (inters pt1 pt2 pp1 pp2))<br />          (if (= i 0)(setq pd1 pp))<br />          (if (= i 1)(setq pd2 pp))<br />          (setq i (+ i 1))<br />       )<br />       (setq dt (distance pd1 pd2))<br />       (setq ang1 (angle pt2 pt1))<br />       (setq ang2 (angle pp2 pp1))<br />       (setq ang (- (/ pi 2) (- ang1 ang2)))<br />       (setq dt (* dt (abs (cos ang))))<br />       (print dt)<br /> )<br /> <br /> (defun C:offsc()<br />    (setvar "cmdecho" 0) <br />    (setvar "blipmode" 0)<br />    (setq selnum (getvar "osmode"))<br />    (setvar "osmode" 0)<br />    (setq pt1 (getpoint "\nGive First point:"))<br />    (while pt1<br />       (offsll)<br />       (setq pt1 (getpoint "\nGive First point:"))<br />    )<br />        (setvar "osmode" selnum)<br /> (prin1)<br /> )<br />



海豚

最初由 f5612140 发布
[B][QUOTE]最初由 chstart 发布
[B]我的理解，编程思路是选择两平行线，判断他们的距离，然后提示输入改变后的距离，计算后对原平行线offset，然后再删除原线。可我不知道怎样才能判断原来的距离。
跨線兩端

代码:
[/B][/QUOTE... [/B]

这样需要用捕捉确定两点，能否用选择的方式。

f5612140

最初由 海豚 发布
这样需要用捕捉确定两点，能否用选择的方式

1.提供的程序原是在其他的應用修改的
2.跨線兩端使用上較方便,可做為程序延伸的基礎,解決樓主的問題,程序設計較簡單
3.單選某條線自斷判斷寬度也不難,我在其他的程序也有這方面的應用,整理後再上傳

eachy

最初由 海豚 发布
[B][QUOTE]最初由 f5612140 发布
[B][QUOTE]最初由 chstart 发布
[B]我的理解，编程思路是选择两平行线，判断他们的距离，然后提示输入改变后的距离，计算后对原平行线offset，然后再删除原线。可我不?.. [/B]

使用2005提供 m2p 捕捉模式

f5612140

符合樓主要求

2. 
   
3. (defun offsll()
   
4.       (setq pt2 (getpoint pt1 "\nGive Second point:"))
   
5.       (setq pp (list pt1 pt2))
   
6.       (setq ppf (list pt1 pt2))
   
7.       (setq ss (ssget "F" pp))
   
8.       (setq i 0)
   
9.       (repeat (sslength ss)
   
10.          (setq ssn (ssname ss i))
    
11.          (setq ssdata (entget ssn))
    
12.          (setq sstype (cdr (assoc 0 ssdata)))
    
13.          (setq pp1 (cdr (assoc 10 ssdata)))
    
14.          (setq pp2 (cdr (assoc 11 ssdata)))
    
15.          (setq pp (inters pt1 pt2 pp1 pp2))
    
16.          (if (= i 0)(setq pd1 pp))
    
17.          (if (= i 1)(setq pd2 pp))
    
18.          (setq i (+ i 1))
    
19.       )
    
20.       (setq dt (distance pd1 pd2))
    
21.       (setq ang1 (angle pt2 pt1))
    
22.       (setq ang2 (angle pp2 pp1))
    
23.       (setq ang (- (/ pi 2) (- ang1 ang2)))
    
24.       (setq dt (* dt (abs (cos ang))))
    
25.       (command "offset" (/ dt 2) ssn pt1 "")
    
26.       (command "chprop" "l" "" "c" 1 "")
    
27.       (setq ssl (ssget "l"))
    
28.       (setq dtset (getdist (strcat "\nEnter new width <" (rtos dt 2 4) ">: ")))
    
29.       (command "offset" (/ dtset 2) ssl pt1 "")
    
30.       (command "chprop" "l" "" "c" "bylayer" "")
    
31.        (command "offset" (/ dtset 2) ssl pt2 "")
    
32.       (command "chprop" "l" "" "c" "bylayer" "")
    
33.       (command "erase" ssl ss "")  
    
34. )
    
35. 
    
36. (defun C:offsc()
    
37.    (setvar "cmdecho" 0)
    
38.    (setvar "blipmode" 0)
    
39.    (setq selnum (getvar "osmode"))
    
40.    (setvar "osmode" 0)
    
41.    (setq pt1 (getpoint "\nGive First point:"))
    
42.    (while pt1
    
43.       (offsll)
    
44.       (setq pt1 (getpoint "\nGive First point:"))
    
45.    )
    
46.        (setvar "osmode" selnum)
    
47. (prin1)
    
48. )
    

<br /> (defun offsll()<br />       (setq pt2 (getpoint pt1 "\nGive Second point:"))<br />       (setq pp (list pt1 pt2))<br />       (setq ppf (list pt1 pt2))<br />       (setq ss (ssget "F" pp))<br />       (setq i 0)<br />       (repeat (sslength ss)<br />          (setq ssn (ssname ss i))<br />          (setq ssdata (entget ssn))<br />          (setq sstype (cdr (assoc 0 ssdata)))<br />          (setq pp1 (cdr (assoc 10 ssdata)))<br />          (setq pp2 (cdr (assoc 11 ssdata)))<br />          (setq pp (inters pt1 pt2 pp1 pp2))<br />          (if (= i 0)(setq pd1 pp))<br />          (if (= i 1)(setq pd2 pp))<br />          (setq i (+ i 1))<br />       )<br />       (setq dt (distance pd1 pd2))<br />       (setq ang1 (angle pt2 pt1))<br />       (setq ang2 (angle pp2 pp1))<br />       (setq ang (- (/ pi 2) (- ang1 ang2)))<br />       (setq dt (* dt (abs (cos ang))))<br />       (command "offset" (/ dt 2) ssn pt1 "")<br />       (command "chprop" "l" "" "c" 1 "")<br />       (setq ssl (ssget "l"))<br />       (setq dtset (getdist (strcat "\nEnter new width <" (rtos dt 2 4) ">: ")))<br />       (command "offset" (/ dtset 2) ssl pt1 "")<br />       (command "chprop" "l" "" "c" "bylayer" "")<br />        (command "offset" (/ dtset 2) ssl pt2 "")<br />       (command "chprop" "l" "" "c" "bylayer" "")<br />       (command "erase" ssl ss "")  <br /> )<br /> <br /> (defun C:offsc()<br />    (setvar "cmdecho" 0) <br />    (setvar "blipmode" 0)<br />    (setq selnum (getvar "osmode"))<br />    (setvar "osmode" 0)<br />    (setq pt1 (getpoint "\nGive First point:"))<br />    (while pt1<br />       (offsll)<br />       (setq pt1 (getpoint "\nGive First point:"))<br />    )<br />        (setvar "osmode" selnum)<br /> (prin1)<br /> )<br />

海豚

最初由 f5612140 发布
[B]符合樓主要求
[code]
(defun offsll()
      (setq pt2 (getpoint pt1 "\nGive Second point:"))
      (setq pp (list pt1 pt2))
      (setq ppf (list pt1 pt2))
      (setq ss (ssget "F" pp))
      (s... [/B]

垂直和水平没有问题，其他角度的出错。
选择需要捕捉，还是不太方便。
但还是谢谢。

f5612140

最初由 海豚 发布
[垂直和水平没有问题，其他角度的出错。
选择需要捕捉，还是不太方便。
... [/B]

1.怪哉,我試了沒問題,可否傳上圖檔看看,是否有重疊線的問題,解決重疊線另有處理方法
2.不了解你說"选择需要捕捉"的意思?是指跨兩端求中線的意思吧,
之前說過這是解決問題的方法之一

陌生人

最初由 chstart 发布
[B]我的理解，编程思路是选择两平行线，判断他们的距离，然后提示输入改变后的距离，计算后对原平行线offset，然后再删除原线。可我不知道怎样才能判断原来的距离。 [/B]

这个想法可以实现，另外，不用分别选两个平行线，用选集，在程序里面判断平行关系，找到那条线的“爱人”

f5612140

最初由 陌生人 发布
这个想法可以实现，另外，不用分别选两个平行线，用选集，在程序里面判断平行关系，找到那条线的“爱人”

這個容易,要讓程序順利進行,需考慮重線的問題

海豚

最初由 f5612140 发布
[B]

1.怪哉,我試了沒問題,可否傳上圖檔看看,是否有重疊線的問題,解決重疊線另有處理方法... [/B]

我只是随便画了一条斜线，OFFSET200，不存在重线的问题。
我用的是AUTOCAD2004。