明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 283|回复: 3

[函数] 模拟CASS微导线

[复制链接]
发表于 2019-1-13 00:06 来自手机 | 显示全部楼层 |阅读模式
;;[功能]模拟CASS微导线
;;[用法](LC:Microwire 起点 终点 方向点 距离)
;(car (trans (mapcar '- pt3 pt1) 0 (mapcar '- pt2 pt1)))左右判断
(defun LC:Microwire (pt1 pt2 pt3 dis / ang1 a)
  (setq        ang1 (angle pt1 pt2)
              a (abs (- (angle pt1 pt3) ang1))
              a (if (> a pi)
                    (- (* pi 2) a)
                    a
                )
  )
        (cond
                ((<= a (* pi 0.25));延伸方向
                        (polar pt2 ang1 dis)
                )
                ((and (<= (* pi 0.25) a (* pi 0.75)) (> (car (trans (mapcar '- pt3 pt1) 0 (mapcar '- pt2 pt1))) 0));左侧垂直方向
                        (polar pt2 (+ ang1 (* pi 0.5)) dis)
                )
                ((and (<= (* pi 0.25) a (* pi 0.75)) (< (car (trans (mapcar '- pt3 pt1) 0 (mapcar '- pt2 pt1))) 0));右侧垂直方向
                        (polar pt2 (- ang1 (* pi 0.5)) dis)
                )
                ((<= (* pi 0.75) a pi);相反方向
                        (polar pt2 ang1 (- dis))
                )
        )
)还请各位大佬优化一下
发表于 2019-1-17 21:40 | 显示全部楼层
我来坐沙发   
发表于 2019-1-17 22:25 | 显示全部楼层
谢谢! 13648893846 分享学习!!!!!!
发表于 2019-1-24 09:09 | 显示全部楼层
谢谢! 13648893846 分享学习!!!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-6-27 06:05 , Processed in 0.157106 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表