迹扬 发表于 2014-10-6 19:13:59

简单画角码

;;;(铝角)----------------------------------------------------
(defun c:jl ()
      (setvar "cmdecho" 0)
      (setq cl (getvar "clayer")
            unit (getvar "luprec")
      osm (getvar "osmode")
      )
      (setvar "osmode" 0)
      (setvar "luprec" 0)
      (command ".layer" "m" "EXTRU" "c" "GREEN" "" "" )
      (command ".layer" "set" "EXTRU" "" )
      
      (setq l 25)
      (if (> l 0)
                (setq #l l)
                (setq l 25)
      )
      (setq pr1 (strcat "\nHorizontal Length Of Alum. Angle <"(rtos #l)">=")
      )      
      (initget 6)
      (if (setq l (getdist pr1))
                nil
                (setq l #l)
      )
      
      (setq w 25)
      (if (> w 0)
                (setq #w w)
                (setq w 25)
      )
      (setq pr2 (strcat "\nVertical Length Of Alum. Angle <"(rtos #w)">= ")
      )
      (initget 6)      
      (if (setq w (getdist pr2))
                nil
                (setq w #w)
      )

      (setq th 3)      
      (if (> th 0)
                (setq #th th)
                (setq th 3)
      )
      (setq pr3 (strcat "\nThickness Of Alum. Angle <"(rtos #th)">= ")
      )
      (initget 6)
      (if (setq th (getdist pr3))
                nil
                (setq th #th)
      )
      (setq p1 (getpoint "\nBase-point Of Alum. Angle: ")
            p2 (list (+ l (car p1)) (cadr p1))
            p3 (list (car p2) (+ th (cadr p2)))
            p4 (list (+ th (car p1)) (+ th (cadr p1)))
            p5 (list (car p4) (+ w (cadr p1)))
            p6 (list (car p1) (+ w (cadr p1)))
      )
      
      (command ".pline" p1 p2 p3 p4 p5 p6 "c"
               ".layer" "set" cl ""
               ".rotate" "l" "" p1 pause
      )
      (setvar "cmdecho" 1)
      (setvar "luprec" unit)
(setvar "osmode" osm)
      (prompt "\nAlum. Angle is done.\n")
)

迹扬 发表于 2014-10-6 19:16:48

http://bbs.mjtd.com/data/attachment/album/201410/06/191546ica096etra7rpvac.gif

李青松 发表于 2014-10-14 15:00:15

很好，支持

水仙的错 发表于 2016-2-20 21:46:32

什么程序，没有图片

峰峰兒 发表于 2016-2-21 07:30:51

好好-MEN 发表于 2017-8-27 21:19:11

页: [1]
查看完整版本: 简单画角码