求助：对两个线（圆弧）倒角后成为连接的pline.

MRHDF

对两个线（圆弧）倒角后成为连接的pline.         这样就方便了         谁能帮帮我啊。拜谢先。



（我对lisp了解的太皮毛了）

houlinbo

是需要编程实现倒圆角操作吗？

xyp1964

2. (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 通用函数下载地址:
11. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
12. |;(defun c:test ()
13.    (CMDLA0)
14.    (setq  rad (UREAL 1 "" "\n圆角半径" rad)
15.   s1   (USEL1 0 "ARC" "圆弧1")
16.   s2   (USEL1 0 "ARC" "圆弧2")
17.    )
18.    (setvar "FILLETRAD" rad)
19.    (command "fillet" s1 s2)
20.    (setq s3 (entlast))
21.    (command "pedit" "m" s1 s2 s3 "" "Y" "J" "" "")
22.    (CMDLA1)
23. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |;(defun c:test ()    (CMDLA0)    (setq  rad (UREAL 1 "" "\n圆角半径" rad)   s1   (USEL1 0 "ARC" "圆弧1")   s2   (USEL1 0 "ARC" "圆弧2")    )    (setvar "FILLETRAD" rad)    (command "fillet" s1 s2)    (setq s3 (entlast))    (command "pedit" "m" s1 s2 s3 "" "Y" "J" "" "")    (CMDLA1) )

MRHDF

谢谢你                                 我这两天去搞那个该死的施工图                        看到斑竹见义勇为 万分感激，献上鲜花一个，小表心意。

MRHDF

还有一个问题，         我把修剪的命令宏写成这个样子：


(defun C:tt() (command "trim" "w" pause pause "" "f"))


或者


(defun C:tt() (command "trim" pause"f"))                         在选择边界的时候只能用特定的一种选择方式         w 或者 单击                         。                                                                                 我想[U]让我随便选[/U]，选择后右击就自动输入"f".                 该怎么板呢