[分享]通用函数

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

院长的总结能力非同常人.

账号		自动登录	找回密码
密码			注册

[资源] [分享]通用函数

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源