[求助]如何设置“夹持点”？

Study

在画图时，复制长圆孔时候，出现太多点，而我只是想要个长圆孔的中点，请问各位大虾，这问题应怎样解决呢？

黄其辉

不明白！

你是通过两个圆及其切线，然后修剪的吗？

我不明白你说的中点

xyp1964

2. (load "xyp_lib.vlx") ;版本 V.20060314
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
12. |;
13. (defun c:test ()
14.   (setq s1(car(entsel"\n选择要复制的长圆孔: "))
15. pt(xyp-get-MinMaxPoint s1 5)
16.   )
17.   (command"copy" s1 "" pt)
18. )

(load "xyp_lib.vlx") ;版本 V.20060314 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★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://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; (defun c:test ()   (setq s1(car(entsel"\n选择要复制的长圆孔: ")) pt(xyp-get-MinMaxPoint s1 5)   )   (command"copy" s1 "" pt) )