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

qiaoer_775

我在编一个程序，用到了两条pline进行倒角，可是执行后，老是倒不出来，总实提示“圆角需要两条直线、圆弧或圆。
圆角需要两条直线、圆弧或圆。” 请大家帮帮忙！！！ 谢谢了！！ (defun c: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) "")
(setq enpl1 (entlast))
(command "pline" (list 300 100) (list 100 200) "")
(setq enpl2 (entlast))
(f enpl1 enpl2)
(command "zoom" "e")
(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)
)

maomao2004

郁闷，按程序写的分步执行，画出来的线可以倒角，可是合并再一起就不行了


怪，大家来看看

sieben

哈哈！我把上面的程序执行没有问题哟

sieben

我用的是2004，另外,上面的应是Line而不是PLine吧

qiaoer_775

不是line就是pline，line再我这也没有问题！！pline出不来！我的是2002！！


谢谢，请大家快点帮帮忙！！


急用！！

qiaoer_775

不好意思，我刚开始发错了！！不好意思！！现在改过来了！就是pline!

maomao2004

3楼的，你把line改成pline再看看


我用的是2002，很奇怪就是不行啊


神了


飞哥，来看看，好像简单，可是奇妙呀

qiaoer_775

快来帮忙呀！！！我要郁闷死了！！！！

xyp1964

2. ;相交的两条pline线倒角
3. (defun c:test ()
4.     (setvar "cmdecho" 0)
5.     (setvar "plinetype" 0)
6.     (command "pline" (list 100 100) (list 200 200) "")
7.     (command "pline" (list 300 100) (list 100 200) "")
8.     (command "fillet" "r" 20)
9.     (command "fillet"
10.               (osnap (list 100 100) "nea")
11.               (osnap (list 300 100) "nea")
12.     )
13.     (setvar "cmdecho" 1)
14.     (princ)
15. )

;相交的两条pline线倒角 (defun c:test ()     (setvar "cmdecho" 0)     (setvar "plinetype" 0)     (command "pline" (list 100 100) (list 200 200) "")     (command "pline" (list 300 100) (list 100 200) "")     (command "fillet" "r" 20)     (command "fillet"               (osnap (list 100 100) "nea")               (osnap (list 300 100) "nea")     )     (setvar "cmdecho" 1)     (princ) )

qiaoer_775

谢谢，我现在没有办法试！！等我回去看看！！总之谢谢了！！