[求助]求一个[LISP]程序

魔域狂龙

那位LISP高手帮帮我。帮我编一个程序。我要要一条线上打断2个点或多个。。打断的距离为自定义。。那位高手帮帮忙。。。多谢

onej

CAD不是有打断的功能吗?

魔域狂龙

那不好用,,要是打断一二条怎样打都没有关系要是多了就麻烦了...

ZZXXQQ

楼主是不是要打过桥呀?

onej

因为多了,才编程啊.你也可以截取,然后删除\重画

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. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|;
13. ;;;线开口
14. (defun c:test040 (/ pt1 pt2 pt3 sss nnn e leng df s1)
15.   (CMDLA0)
16.   (setvar "osmode" 0)
17.   (setq pt1 (getvar "VSMIN")
18. pt2 (getvar "VSMax")
19. pt3 (_MIDP pt1 pt2)
20. SSS (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
21. NO1 (UDIST 1 "" "\n\t线长" NO1 pt3)
22. NO2 (UDIST 1 "" "\n\t缺口长" NO2 pt3)
23. nnn -1
24.   )
25.   (while (setq e (ssname sss (setq nnn (1+ nnn))))
26.     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))
27.    df   (fix (abs (/ leng (+ NO1 no2))))
28.     )
29.     (repeat df
30.       (setq pt1 (vlax-curve-getPointAtDist
31.     (vlax-ename->vla-object e)
32.     no1
33.   )
34.      pt2 (vlax-curve-getPointAtDist
35.     (vlax-ename->vla-object e)
36.     (+ no1 no2)
37.   )
38.       )
39.       (command "break" e pt1 pt2)
40.       (command "select" "l" "")
41.       (setq s1 (ssget "p")
42.      e  (ssname s1 0)
43.       )
44.     )
45.   )
46.   (CMDLA1)
47. )

(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屏幕 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554|; ;;;线开口 (defun c:test040 (/ pt1 pt2 pt3 sss nnn e leng df s1)   (CMDLA0)   (setvar "osmode" 0)   (setq pt1 (getvar "VSMIN") pt2 (getvar "VSMax") pt3 (_MIDP pt1 pt2) SSS (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))) NO1 (UDIST 1 "" "\n\t线长" NO1 pt3) NO2 (UDIST 1 "" "\n\t缺口长" NO2 pt3) nnn -1   )   (while (setq e (ssname sss (setq nnn (1+ nnn))))     (setq leng (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e))    df   (fix (abs (/ leng (+ NO1 no2))))     )     (repeat df       (setq pt1 (vlax-curve-getPointAtDist     (vlax-ename->vla-object e)     no1   )      pt2 (vlax-curve-getPointAtDist     (vlax-ename->vla-object e)     (+ no1 no2)   )       )       (command "break" e pt1 pt2)       (command "select" "l" "")       (setq s1 (ssget "p")      e  (ssname s1 0)       )     )   )   (CMDLA1) )