[测试]：请xyp1964斑主再测试一下，附件已上传

Rooojg

晓东上传附件不成功，现上传至空间，请斑主再测试一下，谢谢。
非常感谢斑主提供的程序
(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://www.xdcad.net/forum/attachme...&postid=1606661
|;

;;;每个圆心插入垂直交叉直线
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "CIRCLE")))
i -1
)
(mkla "中心线" 1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p0 (cdr (assoc 10 (entget s1)))
l (cdr (assoc 40 (entget s1)))
)
(xyp_szx p0 (* l 0.25));0.25倍直径
)
(CMDLA1)
)
但附件中的图我每次最多只能有四个圆完成。
附件地址：http://www.wirefiles.com/show.php/39_test.zip

xyp1964

经测试没有问题。