社区 › AutoLISP/Visual LISP 编程技术 › 简单的投影程序

菜卷鱼 发表于 2014-1-11 14:39:26

本帖最后由 菜卷鱼 于 2014-1-11 15:04 编辑

圆弧部分已经解决！
((= ac0 "ARC")
(setq dr40 (cdr (assoc 40 info)))
(setq pt10 (cdr (assoc 10 info)))
(setq starc (cdr (assoc 50 info)))
(setq edarc (cdr (assoc 51 info)))
(if
(or
(and(= starc 0)(= edarc pi))
(and(= starc pi)(= edarc 0))
(and(= starc pi2)(= edarc 3pi2))
(and(= starc 3pi2)(= edarc pi2))
)
(setq clt (cons pt10 clt))
)
(cond
    ((or

(and (<= starc pi2)(<= pi2 edarc)(< edarc 3pi2))
(and (<= pi2 edarc)(< edarc 3pi2 starc))
)
   (setq pltud (cons (polar pt10 pi2 dr40) pltud))
    )                                                      ;;上
( (or
(and (<= starc pi2) (>= edarc 3pi2))
(and (<= starc pi2) (< edarc pi2))
(and (> starc 3pi2) (>= edarc 3pi2))
)
   (setq pltud (cons (polar pt10 pi2 dr40)
         (cons (polar pt10 3pi2 dr40) pltud)
   )
   )
    )                                                      ;;LT上下
((<= pi2 edarc starc 3pi2)
   (setq pltud (cons (polar pt10 pi2 dr40)
         (cons (polar pt10 3pi2 dr40) pltud)
   )
   )
    )                                                      ;;RG上下
((and
(> starc pi2) (<= starc 3pi2)
(or (>= edarc 3pi2)(and (>= edarc 0)(< edarc pi2))))
   (setq pltud (cons (polar pt10 3pi2 dr40) pltud))
    )         
)                                                         ;;下
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(cond
((and (<= starc pi edarc) (> starc 0) )
   (setq pltlr (cons (polar pt10 pi dr40) pltlr))
    )                                                   ;;;左
((<= pi edarc starc)
   (setq pltlr (cons (polar pt10 0 dr40)
         (cons (polar pt10 pi dr40) pltlr)
   )
   )
    )                                                   ;;;UP左右
((>= pi starc edarc)
   (setq pltlr (cons (polar pt10 0 dr40)
         (cons (polar pt10 pi dr40) pltlr)
   )
   )
    )                                                   ;;;DN左右
((< edarc pi starc)
   (setq pltlr (cons (polar pt10 0 dr40) pltlr))
    )                                                   ;;;右
)
)

flyfox1047 发表于 2014-1-11 17:24:57

这种投影程序适用范围不是很广，像基本的不通孔，沉孔都无法做到，刚测试了一下，

不知道你的投影是第一角还是第三角投影法？ 上图中两方框选中的线条无论怎么投影都是虚线

菜卷鱼 发表于 2014-1-11 20:53:47

flyfox1047 发表于 2014-1-11 17:24
这种投影程序适用范围不是很广，像基本的不通孔，沉孔都无法做到，刚测试了一下，

不知道你的投影是第一 ...

所以说是粗糙的投影程序啊，没分视角，水平太低了，更高级的功能搞不出来

FANGZHENG158 发表于 2014-1-12 00:39:28

支持一下！

成仔 发表于 2014-1-12 08:10:24

支持源码！

影带走流年 发表于 2014-1-12 09:27:58

高手如云，我等膜拜

crazylsp 发表于 2014-1-14 14:20:16

本帖最后由 crazylsp 于 2014-1-14 14:23 编辑

赞一个真的非常好的好

别说、你懂我 发表于 2014-1-15 09:54:52

挺好的程序，看看啊 学习了！

shalei021647 发表于 2014-1-15 16:17:07

是要先有cad三D图形了，再用这个进行投影的吗？

菜卷鱼 发表于 2014-1-16 08:24:23

shalei021647 发表于 2014-1-15 16:17 static/image/common/back.gif
是要先有cad三D图形了，再用这个进行投影的吗？

没有你想象的那么高级，只能投影简单的2D图形

查看完整版本: 简单的投影程序