画长圆孔工具

Point5 · 发表于 2024-6-21 08:36:28

使用方法
1：输入命令：TCC
2: 输入长圆孔的长度：xx
3：输入长圆孔的宽度：xx

3：点击长圆孔的插入中心点

aws · 发表于 2024-6-21 15:48:05

(defun c:gg()
(setq x(getreal "设置腰圆孔X长度："))
(setq y(getreal "设置腰圆孔Y长度："))
(setq p(getpoint "鼠标点击中心插入基点："))
(if(and x y p)
(progn
(setq p1(list(-(car p)(* 0.5 x))(-(cadr p)(* 0.5 y))))
(setq p9(list(+(car p)(* 0.5 x))(+(cadr p)(* 0.5 y))))
(setvar "CMDECHO" 0)
(command "RECTANG" "f"(* 0.5(min x y))"non" p1 "non" p9)
(setvar "CMDECHO" 1)
)
)
(princ)
)

Point5 · 发表于 2024-7-20 10:35:39

aws 发表于 2024-6-21 15:48
(defun c:gg()
(setq x(getreal "设置腰圆孔X长度："))
(setq y(getreal "设置腰圆孔Y长度："))

感谢大佬分享

自贡黄明儒 · 发表于 2024-6-21 08:56:40

两条平行线，倒角也可以画出键槽孔。

yerenyu@qq.com · 发表于 2024-6-21 09:01:36

这个感觉意义不大

wangsr · 发表于 2024-6-21 11:35:00

画家具图，画十字合页可以，谢谢分享

xxyyzzlg · 发表于 2024-6-21 13:15:34

搞个动态块够用了

潘成祥2015 · 发表于 2024-6-21 14:58:52

非常便利的小功能，点赞

fangmin723 · 发表于 2024-6-21 16:23:30

本帖最后由 fangmin723 于 2024-6-21 16:26 编辑

这不是很简单么，不知道你这长孔是圆弧和直线组成的，
还是一整个多段线，
不过这个代码写起来也是非常简单滴

两个顶点凸度为1的半圆弧，两个顶点凸度为0的直线

xibiao · 发表于 2024-6-24 14:38:07

有没有在LSP设置好值的，尺寸基本是一样

Point5 · 发表于 2024-7-18 17:19:59

fangmin723 发表于 2024-6-21 16:23
这不是很简单么，不知道你这长孔是圆弧和直线组成的，
还是一整个多段线，
不过这个代码写起来也是非常简 ...

这个是直接靠代码生成的多段线，刚学会代码的时候写的，写复杂了

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

画长圆孔工具

本帖子中包含更多资源

本帖子中包含更多资源

点评