在圆弧或圆上按需打断

jcmtxgt

请教各位大吓,如何用lisp实现在圆弧或圆上按需打断一定长度的断口呢?

比如我要在一个圆上断开三个断口(个数可以自己定),lisp 会按等距离打断,每个口的长度是四个毫米(长度 可以自己定),也可以支持圆弧的.请各位大吓帮帮忙!  先谢啦!

xyp1964

针对封闭曲线还有BUG：

2. (load "xyp_lib.vlx")  ;版本 V.20060211(2064)
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
7. ■3·在command下，输入(load"xyp_lib.vlx")
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. |;
13. ;;;等分线并开口 : 等分曲线并打断，使线长相等、缺口长相等 <jcmtxgt>
14. ;;;xkk(线开口)
15. (defun c:xkk ()
16.   (CMDLA0)
17.   (setvar "osmode" 0)
18.   (setq int (UINT 7 "" "\n等分份数" int)
19. dis (UDIST 7 "" "\n缺口长度" dis nil)
20. ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
21. i   -1
22.   )
23.   (while (setq e (ssname ss (setq i (1+ i))))
24.     (setq pte (xyp-get-CurveEndPoint e)
25.    pts (xyp-get-CurveStartPoint e)
26.     )
27.     (if (equal pts pte)
28.       (setq l1 (xyp-get-CurveLength e)
29.      l2 (/ (- l1 (* int dis)) int 1.0)
30.      no int
31.       )
32.       (setq l1 (xyp-get-CurveLength e)
33.      l2 (/ (- l1 (* (- int 1) dis)) int 1.0)
34.      no (- int 1)
35.       )
36.     )
37.     (if (> l2 0)
38.       (repeat no
39. (setq pt1 (xyp-get-CurvePointAtDist e l2)
40.        pt2 (xyp-get-CurvePointAtDist e (+ l2 dis))
41. )
42. (command "break" (list e pt1) "f" pt1 pt2)
43. (setq e (entlast))
44.       )
45.     )
46.   )
47.   (CMDLA1)
48. )
49. (pxyp "xkk  (线开口)")

(load "xyp_lib.vlx")  ;版本 V.20060211(2064) ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib.vlx") ■2·在每个程序内增加(load"xyp_lib.vlx") ■3·在command下，输入(load"xyp_lib.vlx") ■4·在菜单.mnl中增加(load"xyp_lib.vlx") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] |; ;;;等分线并开口 : 等分曲线并打断，使线长相等、缺口长相等 <jcmtxgt> ;;;xkk(线开口) (defun c:xkk ()   (CMDLA0)   (setvar "osmode" 0)   (setq int (UINT 7 "" "\n等分份数" int) dis (UDIST 7 "" "\n缺口长度" dis nil) ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) i   -1   )   (while (setq e (ssname ss (setq i (1+ i))))     (setq pte (xyp-get-CurveEndPoint e)    pts (xyp-get-CurveStartPoint e)     )     (if (equal pts pte)       (setq l1 (xyp-get-CurveLength e)      l2 (/ (- l1 (* int dis)) int 1.0)      no int       )       (setq l1 (xyp-get-CurveLength e)      l2 (/ (- l1 (* (- int 1) dis)) int 1.0)      no (- int 1)       )     )     (if (> l2 0)       (repeat no (setq pt1 (xyp-get-CurvePointAtDist e l2)        pt2 (xyp-get-CurvePointAtDist e (+ l2 dis)) ) (command "break" (list e pt1) "f" pt1 pt2) (setq e (entlast))       )     )   )   (CMDLA1) ) (pxyp "xkk  (线开口)")

jcmtxgt

版主,我用的是R14啊,加载不了.vlx.可否编个lisp,直接加载就可以用了!不胜感谢!!!!

yshf

安装一个2000以上的版本不就行了吗！