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

无痕

用(entname point)响应fillet!

qiaoer_775

不好意思，我是新手，请详细解释一下，好吗？谢谢了！！不是很明白entname!!

sieben

我想无痕说的可能是使用点对表,可使用如下方法：


(command "fillet" （list e1 '(100 200 0)        )(list e2         '(200 200 0))        )


我忘了怎么得到（e1 . (100 200 0)        )，这是标准的点对表，使用点对表能提高点选时稳定性精度等，其实把"OSMODE"设置为0对点选也有帮助,我是三楼，前几天我不能上网，不好意思！我后天起又不能上网了。

无痕

（ｅｎｔｓｅｌ）返回的就是这样的点表

meflying

好象还是不行的,,,看来要自己写一个倒角程序了

无痕

真的么？好，我看看前面的程序是怎么写的．．．．

无痕

不如这样吧

2. (defun c:tt()
3.    (setq el1(entsel)
4.   el2(entsel))
5.    (setq ens (list(cdr(assoc 0 (entget(car el1))))(cdr(assoc 0 (entget(car el2))))))
6.    (if (or(and (member "ARC" ens)(member "LWPOLYLINE" ens))
7.        (and (member "ARC" ens)(member "POLYLINE" ens)))
8.        (command ".pedit" "m" (car el1)(car el2) "" "y" "")
9.        )
10.    (command ".fillet" (osnap(cadr el1)"nea") (osnap(cadr el2)"nea") "")
11. )

(defun c:tt()    (setq el1(entsel)   el2(entsel))    (setq ens (list(cdr(assoc 0 (entget(car el1))))(cdr(assoc 0 (entget(car el2))))))    (if (or(and (member "ARC" ens)(member "LWPOLYLINE" ens))        (and (member "ARC" ens)(member "POLYLINE" ens)))        (command ".pedit" "m" (car el1)(car el2) "" "y" "")        )    (command ".fillet" (osnap(cadr el1)"nea") (osnap(cadr el2)"nea") "") )

请注意ｃａｄ版本，我测试用的是２００４

qiaoer_775

谢谢大家的帮忙，最主要的是我需要不用手动，一切都是自动完成的！！请大家再多出出主意！！谢谢了！！！

qiaoer_775

无痕大哥，快点再来看看呀！！！

无痕

你会一点编程就知道怎么改阿,......el1 ,el2 为类似entsel返回值的表(实体 点).

2. (defun xfillet ( el1 el2 / ens)
3.    (setq ens (list(cdr(assoc 0 (entget(car el1))))(cdr(assoc 0 (entget(car el2))))))
4.    (if (or(and (member "ARC" ens)(member "LWPOLYLINE" ens))
5.        (and (member "ARC" ens)(member "POLYLINE" ens)))
6.        (command ".pedit" "m" (car el1)(car el2) "" "y" "")
7.        )
8.    (command ".fillet" (osnap(cadr el1)"nea") (osnap(cadr el2)"nea") "")
9. )

(defun xfillet ( el1 el2 / ens)    (setq ens (list(cdr(assoc 0 (entget(car el1))))(cdr(assoc 0 (entget(car el2))))))    (if (or(and (member "ARC" ens)(member "LWPOLYLINE" ens))        (and (member "ARC" ens)(member "POLYLINE" ens)))        (command ".pedit" "m" (car el1)(car el2) "" "y" "")        )    (command ".fillet" (osnap(cadr el1)"nea") (osnap(cadr el2)"nea") "") )