MRHDF 发表于 2005-6-1 17:25:00

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

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



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

houlinbo 发表于 2005-6-3 22:12:00

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

xyp1964 发表于 2005-6-4 21:49:00

(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)
   (setqrad (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 发表于 2005-6-10 11:38:00

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

MRHDF 发表于 2005-6-10 11:53:00

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


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


或者


(defun C:tt() (command "trim" pause"f"))                       在选择边界的时候只能用特定的一种选择方式       w 或者 单击                       。                                                                               我想让我随便选，选择后右击就自动输入"f".               该怎么板呢
页: [1]
查看完整版本: 求助：对两个线（圆弧）倒角后成为连接的pline.