1550855711 发表于 2023-11-11 17:31:45

求程序 给出一个点 输入长度 宽度自动生成长圆孔

求程序 给出一个点 输入长度 宽度自动生成长圆孔

ssyfeng 发表于 2023-11-11 18:32:33

看看效果：


1550855711 发表于 2023-11-11 18:36:54

ssyfeng 发表于 2023-11-11 18:32
看看效果：

对 就是这样的 能分享一下程序？？

xj6019 发表于 2023-11-11 20:02:25

楼上是专业写程序的，给钱就分享了

llsheng_73 发表于 2023-11-11 21:52:20

本帖最后由 llsheng_73 于 2023-11-11 22:31 编辑

(defun c:tt(/ p a0 b0 a b x1 y2 y1 y2 b1 b2)
(while(and(setq p(getpoint"\n左上角点:"))
          (or(setq a(getdist(strcat"长度"(if a0(rtos a0 2 2)""))))
             (setq a a0))
          (or(setq b(getdist(strcat"宽度"(if b0(rtos b0 2 2)""))))
             (setq b b0))
          (>(setq a(abs a))0)
          (>(setq b(abs b))0)
          (setq a0 a b0 b)
          (if(> a b)
              (setq x1(* b 0.5)y1 0 x2(- a x1)y2(- b)b1 0 b2 -1)
              (setq x1 0 y1(* a -0.5)x2 a y2(-(- y1)b)b1 -1 b2 0))
          (entmakex(mapcar'cons'(0 100 100 90 70 10 42 10 42 10 42 10 42)
                          (list"LWPOLYLINE""AcDbEntity""AcDbPolyline"4 1
                               (mapcar'+(list x1 y1)p)b1
                               (mapcar'+(list x2 y1)p)b2
                               (mapcar'+(list x2 y2)p)b1
                               (mapcar'+(list x1 y2)p)b2))))))

zhangcan0515 发表于 2023-11-11 22:18:03

看看是否符合要求

czb203 发表于 2023-11-12 09:28:07

zhangcan0515 发表于 2023-11-11 22:18
看看是否符合要求

这个界面很哇塞

xibiao 发表于 2024-6-27 02:14:05

zhangcan0515 发表于 2023-11-11 22:18
看看是否符合要求

实用功能，求分享

donghuidong2003 发表于 2024-11-15 13:51:57

画长圆孔，带中心线的
页: [1]
查看完整版本: 求程序 给出一个点 输入长度 宽度自动生成长圆孔