xyp1964 发表于 2008-12-10 22:13:22

[分享]：通用函数XYPLib.vlx

通用函数XYPLib.vlx——V20081209

xyp1964 发表于 2008-12-10 22:14:08

xyp-Delete-Coordinates 删除LW线顶点 (xyp-Delete-Coordinates 实体名 顶点索引值表)

theradish 发表于 2008-12-11 08:36:26

已经有1M多的裤了吗？
这个是精简过的吧。。。

ruan_gdqf 发表于 2008-12-11 15:42:25

为什么不写一下说明呢？
发帖要考虑实用性。

xyp1964 发表于 2008-12-12 00:24:43

;; 曲线长度XLS列表
(defun c:test733 (/ ss ptn XlsD i s1)
(CMDLA0)
(setq        ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
        i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptn (cons (list (1+ i) (xyp-get-CurveLength s1)) ptn))
)
(if ptn
    (progn
      (setq XlsD (xyp-vlxls-Vertexs2StrLst (reverse ptn))
          XlsD (mapcar '(lambda (x) (list (itoa (atoi (car x))) (cadr x)))
                       XlsD
               )
          XlsD (cons '("序号" "线长") XlsD)
      )
      (xyp-vlxls-NewAddDate "A1" XlsD)
    )
)
(CMDLA1)
)

xyp1964 发表于 2008-12-12 00:25:18

;; 多曲线生成mesh
(defun c:test734 (/ ss i s1 ptn ptnlst)
(CMDLA0)
(setq        ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
        i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ptn       (xyp-get-CurveDivNumPtlst s1 50)
          ptn       (cons (xyp-get-CurveENDPoint s1) ptn)
          ptnlst (cons ptn ptnlst)
    )
)
(if ptnlst
    (xyp-3D-MeshWithPtns ptnlst)
)
(CMDLA1)
)

xyp1964 发表于 2008-12-12 00:26:53

;; 交点坐标标注
(defun c:test737 ()
(CMDLA0)
(if (and (setq s1 (car (entsel "\n选择主线: ")))
           (xyp-curve-check s1)
      )
    (progn (setq ptn (xyp-get-CurveIntersLeng s1 3)
               i   1
           )
           (xyp-mkLaCo "zbbz" 3)
           (foreach pt ptn
             (xyp-zb pt 1000 4 1 i)
             (setq i (1+ i))
           )
    )
)
(CMDLA1)
)

bloodmao 发表于 2008-12-13 20:34:31

这个和以前那个有什么新东西吗？好像没有说明哦

bridgewind 发表于 2008-12-21 13:13:12

好长时间没上了，回来非常亲切。。

kmdz 发表于 2008-12-28 17:44:25

哪个弄个说明啊，不然实在不好用。

rainshily 发表于 2009-1-6 12:40:58

不知道怎么用呀！

taner 发表于 2009-1-6 13:35:27

院长把贴挂在这里，几百年也不理一下！

zou_ys 发表于 2009-2-19 15:33:20

不知道是否能提供帮助文档啊

hh2776 发表于 2009-2-24 14:17:04

好长时间没上了，回来非常亲切。。

xyp1964 发表于 2009-2-24 23:34:41

通用函数XYPLib.vlx正式退休！
页: [1] 2
查看完整版本: [分享]：通用函数XYPLib.vlx