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
这不是很简单么，不知道你这长孔是圆弧和直线组成的，
还是一整个多段线，
不过这个代码写起来也是非常简 ...

这个是直接靠代码生成的多段线， 刚学会代码的时候写的，写复杂了
页: [1] 2
查看完整版本: 画长圆孔工具