[求助]两条pline倒角的问题！急用！！请大家帮帮忙！谢谢了！！

qiaoer_775

xyp1964,谢谢！！我试过了，可以！！！真得谢谢！！！！

maomao2004

那能不能告诉我为什么楼主编的那个程序就不能运行呢？


一定要加捕捉吗？

qiaoer_775

我试过了，太谢谢xyp1964了，但是这是为什么？我那样弄，还有用选择集，为什么都不行？

qiaoer_775

现在的问题是两条不相交的pline怎么弄，用这个办法一会能倒出来，一 会不能！

qiaoer_775

和相交的两条pline倒角连起来就执行不出来 ！！到底为什么？帮忙看看，谢谢了！！！ (defun c:ft04();测试pline在不同位置关系下进行倒角
(ft041)
(ft042)
) (defun ft041();测试相交的两条pline线倒角
(setvar "cmdecho" 0)
(setq pu (getvar "plinetype"))
(setvar "plinetype" 0)
(princ "\n测试相交的两条pline线倒角!(plinetype=0)")
(command "pline" (list 100 100) (list 200 200) "")
(command "pline" (list 300 100) (list 100 200) "")
(setq enpl1 (osnap (list 200 200) "nea")
enpl2 (osnap (list 100 200) "nea"))
(f enpl1 enpl2)
(command "zoom" "e")
(command "delay" 2000)
(command "erase" "all" "")
(setvar "plinetype" pu)
(setvar "cmdecho" 1)
(princ)
) (defun ft042();测试相离的两条pline线倒角
(setvar "cmdecho" 0)
(setq pu (getvar "plinetype"))
(setvar "plinetype" 0)
(princ "\n测试相离的两条pline线倒角!(plinetype=0)")
(command "pline" (list 100 100) (list 200 200) "")
(command "pline" (list 300 100) (list 150 300) "")
(setq enpl3 (osnap (list 200 200) "nea")
enpl4 (osnap (list 150 300) "nea"))
(f enpl3 enpl4)
(command "zoom" "e")
(command "delay" 2000)
(command "erase" "all" "")
(setvar "plinetype" pu)
(setvar "cmdecho" 1)
(princ)
) (defun f(e1 e2)
(command "fillet" "r" 20 )
(command "fillet" e1 e2 )
(vl-cmdf)
(princ)
)

xyp1964

2. ;测试pline在不同位置关系下进行倒角
3. (defun c:ft04 ()
4.    (setvar "cmdecho" 0)
5.    (ft041)
6.    (ft042)
7.    (setvar "cmdecho" 1)
8.    (princ)
9. )
10. ;测试相交的两条pline线倒角
11. (defun ft041 ()        
12.    (command "pline" (list 100 100) (list 200 200) "")
13.    (command "pline" (list 300 100) (list 100 200) "")
14.    (setq  enpl1 (osnap (list 200 200) "nea")
15.   enpl2 (osnap (list 100 200) "nea")
16.    )
17.    (f enpl1 enpl2)   
18. )
19. ;测试相离的两条pline线倒角
20. (defun ft042 ()        
21.    (command "pline" (list 100 100) (list 200 200) "")
22.    (command "pline" (list 300 100) (list 150 300) "")
23.    (setq  enpl3 (osnap (list 100 100) "nea")
24.   enpl4 (osnap (list 300 100) "nea")
25.    )
26.    (f enpl3 enpl4)
27. )(defun f (e1 e2)
28.    (command "fillet" "r" 20)
29.    (command "fillet" e1 e2)
30. )

;测试pline在不同位置关系下进行倒角 (defun c:ft04 ()    (setvar "cmdecho" 0)    (ft041)    (ft042)    (setvar "cmdecho" 1)    (princ) ) ;测试相交的两条pline线倒角 (defun ft041 ()            (command "pline" (list 100 100) (list 200 200) "")    (command "pline" (list 300 100) (list 100 200) "")    (setq  enpl1 (osnap (list 200 200) "nea")   enpl2 (osnap (list 100 200) "nea")    )    (f enpl1 enpl2)    ) ;测试相离的两条pline线倒角 (defun ft042 ()            (command "pline" (list 100 100) (list 200 200) "")    (command "pline" (list 300 100) (list 150 300) "")    (setq  enpl3 (osnap (list 100 100) "nea")   enpl4 (osnap (list 300 100) "nea")    )    (f enpl3 enpl4) )(defun f (e1 e2)    (command "fillet" "r" 20)    (command "fillet" e1 e2) )

qiaoer_775

还是不行，有的时候能出来，有的时候不能，加上那些条件后就怎么也执行不出来了！！

qiaoer_775

请大家快点帮帮忙！！我真的急用！！我要愁死了！快呀！！谢谢了！！

qiaoer_775

拜托大家帮帮忙！！为什么没人回呀！！！急用！马上就要交毕业论文了！！拜托大家了


！！

qiaoer_775

请大家快点帮忙！！我要哭了！！快呀！！谢谢了！