画焊缝的LISP

chrispeng_518

   经典图书

画焊缝的LISP画焊缝的LISP
画焊缝的LISP.rar (734 Bytes, 下载次数: 12)

2011-9-10 08:42 上传

点击文件名下载附件
下载积分: 金币 -1

rdq2005

谢谢，大侠的分享

lxmhhb

   经典图书

有没有图片啊

dinv123

下面是他的程序，我改了一下：
(DEFUN C:WELD ()
        (setq os (getvar "osmode") cm (getvar "cmdecho") s (getvar "snapang"))
        (Setvar "cmdecho" 0)
        (setvar "osmode" 512)
        (setq p1 (getpoint "n起点"))
        (setq p2 (getpoint p1 "终点"))
        (prompt (strcat "方向是" (rtos (* (/ 180 pi) (angle p1 p2))) "度 ,焊缝长度为 "(rtos (distance p1 p2)) ))
        (setq z (getreal "n焊峰高"))
        (Setvar "osmode" 0)
        (setq p3 (polar p1 (angle p1 p2) (* 2 z)))
        (command "arc" p1 "e" p3 "a" 180)
        (setq p4 (polar p3 (- (angle p1 p2) (* 120 (/ PI 180))) Z))
        (setq n (- (/ (distance p1 p2) z) 2))
        (command "arc" p4 "c" p3 "a" 120)
        (setq x 1)
        (while (<= x n) (setq x (+ x 1)))
        (setvar "snapang" (angle p1 p2))
        (command "array" "last" "" "r" "" (- x 1) z)
    (setvar "osmode" os)
        (setvar "snapang" s)
        (setvar "cmdecho" cm)
        (princ)
)

lixuanjing

   经典案例图书

lisp想当年我也用的很熟练，可是现在很久没用了就生疏了。

ukatan

谢谢，大侠的分享

newmatlab

   经典案例图书

谢谢，大侠的分享