xyp1964 发表于 2010-12-25 15:09:47

本帖最后由 xyp1964 于 2010-12-25 15:10 编辑

;【函数】: XYP-MKLA
;【功能】: 建立图层格式化输入
;【语法】: (XYP-MKLA 层名)
(defun xyp-mkLa (LayerName)
(If (= (Tblsearch "layer" LayerName) nil)
    (Command "layer" "m" LayerName "")
    (Command "layer" "t" LayerName "s" LayerName "")
)
(setvar "celtype" "ByLayer")
(setvar "cecolor" "ByLayer")
)

xyp1964 发表于 2010-12-25 15:14:08

本帖最后由 xyp1964 于 2010-12-25 15:15 编辑

平面曲线沿三维曲面附着成Mesh实体

xyp1964 发表于 2010-12-25 15:29:39


【函数】: XYP-PTN-ROTATE
【功能】: 点集绕点旋转
【语法】: (XYP-PTN-ROTATE PTN BASEPOINT RAD)
【参数或返回】: PTN:点集
【参数或返回】: BASEPOINT:旋转基点
【参数或返回】: RAD:旋转弧度角;; xyp-Ptn-Rotate 点集绕点旋转 (xyp-Ptn-Rotate ptn BasePoint rad) ptn:点集 BasePoint:旋转基点 rad:旋转弧度角
(defun xyp-Ptn-Rotate (ptn BasePoint rad / x)
(defun pro (BasePoint ptx rad / pt)
    (setq pt (list (car ptn) (cadr ptn) (caddr ptx)))
    (polar pt (+ rad (angle pt ptx)) (distance pt ptx))
)
(mapcar '(lambda (x) (pro BasePoint x rad)) ptn)
)

xyp1964 发表于 2010-12-25 15:32:29

xyp-Ptn-Rotate 应用示意：

qk983 发表于 2010-12-25 22:44:06

一直在寻找这方面的资料，终于还是在这里找到了，谢谢了！

lincctw_ccl 发表于 2011-1-13 19:03:21

先mark起來 等用到再來下載
謝謝分享

xyp1964 发表于 2011-1-19 07:36:14

本帖最后由 xyp1964 于 2011-1-19 07:42 编辑

动态修改：



daidong013 发表于 2011-6-4 20:55:08

XYP-LINE的函数请院长分享一下！~~

669423907 发表于 2011-6-5 17:38:54

院长好牛啊！

LLXXZZ 发表于 2011-6-5 20:37:14

院长的总结能力非同常人.
页: 1 2 3 4 [5] 6
查看完整版本: [分享]通用函数