您人真好，向你学习
很有用的东东，谢谢
<P>xyp_lib通用函数说明（CHM格式）：1楼下载</P>
好东西，绝对支持！有了通用函数说明的帮助文件，相信大家从中受益非浅！
升级为xyplib.vlx，1楼下载！
谢谢各位,这个的确是很好的东西,
<p>我还是不晓得怎么使用啊?</p><p>楼主能不能把操作步骤更详细的说一下?<br/></p><p>引用这些函数时快捷命令是什么?</p>
;;; 圆心坐标转EXCEL
(defun c:test660 (/ ss i s1 ptn ptn1)
(cmdla0)
(princ "\n选择圆: ")
(setq ss (ssget '((0 . "CIRCLE")))
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (cons (cons (xyp-get-dxf 40 s1) (xyp-get-dxf 10 s1)) ptn))
)
(setq i 0
ptn1 (mapcar '(lambda (x) (cons (itoa (setq i (1+ i))) x))
(xyp-vlxls-Vertexs2StrLst (reverse ptn))
)
)
(xyp-vlxls-NewAddDate
"A1"
(cons '("序号" "半径" "X坐标" "Y坐标" "Z坐标") ptn1)
)
(cmdla1)
)
本帖最后由 作者 于 2008-5-18 23:42:24 编辑
通用函数XYPLib.vlx应用实例：自身镜像
;; zsjx(自身镜像)
(defun c:zsjx (/ ss i s1 pt)
(CMDLA0)
(xyp-initSet '(k1 k2 k3 k4 real) '("4" "1" "0" "1" 0.0))
(setq lst'("1-左下" "2-中下" "3-右下" "4-左中" "5-正中" "6-右中" "7-左上" "8-中上" "9-右上")
initlist '(("k0" nil "imagebutton" "-2" "28" "xyp1964(基点九位码)" "(XYP-ABOUTME)")
(nil nil "spacer_1;")
("k1" "基点九码" "poplist" "lst" "18")
("real" "镜像角度" "real" "18")
(nil nil "spacer_1;")
(nil nil ":boxed_radio_row{label=\"选择方式\";")
("k2" "单个实体" "radio")
("k3" "选择集" "radio")
(nil nil "}")
("k4" "保留实体" "bool")
(nil nil "spacer_1;")
)
i-1
)
(if (and (= (xyp-Dcl-Init initlist "【自身镜像】" t) 1)
(/= real 1.0)
)
(cond ((= k2 "1")
(princ "\n选择实体<退出>: ")
(if (setq ss (ssget))
(progn
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (xyp-get-MinMaxPoint s1 (1+ (atoi k1)))
p1 (polar pt (xyp-ang2rad real) 10)
ro (if (= k4 "1")
"N"
"Y"
)
)
(command "mirror" s1 "" pt p1 ro)
)
)
)
)
((= k3 "1")
(princ "\n选择<退出>: ")
(while (setq ss (ssget))
(setq pt (xyp-get-ssMinMaxPoint ss (1+ (atoi k1)))
p1 (polar pt (xyp-ang2rad real) 10)
ro (if (= k4 "1")
"N"
"Y"
)
)
(command "mirror" ss "" pt p1 ro)
(princ "\n选择<退出>: ")
)
)
)
)
(CMDLA1)
)
虽然不太明白这些函数的意义，不过先下下来再说