钢筋弯曲系数的lisp

wrha · 发表于 2022-7-5 15:53:18

我需要帮助，使lisp帮助做圆角根据钢筋直径如下例。

当我键入6时，圆角半径为20
当8圆角半径24时
当10圆角半径32时
当12圆角半径36时
当16圆角半径48时
当20圆角半径60时
当25圆角半径75时
当32圆角半径96时
当36圆角半径108时
当40圆角半径120时

marko_ribar · 发表于 2022-7-5 16:05:47

6*3=18
8*3=24
10*3=30

...*3=...

40*3=120

hanhphuc · 发表于 2022-7-5 16:07:25

可能

copy

[color="blue"]initget getkword[/color][color="green"] ;for validation[/color]
(setq r (cadr(assoc i LST)))[color="green"] ; (setq LST '((6 20)(8 24)(10 32)....(36 108)(40 120)))[/color]
(setvar 'filletrad r)

@哦，试试看。。

halam · 发表于 2022-7-5 16:13:46

这里有一个。对于较大的半径，它为2.5 d，较小的为3.0 d
https://www.civilinfrabnl.nl/index.php/forum/9-algemene-vragen/2581-fillet-line-and-or-pline

BIGAL · 发表于 2022-7-5 16:20:42

需要检查钢筋弯曲标准是否正确？

wrha · 发表于 2022-7-5 16:30:58

是的是3*bd，直到直径20大于20是4*bd

wrha · 发表于 2022-7-5 16:33:56

好心的lisp不工作

hanhphuc · 发表于 2022-7-5 16:40:26

当然，如果你从来没有试着去写它，它就不起作用了

以下是示例

copy


(defun c:test ( / l i r )
(setq l '((6 8 10 12 16 20 25 32 36 40) (20 24 32 36 48 60 75 96 108 120)))
([color="blue"]initget[/color] 1 (apply 'strcat (mapcar ''((x)(strcat(itoa x) " "))(car l))))
[color="green"];(initget 1 "6 8 10 12 16 20 25 32 36 40 "); same validation [/color]
(and
(setq i ([color="blue"]getkword[/color] "\nEnter size? ")) 
(setq r (cadr ([color="blue"]assoc[/color] (atoi i) (apply 'mapcar (cons 'list l))))) [color="green"];Doug Wilson's transpose[/color]
[color="green"];((6 20) (8 24) (10 32) (12 36) (16 48) (20 60) (25 75) (32 96) (36 108) (40 120)) [/color]
(setvar 'filletrad r)) [color="green"];new fillet radius value, r [/color]
(vl-cmdf "_FILLET" "p") [color="green"];invoke command fillet[/color]
(princ)
 )

Grrr · 发表于 2022-7-5 16:50:39

copy

(defun C:test ( / input )
 (if (setq input (getreal "\nEnter a number: "))
   (alert 
     (rtos
       (if (< input 20)
         (* 3 input)
         (* 4 input)
       )
       2 2
     )
   )
 )
 (princ)
)

但这意味着输入10的值将为30，输入36的值将为144。

也许两者之间有某种联系：

copy

(defun C:test ( / n v )
 (if (setq n (getreal "\nEnter a number: "))
   (alert 
     (rtos 
       (if (setq v (cadr (assoc n '((6 20) (8 24) (10 32) (12 36) (16 48) (20 60) (25 75) (32 96) (36 108) (40 120)))))
         v
         (if (< n 20)
           (* 3 n)
           (* 4 n)
         )
       )
       2 2
     )
   )
 )
 (princ)
)

wrha · 发表于 2022-7-5 16:54:28

lisp显示了直径的弯曲系数，当我在两条线之间输入钢筋直径时，我希望圆角可以发生

[编程交流] 钢筋弯曲系数的lisp

发表回复

精选推荐