一个简单而实用的程序

wb0815 · 发表于 2004-5-22 13:16:00

(defun c:ext ()
   (setq a (entsel ))
   (setq s (entsel ))
   (command "extend" a ""    "e" "e" s    "")
   (command "extend" s "" a "")
   )

两线延长相交
不好意思
在各位斑竹前献丑了
反正是为了论坛做贡献

xazhji · 发表于 2004-5-22 13:21:00

根据你的意图,好像将两条线段延长到交点.
不过cad中提供的倒圆角命令即可办到,将倒角半径设为0即可.
方便快捷是我们共同追求的.

wb0815 · 发表于 2004-5-22 14:05:00

怎么操作啊
楼上的

meflying · 发表于 2004-5-22 14:11:00

fillet
r
0
选择直线1 选择直线2

wb0815 · 发表于 2004-5-22 14:25:00

不是太好用啊
还是我的cad的问题

f5612140 · 发表于 2004-5-22 14:41:00

fillet是cad基本編輯指令,透過程序再簡化也要1.輸入指令2.選物件一,3.選物件二
和你提供的程序是一樣的操作步驟,r的設定依需要改變再設定即可,很難明白你說不好用的原因

xhf · 发表于 2004-5-22 15:59:00

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

wb0815 · 发表于 2004-5-22 16:18:00

呵呵弄错了
在2004下就好使了

f5612140 · 发表于 2004-5-22 16:36:00

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

alwaysbin · 发表于 2004-5-23 13:38:00

什么东西哟，还不如直接倒角。
就像meflying版主那样。

一个简单而实用的程序

发表回复

精选推荐