杆的动力块挖槽

catoscuro · 发表于 2022-7-8 13:10:15

你好，我有一个动态块，在极限圆之间放置一定数量的圆（棒），极限圆之间的距离可能是可变的，你也可以改变圆的直径，我想复制块，但我不能，有人会很乐意向我解释一步一步的动作应用，谢谢

SLW210 · 发表于 2022-7-8 13:18:02

你想用LISP做这个吗？

catoscuro · 发表于 2022-7-8 13:29:23

不，虽然如果可以的话会很有趣，但我不知道该把这个话题放在哪里。我对这个方块的问题是如何在缩放动作的同时进行拉伸。

SLW210 · 发表于 2022-7-8 13:32:20

我已将您的帖子移至AutoCAD绘图管理和输出论坛。你在LISP论坛上发布了。

BIGAL · 发表于 2022-7-8 13:42:14

dwg是填充圆的，正如建议的那样很容易像lisp一样，开始点、结束点、所需的rad、完成了多少。但可能是单个对象，可能是一个块。一个直径为1单位的实心圆。

catoscuro · 发表于 2022-7-8 13:49:23

比格尔，如果有可能的话，你可以使口齿不清，我还没有学会的程序，我希望很快开始。当做

BIGAL · 发表于 2022-7-8 13:51:39

试试这个，你需要多个getval。lsp因此保存在支持路径目录中。或更改荷载以包括其位置。我从你左边的圆圈/舱口画了一个方块，叫做Circhat。

copy

; https://www.cadtutor.net/forum/topic/74671-gutting-dynamic-block-of-rods/
; 
; Circles between 2 pts. BY AlanH March 2022
(defun c:circ2pts ( / ans rad pt1 pt2 dist len lenspc num)
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter values " "Radius " 5 4 "1" "No." 5 4 "5")))
(setq rad (atof (car ans)) num (atoi (cadr ans)))
(setq pt1 (getpoint "\nPick 1st point ") pt2 (getpoint pt1 "\nPick 2nd point "))
(setq dist (distance pt1 pt2) ang (angle pt1 pt2))
(command "-insert" "circhat" pt1 rad rad 0)
(setq lenspc 0.0 len (/ dist (+ num 1)))
(repeat (+ num 1)
(setq lenspc (+ lenspc len))
(command "-insert" "circhat" (polar pt1 ang lenspc) rad rad 0)
)
(princ)
)
(c:circ2pts)

catoscuro · 发表于 2022-7-8 14:00:51

比加尔。非常感谢您的时间和努力，
当执行例程时，我得到以下错误，“Command:（LOAD“C:/LISP/BY DATE/March 2022/rods/circ2pts.lsp”）
(1 4)
选择第一个点
选取第二个点0
; 错误：错误的参数类型：fixnum:5.0
你能告诉我怎么了吗，再次谢谢。

BIGAL · 发表于 2022-7-8 14:08:12

1我犯了一个小错误，num必须是atoi更改了上面的代码。我可能在测试期间进行了更改，但未保存。

2 multi-getvals以代码期望的方式加载到支持路径中，或将其保存到C:/lisp，然后可用于任何要使用它的程序。编辑代码。
（如果（不是AH:getvalsm）（加载“C:\\LISP\\multi单选按钮.lsp”））

有多个getval。lsp，多单选按钮col2。lsp和多重切换。lsp所有库例程，因此它不需要存在于每个用户代码中。

catoscuro · 发表于 2022-7-8 14:15:45

谢谢你，这会很有用的，我欠你一杯啤酒。

[综合讨论] 杆的动力块挖槽

发表回复

精选推荐