[求助]：polyline 的fillet问题,

aeo

两直线
(command "fillet" line1 line2) 可以

一pl线，点它的两条边,命令中可以,或者(command pause pause)可以

能不能先点了两条边，让它fillet呢?(象上面的line一样写)

qjcpj

我也很想知道...
最近两天利用fillet函数写了一个两OBJECT截交的模块，在AutoCAD命令中明明可以对POLYLINE实体FILLET,转在LISP程序中却提示只能对LINE、ARC、CIRCLE实体FILLET,那位给指点一下，扩充其对POLYLINE、MLINE、XLINE、SPLINE等实体的支持。
以下附件含cpj-jij.lsp程序源码。

梦断江南

试了，　(vl-cmdf ".fillet" (getpoint) (getpoint))　这样可以，但是用ｅｎｔｓｅｌ不行

fools

最初由 梦断江南 发布
[B]试了，　(vl-cmdf ".fillet" (getpoint) (getpoint))　这样可以，但是用ｅｎｔｓｅｌ不行 [/B]

(vl-cmdf ".fillet" (cadr(entsel)) (cadr(entsel)))

xyp1964

;line
(defun c:test()
  (setq s1 (entsel)
        s2 (entsel)
        )
  (command "fillet" s1 s2)
  )
;pline
(defun c:test()
  (setq s1 (cadr(entsel))
        s2 (cadr(entsel))
        )
  (command "fillet" s1 s2)
  )

ycao

楼上的真是高手！

qjcpj

试了以下，在lisp中运用还是觉得4楼xyp1964的第二种方法好，不但支持LINE，同时还支持 "POLYLINE,LWPOLYLINE,SPLINE,XLINE,ARE,CIRE,ELLIPSE"等实体，不过不支持"MLINE"实体，xyp1964能否根据"MLINE"再给出另一种方法吗？
附件cpj-jij.lsp是我根据xyp1964第二种方法修改后的程序，未作严格调试，初学autolisp的各位网友可下载参考！

狂刀

我想aeo是想在程序执行fillet的时候锁定要倒角的实体，但是无论是getpoint还是（cadr（entsel））本质上都是一样的，都不能有效的“锁定”实体。
对比： (vl-cmdf ".fillet" (cadr(entsel)) (cadr(entsel)))
和     (setq ps (entsel))　
       (vl-cmdf ".break" ps pt2)
这里的entsel作用是不同的。

aeo

找到答案:

(command "_.FILLET"(osnap (cadr e1) "_nea")(osnap(cadr e2) "_nea"))

;;e1 e2是entsel得到的。（其实是选的同一条pl线的两条边)

fools

九楼的方法和我贴在四楼的基本一致，其实不需要osnap 就可以。
只在需要精确使用entsel所选的点时，才要加osnap的处理。

aeo

其实不需要osnap 就可以?
你可以试试!

dbvbd

能否用框选方式倒角,一个一个选太麻烦

qjcpj

好主意，不过实现起来比较困难！主要是框选两实体(分为不同实体类型)求交点程序较为复杂，如果求出交点pt，可使用(command "fillet" pt pt)截交。
如果按图元名来作则较为简单，但只能对LINE,ARC,CIRCLE实体截交(我试过)，求交时使用(command "fillet" ent1_name ent2_name)，其中ent1_name和ent2_name为框选两实体的图元名。