[分享]通用函数

GJYCRJ

您人真好，向你学习

zh74

很有用的东东，谢谢

xyp1964

xyp_lib通用函数说明（CHM格式）：1楼下载

ljpnb

好东西，绝对支持！有了通用函数说明的帮助文件，相信大家从中受益非浅！

xyp1964

升级为xyplib.vlx，1楼下载！

jxlsp

谢谢各位,这个的确是很好的东西,

hcht

我还是不晓得怎么使用啊?

楼主能不能把操作步骤更详细的说一下?

引用这些函数时快捷命令是什么?

xyp1964

2. ;;; 圆心坐标转EXCEL
3. (defun c:test660 (/ ss i s1 ptn ptn1)
4.   (cmdla0)
5.   (princ "\n选择圆: ")
6.   (setq ss (ssget '((0 . "CIRCLE")))
7. i  -1
8.   )
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
10.     (setq ptn (cons (cons (xyp-get-dxf 40 s1) (xyp-get-dxf 10 s1)) ptn))
11.   )
12.   (setq i    0
13. ptn1 (mapcar '(lambda (x) (cons (itoa (setq i (1+ i))) x))
14.        (xyp-vlxls-Vertexs2StrLst (reverse ptn))
15.       )
16.   )
17.   (xyp-vlxls-NewAddDate
18.     "A1"
19.     (cons '("序号" "半径" "X坐标" "Y坐标" "Z坐标") ptn1)
20.   )
21.   (cmdla1)
22. )

;;; 圆心坐标转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) )

xyp1964

通用函数XYPLib.vlx应用实例：自身镜像

2. ;; zsjx(自身镜像)
3. (defun c:zsjx (/ ss i s1 pt)
4.   (CMDLA0)
5.   (xyp-initSet '(k1 k2 k3 k4 real) '("4" "1" "0" "1" 0.0))
6.   (setq lst  '("1-左下" "2-中下" "3-右下" "4-左中" "5-正中" "6-右中" "7-左上" "8-中上" "9-右上")
7. initlist '(("k0" nil "imagebutton" "-2" "28" "xyp1964(基点九位码)" "(XYP-ABOUTME)")
8.      (nil nil "spacer_1;")
9.      ("k1" "基点九码" "poplist" "lst" "18")
10.      ("real" "镜像角度" "real" "18")
11.      (nil nil "spacer_1;")
12.      (nil nil ":boxed_radio_row{label="选择方式";")
13.      ("k2" "单个实体" "radio")
14.      ("k3" "选择集" "radio")
15.      (nil nil "}")
16.      ("k4" "保留实体" "bool")
17.      (nil nil "spacer_1;")
18.     )
19. i  -1
20.   )
21.   (if (and (= (xyp-Dcl-Init initlist "【自身镜像】" t) 1)
22.     (/= real 1.0)
23.       )
24.     (cond ((= k2 "1")
25.     (princ "\n选择实体<退出>: ")
26.     (if (setq ss (ssget))
27.       (progn
28.         (setq i -1)
29.         (while (setq s1 (ssname ss (setq i (1+ i))))
30.    (setq pt (xyp-get-MinMaxPoint s1 (1+ (atoi k1)))
31.          p1 (polar pt (xyp-ang2rad real) 10)
32.          ro (if (= k4 "1")
33.        "N"
34.        "Y"
35.      )
36.    )
37.    (command "mirror" s1 "" pt p1 ro)
38.         )
39.       )
40.     )
41.    )
42.    ((= k3 "1")
43.     (princ "\n选择<退出>: ")
44.     (while (setq ss (ssget))
45.       (setq pt (xyp-get-ssMinMaxPoint ss (1+ (atoi k1)))
46.      p1 (polar pt (xyp-ang2rad real) 10)
47.      ro (if (= k4 "1")
48.    "N"
49.    "Y"
50.         )
51.       )
52.       (command "mirror" ss "" pt p1 ro)
53.       (princ "\n选择<退出>: ")
54.     )
55.    )
56.     )
57.   )
58.   (CMDLA1)
59. )

;; 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) )

luchangliang

虽然不太明白这些函数的意义，不过先下下来再说