[LISP]各位大哥，有没有这样的修剪和延伸程序。

天浪风沙

能不能有这样的程序，谢谢……


因为画图，最多的还是修剪和延伸。而修剪和延伸都需要指定边界的。有时候往往又没有边界可选，这时候，就需要临时创建一条直线当作边界。等到修改完后再删除此边界。。目的是为了将许多参差不齐的线条对齐于从某一点开始的直线。（change命令也许可以，但不完善。）


所以，如果能启动一个程序，临时画一条虚直线当作边界，等到修改完后，自动删除此边界。真实省事省力。。

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. |;;;;参考延伸或修剪
13. (defun c:test ()
14.    (cmdla0)
15.    (mkla "参考线" 1)
16.    (setq tx1 (UKWORD 1 "1 2" "\n1-延伸/2-修剪" tx1))
17.    (if (setq pt1 (getpoint "\n参考线起点<退出> : "))
18.        (progn
19.            (command "pline" pt1)
20.            (while (setq pt2 (getpoint pt1 "\n参考线下一点<退出> : "))
21.   (command pt2)
22.   (setq pt1 pt2)
23.            )
24.            (command)
25.            (setq s1 (entlast))
26.            (cond ((= tx1 "1")           (command "extend" s1 ""))
27.          ((= tx1 "2")           (command "trim" s1 ""))
28.          )
29.            (while (setq s2 (entsel))
30.   (command s2)
31.            )
32.            (command)
33.            (command "erase" s1 "")
34.        )
35.    )
36.    (cmdla1)
37. )

(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)    (mkla "参考线" 1)    (setq tx1 (UKWORD 1 "1 2" "\n1-延伸/2-修剪" tx1))    (if (setq pt1 (getpoint "\n参考线起点<退出> : "))        (progn            (command "pline" pt1)            (while (setq pt2 (getpoint pt1 "\n参考线下一点<退出> : "))   (command pt2)   (setq pt1 pt2)            )            (command)            (setq s1 (entlast))            (cond ((= tx1 "1")           (command "extend" s1 ""))          ((= tx1 "2")           (command "trim" s1 ""))          )            (while (setq s2 (entsel))   (command s2)            )            (command)            (command "erase" s1 "")        )    )    (cmdla1) )

天浪风沙

谢谢。


不过你的这个程序修剪或者延伸的时候不能象cad一样选择物体，非常不方便。


建议能够保持cad的trim和extrend的所有功能。。