遇到一个多段线倒角难题，恳请各位前辈帮忙

sicky111

各位前辈，我又遇到一个关于多段线倒角的难题：多段线倒C角或R角时，在不修剪模式下，多段线的外形没有发生变化，只是多出来一条C角线或者R角线，如左图；现在我想做一个程式，在多段线倒C角或R角时，C角线或R角线和多段线组成一个封闭复线，同时红色部份不要被修剪掉，仍然保留。换句话说，在倒角时，用修剪模式，得到倒角后的封闭复线，然后再把被修剪掉的部份补回来。如何实现？想了大半天，已经走进死胡同了，不得要领。请各位前辈帮忙，或给个思路，谢谢！

Highflybird

为什么要恢复，你倒角前，复制一个拷贝不就可以了吗？

sicky111

Highflybird 发表于 2013-6-10 01:33
为什么要恢复，你倒角前，复制一个拷贝不就可以了吗？

高飞大哥您好，我不要两个封闭的复线，我只是想倒完角之后，能够把被修剪的部份补回来。

Highflybird

sicky111 发表于 2013-6-10 01:34
高飞大哥您好，我不要两个封闭的复线，我只是想倒完角之后，能够把被修剪的部份补回来。

咋没明白你的意思呢？你不是原样保存一个，然后倒角一个吗？

sicky111

Highflybird 发表于 2013-6-10 02:06
咋没明白你的意思呢？你不是原样保存一个，然后倒角一个吗？

原样保存一个，再倒角一个，不就变成两个复线重叠了吗？

eachy

sicky111 发表于 2013-6-10 02:21
原样保存一个，再倒角一个，不就变成两个复线重叠了吗？

倒角时选择不修剪选项

zxq0220

[sell=1]

2. 
   
3. ;多段线倒(圆)角保留尖角 晓东 zxq0220 2013.6.10
   
4. (defun c:tt ()
   
5. (setvar "CMDECHO" 0)
   
6. (setq pt1 (entsel "\n选择倒角一棱边: "))
   
7. (redraw (car pt1) 3)
   
8. (setq pt2 (entsel "\n选择倒角另一棱边: "))
   
9. (initget 1 "R C")
   
10. (setq ke (getkword "\n圆角R/倒角C: "))
    
11. (setq d (getdist "\n圆(倒)角大小: "))
    
12. (setq p1 (osnap (cadr pt1) "nea")
    
13. an2 (angle (cadr pt1) p1)
    
14. p2 (osnap (cadr pt2) "nea")
    
15. an1 (angle (cadr pt2) p2))
    
16. (if (and (eq (car pt1) (car pt2))
    
17. (setq pt (inters p1 (polar p1 an1 10) p2 (polar p2 an2 10) nil))) (progn
    
18. (if (= ke "R")
    
19. (command "_.FILLET" "R" d "_FILLET" (cadr pt1) (cadr pt2))
    
20. (command "_.CHAMFER" "D" d d "_.CHAMFER" (cadr pt1) (cadr pt2))
    
21. )
    
22. (setq p3 (osnap (cadr pt1) "end") p4 (osnap (cadr pt2) "end"))
    
23. (command "_.PLINE" p3 pt p4 "")
    
24. ))
    
25. (setvar "CMDECHO" 1)
    
26. (princ)
    
27. )
    

<br /> ;多段线倒(圆)角保留尖角 晓东 zxq0220 2013.6.10<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq pt1 (entsel "\n选择倒角一棱边: "))<br /> (redraw (car pt1) 3)<br /> (setq pt2 (entsel "\n选择倒角另一棱边: "))<br /> (initget 1 "R C")<br /> (setq ke (getkword "\n圆角R/倒角C: "))<br /> (setq d (getdist "\n圆(倒)角大小: "))<br /> (setq p1 (osnap (cadr pt1) "nea")<br /> an2 (angle (cadr pt1) p1)<br /> p2 (osnap (cadr pt2) "nea")<br /> an1 (angle (cadr pt2) p2))<br /> (if (and (eq (car pt1) (car pt2))<br /> (setq pt (inters p1 (polar p1 an1 10) p2 (polar p2 an2 10) nil))) (progn<br /> (if (= ke "R") <br /> (command "_.FILLET" "R" d "_FILLET" (cadr pt1) (cadr pt2))<br /> (command "_.CHAMFER" "D" d d "_.CHAMFER" (cadr pt1) (cadr pt2))<br /> )<br /> (setq p3 (osnap (cadr pt1) "end") p4 (osnap (cadr pt2) "end"))<br /> (command "_.PLINE" p3 pt p4 "")<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

[/sell]

sicky111

eachy 发表于 2013-6-10 06:18
倒角时选择不修剪选项

大哥您好，倒角时不修剪，得到的是左图，我想得到右图的效果。

sicky111

zxq0220 发表于 2013-6-10 08:43
**** 本内容需购买可见 ****

太棒了，大哥，又帮我解决了一次难题。非常感谢！

sicky111

zxq0220 发表于 2013-6-10 08:43
**** 本内容需购买可见 ****

大哥，测试时发现一个问题，要倒角的多段线如果在视窗显示较大，且倒角尺寸较大时，倒角补线就不能正常画出。如果要倒角的多段线在视窗显示较小时，程式运行正常。

kwok

关掉捕捉看看

sicky111

kwok 发表于 2013-6-10 13:02
关掉捕捉看看

关掉捕捉怎么画线呢？

newer

sicky111 发表于 2013-6-10 13:14
关掉捕捉怎么画线呢？

楼主，你能把左边，右边的图形， 两条线 错开些，截下图吗？我想知道你重合的部分是什么样的。

kwok

sicky111 发表于 2013-6-10 13:14
关掉捕捉怎么画线呢？

你在倒角时关掉捕捉，倒完角还原不就行了吗，要不就试试改这行看看(command "_.PLINE" "non" p3 "non" pt "non" p4 "")

sicky111

newer 发表于 2013-6-10 14:11
楼主，你能把左边，右边的图形， 两条线 错开些，截下图吗？我想知道你重合的部分是什么样的。

您好，没有重合的部份。我用红绿二色只是为了便于说明。左图就是倒角用不修剪模式得到的结果；右图是我想要的结果，绿色是封闭复线，红色是在修剪模式下倒角后被修剪掉的图元，我想要的只是把被修剪的部份给补回来，zxq0220大哥的程式正是我需要的结果，但是程式还有些缺陷，10楼中有说明。下图是两条线错开的情形：