求救fillet出错

05625lcc

(
 defun c:fillet2Line()
 (command "erase" "all" "")
 (command "line" (list 0 100) (list 20 100) "")
 (command "line" (list 0 0) (list 0 200) "")
 (setq L1 (ssget "x" '((10 0 100))))
 (setq L2 (ssget "x" '((11 0 200))))
 (alert "Select finish")
 (setvar "FILLETRAD" 2)
 (command "fillet" L2 L1)
)

为什么倒圆角总是倒在上边呢,而不是在下边呢?有什么变量控制它的方向呢?恳请赐教!

caoyin

看看我上次给你回的帖子，

 (command "fillet" L2 L1)

L2和L1应该是个表 (图元名 点)

改成

 (command "fillet" (list 图元名1 '(0 200)) (list 图元名2 '(20 100)))

05625lcc

大哥,不行啊.照你的方法说行不通.

caoyin

ssget 得到的是选择集，当然不行

05625lcc

那为什么我直接用(command "fillet" L2 L1)
就行呢?

caoyin

选择集在command中有时是可以替代图元名的。

entsel 函数获取的是包含 图元名和点 的函数

而你说是的

    为什么倒圆角总是倒在上边呢,而不是在下边呢?

的原因就是 (command "fillet" 

后面的参数需要 包含图元名和点的表

再看看上次回你的帖子。

(entlast)得到的是图元名，所以它可以和 点 组成表而符合(command "fillet" 

后面的参数要求

caoyin

(defun c:fillet2Line()
 (command "erase" "all" "")
 (command "line" (list 0 100) (list 20 100) "")
 (setq L1 (entlast))
 (command "line" (list 0 0) (list 0 200) "")
 (setq L2 (entlast))
 (setq L1 (ssget "x" '((10 0 100))))
 (setq L2 (ssget "x" '((11 0 200))))
 (alert "Select finish")
 (setvar "FILLETRAD" 2)
 (command "fillet" (list L2 '(0 0))  (list L1 '(20 100)))
)

or

(defun c:fillet2Line()
 (command "erase" "all" "")
 (command "line" (list 0 100) (list 20 100) "")
 (command "line" (list 0 0) (list 0 200) "")
 (setq L1 (ssname (ssget "x" '((10 0 100))) 0))
 (setq L2 (ssname (ssget "x" '((11 0 200))) 0))
 (alert "Select finish")
 (setvar "FILLETRAD" 2)
 (command "fillet" (list L2 '(0 0))  (list L1 '(20 100)))
)

05625lcc

太感谢caoyin了.