[编程申请]：CAD打断扩展

ewenhui · 发表于 2005-9-28 16:46:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

任意一点打断，比如，点选了线中点，就在中点处开口，并且可控制缺口宽度。

xyp1964 · 发表于 2005-9-29 00:23:48

[FONT=courier new](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")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
;;;打断扩展
(defun c:test ()
(CMDLA0)
(setvar "osmode" 0)
(setq no1 (UREAL 7 "" "\n输入打断距离" no1))
(while (setq s1 (entsel "\n选择要打断的线<退出> : "))
(setq dist (/ no1 2.0)
e (car s1)
p (cadr s1)
pt (osnap p "near")
rad (PT-ANG e pt)
pt1 (polar pt rad dist)
pt2 (polar pt rad (* dist -1.0))
)
(command "break" s1 "f" pt1 pt2)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](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") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
;;;打断扩展 
(defun c:test () 
  (CMDLA0) 
  (setvar "osmode" 0) 
  (setq no1 (UREAL 7 "" "\n输入打断距离" no1)) 
  (while (setq s1 (entsel "\n选择要打断的线<退出> : ")) 
    (setq dist (/ no1 2.0) 
          e    (car s1) 
          p    (cadr s1) 
          pt   (osnap p "near") 
          rad  (PT-ANG e pt) 
          pt1  (polar pt rad dist) 
          pt2  (polar pt rad (* dist -1.0)) 
    ) 
    (command "break" s1 "f" pt1 pt2) 
  ) 
  (CMDLA1) 
)[/FONT]

ewenhui · 发表于 2005-9-29 14:43:35

谢谢2楼楼主，可是你做的只能在中点开口，而不是任意点。能不能再更改，谢谢了！

xyp1964 · 发表于 2005-9-29 18:22:10

最初由 ewenhui 发布
[B]谢谢2楼楼主，可是你做的只能在中点开口，而不是任意点。能不能再更改，谢谢了！ [/B]

不是任意点?

ewenhui · 发表于 2005-9-29 18:38:16

真对不起，很抱歉！没看清楚，对不起了。如果可以对象捕捉追踪就更好了。

xyp1964 · 发表于 2005-9-29 19:19:53

对象捕捉追踪：

[FONT=courier new];;;打断扩展
(defun c:test ()
(CMDLA0)
(setq no1 (UREAL 7 "" "\n输入打断距离" no1))
(while (setq s1 (entsel "\n选择要打断的线<退出> : "))
(setq os (getvar "osmode"))
(setq dist (/ no1 2.0)
e (car s1)
p (cadr s1)
pt (osnap p "near")
rad (PT-ANG e pt)
pt1 (polar pt rad dist)
pt2 (polar pt rad (* dist -1.0))
)
(setvar "osmode" 0)
(command "break" s1 "f" pt1 pt2)
(setvar "osmode" os)
)
(CMDLA1)
)[/FONT]

ewenhui · 发表于 2005-9-29 22:05:26

不好意思，斑竹您写的第二个程序还是不能对象捕捉。谢谢！

xyp1964 · 发表于 2005-9-29 23:22:10

最初由 ewenhui 发布
[B]不好意思，斑竹您写的第二个程序还是不能对象捕捉。谢谢！ [/B]

偶也不会了！呵呵……

[FONT=courier new];;;打断扩展
(defun c:test ()
(CMDLA0)
(setq no1 (UREAL 7 "" "\n输入打断距离" no1))
(while (setq pt (getpoint "\n选择要打断的点<退出> : "))
(setq os (getvar "osmode")
pt1 (osnap pt "near")
s1 (ssname (ssget pt1) 0)
rad (PT-ANG s1 pt1)
pt2 (polar pt1 rad (* (/ no1 2.0) -1.0))
pt3 (polar pt1 rad (/ no1 2.0))
)
(setvar "osmode" 0)
(command "break" (list s1 pt1) "f" pt2 pt3)
(setvar "osmode" os)
)
(CMDLA1)
)[/FONT]

ewenhui · 发表于 2005-9-30 14:01:29

在这里谢谢了！最近发现一个问题，加载了应用程序，运行后对象捕捉全部被关闭，应该如何注意这个问题

xyp1964 · 发表于 2005-9-30 15:07:38

最初由 ewenhui 发布
[B]在这里谢谢了！最近发现一个问题，加载了应用程序，运行后对象捕捉全部被关闭，应该如何注意这个问题 [/B]

可能：
1、程序有错。运行了哪个程序？
2、程序非正常中断。

ewenhui · 发表于 2005-9-30 15:25:22

问题处在“程序非正常中断”，谢谢！

xyp1964 · 发表于 2005-9-30 16:23:43

最初由 ewenhui 发布
[B]问题处在“程序非正常中断”，谢谢！ [/B]

不能非正常中断！
程序中的cmdla0和cmdla1保存和恢复用户当前系统变量。
让程序执行完，如果不满意，用undo回退上一次操作。

账号		自动登录	找回密码
密码			立即注册

[编程申请]：CAD打断扩展

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块