[LISP]如何对轻多义线进行fillet 操作？

yjrun

现在想对画得轻多义线进行圆角操作，但不知道如何输入参数。


（vl-cmdf "fillet " "r" "20.0" ent1 ent2)


主要是ent1和ent2得参数如何确定，因为轻多义线是一个整体，不能得到各段的图原名，


所以只是对一条轻多义线操作时就不知道如何确定参数ent1和en't2，请高手提示。谢谢

alin

FILLET P可以把LWPOLYLINE中的所有顶点园角。

yjrun

这个我知道,但我在处理多义线时,每个角点的半径都不同,不能用FILLET P来操作

alin

可不可以将它转变为polyline再圆角，再转回lwpolyline

meflying

怎么会这么费劲???还有,FILLET输入半径后就退出命令了,要重新启动命令,与命令本身操作都不一样 勉强凑合出来...

2. (defun c:test( / ent pt ss ssf r ent1 ent2)
3.    (setq ent (car (entsel)))
4.    (setq pt (getpoint "\nPick a point:"))
5.    (setq r (getreal "\nEnter the radius:"))
6.    (command "_.explode" ent)
7.    (setq ss (ssget "p"))
8.    (setq ssf (ssget "p" (list '(-4 . "<or") (cons 10 pt) (cons 11 pt) '(-4 . "or>"))))
9.    (setq ent1 (ssname ssf 0) ent2 (ssname ssf 1))
10.    (ssdel ent1 ss)
11.    (ssdel ent2 ss)
12.    (command "_.pedit" ent1 "y" "j" ent2 "" "")
13.    (setq ent1 (entlast))
14.    (command "_.fillet" "t" "t" "r" r)
15.    (command "_.fillet" "p" ent1)
16.    (command "_.pedit" ent1 "j" ss "" "")
17.    (princ)
18. )

(defun c:test( / ent pt ss ssf r ent1 ent2)    (setq ent (car (entsel)))    (setq pt (getpoint "\nPick a point:"))    (setq r (getreal "\nEnter the radius:"))    (command "_.explode" ent)    (setq ss (ssget "p"))    (setq ssf (ssget "p" (list '(-4 . "<or") (cons 10 pt) (cons 11 pt) '(-4 . "or>"))))    (setq ent1 (ssname ssf 0) ent2 (ssname ssf 1))    (ssdel ent1 ss)    (ssdel ent2 ss)    (command "_.pedit" ent1 "y" "j" ent2 "" "")    (setq ent1 (entlast))    (command "_.fillet" "t" "t" "r" r)    (command "_.fillet" "p" ent1)    (command "_.pedit" ent1 "j" ss "" "")    (princ) )

yjrun

楼上的想法确实不错,但问题是这条多义线的句柄变了啊.


最好是不要变句柄,看样子只能使用activex来改bulge值了,那样修改多义线太麻烦了