绘制折弯板截面图

sunny_8848 · 发表于 2023-2-23 15:24:55

本帖最后由 sunny_8848 于 2023-2-23 15:26 编辑

要求见图，请大家帮忙。其中折弯半径默认为板厚，也在命令行输入

ssyfeng · 发表于 2023-2-23 15:24:56

修改了一下，增加厚度输入

sunny_8848 · 发表于 2023-2-23 20:34:56

自己顶一下

qazxswk · 发表于 2023-2-24 00:31:07

本帖最后由 qazxswk 于 2023-2-24 02:21 编辑

插入点是什么意思？先确定8个点的坐标，然后用画线命令，就完成了。

(defun c:11(/ p1 p2 p3 p4 p5 p6 p7 p8 p11 p22)
(setq get1 (getreal "\n输入上长边:"))  ;例如40
(setq get2 (getreal "\n输入中长边:"))  ;例如80
(setq get3 (getreal "\n输入下长边:"))  ;例如30
(setq p1 (getpoint "\n插入点: "))
(setq p2 (list (car p1)  (- (cadr p1) get2)) )
(setq p3 (list (+(car p2) get3)  (cadr p2) ))
(setq p4 (list (car p3) (+(cadr p3) 6) ))
(setq p5 (list (-(car p4)(- get3 6))(cadr p4) ))
(setq p6 (list (car p5) (+(cadr p5) (- get2 12)) ))
(setq p7 (list (+(car p6)(- get1 6))(cadr p6) ))
(setq p8 (list (car p7) (+(cadr p7) 6) ))
(setq p11 (list (-(car p1) get1)(cadr p1)))
(setq p22 (list (-(car p2) get1)(cadr p2)))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline")
(cons 90 4)(cons 10 p1)(cons 10 p2)(cons 10 p3)(cons 10 p4)
         (cons 10 p5)(cons 10 p6)(cons 10 p7)(cons 10 p8) '(70 . 1)))
(vl-cmdf "mirror"(entlast) "" p11 p22 "n")
(princ))

ssyfeng · 发表于 2023-2-24 10:19:33

本帖最后由 ssyfeng 于 2023-2-24 11:15 编辑

是不是这个效果：

sunny_8848 · 发表于 2023-2-24 20:09:38

本帖最后由 sunny_8848 于 2023-2-24 20:27 编辑

谢谢您的帮忙。插入点可以理解为绘制的图形转换为块的插入点，不转换为块的话，图形外围竖直线中点和命令行输入点重合，因为我还要整合这个图形到指定位置

qazxswk · 发表于 2023-2-25 00:34:12

试试这个。

zero423 · 发表于 2023-2-25 07:58:39

也是做钣金的？画图思路就有点问题，应该从三视图上截取，而不是直接输入，这样范错误的几率大大提高了。

sunny_8848 · 发表于 2023-2-25 08:07:22

ssyfeng 发表于 2023-2-24 10:19
是不是这个效果：

谢谢您的帮忙，就差板厚可以输入了

sunny_8848 · 发表于 2023-2-25 08:14:33

qazxswk 发表于 2023-2-25 00:34
试试这个。

谢谢帮忙。2010版本 Autocad，我画出来的怎么是尖角？是要分成两个命令分别画左右两种情形的图，图形插入点不是在命令行输入点

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

[讨论] 绘制折弯板截面图

最佳答案

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源