[求助]：画角钢的程序

karl_chan · 发表于 2006-1-23 20:17:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

下面是一画角钢的程序,运行结果令我费解, 有时可以画出个角钢
有时结果是一个不规则的乱图, 请各位帮帮忙为什么会这样!!!

(defun c:dl ()
(setvar "osmode" 2751)
(setq a (getpoint "\nspecify the basic point:"))
(setq xo (nth 0 a))
(setq yo (nth 1 a))
(setq le (getdist "\nspecify the length:"))
(setq th (getdist "\nspecify the thickness:"))
(setq le1 (- le th))
(setq th1 (* th 2))
(setq th2 (* th 3))
(setq le2 (- le th1))
(setq le3 (- le th2))

(setq x1 (+ xo le))
(setq x2 (+ xo le1))
(setq x3 (+ xo th1))
(setq x4 (+ xo th))
(setq y1 (- yo th))
(setq y2 (- yo th1))
(setq y3 (- yo le1))
(setq y3 (- yo le))

(setq b (list x1 yo))
(setq c (list x2 y1))
(setq d (list x3 y1))
(setq e (list x4 y2))
(setq f (list x4 y3))
(setq g (list xo y4))

(command "pline" a "w" 0 0 b "a" "r" th "a" -90 c
               "l" d "a" "r" th "a" 90 e
               "l" f "a" "r" th "a" -90 g "l" a "")

)

xyp1964 · 发表于 2006-1-23 20:29:51

“角钢”是啥东东？呵呵……
发个正确的看看！

似乎应该这样：

karl_chan · 发表于 2006-1-23 21:01:22

标注不在绘画范围内.....请各位批改, 谢了!!!

xyp1964 · 发表于 2006-1-23 21:35:56

直角的内侧似乎不应倒角，边宽与内圆弧半径是对应的，边厚可变。

karl_chan · 发表于 2006-1-23 22:25:44

我猜测, 程序在计算时公式时,计算结果时对时错, 在不知如何解决, 请斑主指导!!!

dottedbox · 发表于 2006-1-23 22:26:58

我也有过同样的问题，是作一个角钢的断面，现在还没解决呢！

karl_chan · 发表于 2006-1-23 23:22:20

不好意思!!!第一次贴上的程序有笔误..(setq y3 (- yo le))改为.(setq y4 (- yo le)). 另"pline"命令中多加了圆弧的弦方向参数"-135"......尽管如此,问题还是没解决!!!! 郁闷...时对时错!!!

(defun c:dl ()
(setvar "osmode" 2751)
(setq a (getpoint "\nspecify the first point:"))
(setq xo (nth 0 a))
(setq yo (nth 1 a))
(setq le (getdist "\nspecify the length:"))
(setq th (getdist "\nspecify the thickness:"))
(setq le1 (- le th))
(setq th1 (* th 2.0))
(setq th2 (* th 3.0))
(setq le2 (- le th1))
(setq le3 (- le th2))

(setq x1 (+ xo le))
(setq x2 (+ xo le1))
(setq x3 (+ xo th1))
(setq x4 (+ xo th))
(setq y1 (- yo th))
(setq y2 (- yo th1))
(setq y3 (- yo le1))
(setq y4 (- yo le))

(setq b (list x1 yo))
(setq c (list x2 y1))
(setq d (list x3 y1))
(setq e (list x4 y2))
(setq f (list x4 y3))
(setq g (list xo y4))

(command "pline" a "w" 0 0 b "a" "r" th "a" -90 -135 c
               "l" d "a" "r" th "a" 90 -135 e
               "l" f "a" "r" th "a" -90 -135 g "l" a )

)

xyp1964 · 发表于 2006-1-24 00:10:31

试试这个：
rzdbjg(热轧等边角钢).vlx

可以绘制所有种类的标准热轧等边角钢断面！
利用lsp强大的“表”功能完成烦琐的筛选要求。[/COLOR]

qjcpj · 发表于 2006-1-24 00:52:21

最初由 karl_chan 发布
[B]下面是一画角钢的程序,运行结果令我费解, 有时可以画出个角钢
有时结果是一个不规则的乱图, 请各位帮帮忙为什么会这样!!!

(defun c:dl ()
(setvar "osmode" 2751)
(setq a (getpoint "\nspecify the basic p... [/B]

先将osmode设为0，程序结束后再改回去。以这种方法试试看！

karl_chan · 发表于 2006-1-24 23:36:43

谢谢楼上这位老师和斑主., 将osmode设为0后, 程序运行正常!!!!!!

xyp1964 · 发表于 2006-1-25 00:50:44

全部热轧等边角钢的数据如下：

[FONT=courier new]
;;数据格式：(等边角钢号数边宽 (边厚列表) 内圆弧半径)
(setq lst '((2 20 (3 4) 3.5)
(2.5 25 (3 4) 3.5)
(3 30 (3 4) 4.5)
(3.6 36 (3 4 5) 4.5)
(4 40 (3 4 5) 5)
(4.5 45 (3 4 5 6) 5)
(5 50 (3 4 5 6) 5.5)
(5.6 56 (3 4 5 8) 6)
(6.3 63 (4 5 6 8 10) 7)
(7 70 (4 5 6 7 8) 8)
(7.5 75 (5 6 7 8 10) 9)
(8 80 (5 6 7 8 10) 9)
(9 90 (6 7 8 10 12) 10)
(10 100 (6 7 8 10 12 14 16) 12)
(11 110 (7 8 10 12 14) 12)
(12.5 125 (8 10 12 14) 14)
(14 140 (10 12 14 16) 14)
(16 160 (10 12 14 16) 16)
(18 180 (12 14 16 18) 16)
(20 200 (14 16 18 20 24) 18)
)
)[/FONT]

sanywufour · 发表于 2006-2-11 13:01:45

我有个更详细的型钢库程序，等我的级别到了，我上传！

xiaoquansb · 发表于 2006-2-20 09:29:16

角钢这东西在结构工具箱里有了啊，搞结构搞机械的应该都会装吧，不如画点别的东西吧

ynjzlzd · 发表于 2006-2-22 12:08:51

8楼的朋友,软件找不到下载资源,能否麻烦查看下,谢谢了.

木棉树 · 发表于 2007-4-29 09:43:15

遗憾不能下载，无法找到下载的资源……

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

[求助] [求助]：画角钢的程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：画角钢的程序