一个简单而实用的程序

wb0815

(defun c:ext ()
(setq a (entsel ))
(setq s (entsel ))
(command "extend" a "" "e" "e" s "")
(command "extend" s "" a "")
)
两线延长相交 不好意思 在各位斑竹前献丑了 反正是为了论坛做贡献

xazhji

根据你的意图,好像将两条线段延长到交点.


不过cad中提供的倒圆角命令即可办到,将倒角半径设为0即可.


方便快捷是我们共同追求的.

wb0815

怎么操作啊


楼上的

meflying

fillet


r


0


选择直线1 选择直线2

wb0815

不是太好用啊


还是我的cad的问题

f5612140

fillet是cad基本編輯指令,透過程序再簡化也要1.輸入指令2.選物件一,3.選物件二


和你提供的程序是一樣的操作步驟,r的設定依需要改變再設定即可,很難明白你說不好用的原因

xhf

而且fillet参数r设为0后，除非你再改变它否则一直不变，这个命令相当好用（只需输入“F”回车即可），我就经常使用。

wb0815

呵呵弄错了


在2004下就好使了

f5612140

wb0815发表于2004-5-22 16:18:00呵呵弄错了 在2004下就好使了

哈哈,你又弄錯了 古早版本就是這樣的方法了

alwaysbin

什么东西哟，还不如直接倒角。


就像meflying版主那样。