绘制埋头孔

liuhaixin88 · 发表于 2022-7-5 23:02:44

拿起两点，画一个埋头孔，两种，M1和M2。

我希望可以延长。可以修改代码中的参数（图9,10,5,5.5）

可以动态绘图吗？

Tharwat · 发表于 2022-7-5 23:07:31

你好

如果这两种类型的大小一直相同，则可以为每个形状创建一个块，如果需要，稍后可以轻松修改。

liuhaixin88 · 发表于 2022-7-5 23:09:23

谢谢，塔尔瓦，很高兴见到你！

孔的长度不确定，使用砌块不能令人满意。
我有其他的想法，这是一个基本的，我想扩展。
孔的大小很多，所以在后期，我会使用DCL，添加数据。。。。。。。。。

Tharwat · 发表于 2022-7-5 23:13:30

此外，如果只有水槽的长度不同，则可以在动态块中使用长度参数使其仅用于长度。只是一个想法。

liuhaixin88 · 发表于 2022-7-5 23:17:08

我还想过使用动态块，这需要输入数据（例如孔径、沉孔直径、沉孔深度等），我的想法是使用DCL，使用下拉框，选择螺钉，例如：我选择螺钉尺寸为M5，因此孔径=5.5，沉孔直径=9，沉孔深度=5，这些参数是自动生成的。

你能帮我完成基本功吗？

Tharwat · 发表于 2022-7-5 23:20:21

所以我很想看到DCL文件和一个显示所有这些类型水槽的示例图。

neophoible · 发表于 2022-7-5 23:23:07

动态块想法是一个很好的想法，它不需要比您提议的程序更多的输入。但你需要知道如何制作动态块。你…吗？
如果你想走程序路线，那么你需要向程序员提供数据，正如塔瓦特所要求的那样。你能做一个DCL文件吗？你知道如何用AutoLISP编程吗？你自己能做多少？

顺便说一句，这两种方式以前可能已经做过了，尽管我没有任何具体的表现。你追求的是结果还是过程？

liuhaixin88 · 发表于 2022-7-5 23:25:16

这样地：

copy

Countersink
:dialog{ label="Hole Draw";
spacer;
:row{
 :column{
  :image_button{ key = "RM"; aspect_ratio = 1; width = 15; fixed_width = true; color = -2; allow_accept = true; }
  :image_button{ key = "UN"; aspect_ratio = 1; width = 15; fixed_width = true; color = -2; allow_accept = true; }
 }
 :list_box{ key="RV"; value=8; width=20; height=15; allow_accept=true; }
}
ok_cancel;
}

这是一个*。slb幻灯片文件
埋头钻。拉链

liuhaixin88 · 发表于 2022-7-5 23:30:53

谢谢你的建议我只是需要一个基本的程序，以后，我会努力完成它自己。

Tharwat · 发表于 2022-7-5 23:31:57

这只是M1型的开始。

copy


(defun c:Test (/ 1p 2p d ang 3p 4p 5p 6p 7p 8p 9p 10p 11p)
 (if
   (and (setq 1p (getpoint "\n Specify first point :"))
        (setq 2p (getpoint "\n Second point :" 1p))
        (if (<= (setq d (distance 1p 2p)) 5.)
          (progn
            (alert
              "Distance between points must be longer than 5.0 units "
            )
            nil
          )
          t
        )
   )
    (progn
      (setq 3p  (polar 1p (+ (setq ang (angle 1p 2p)) (* pi 0.5)) 4.5)
            4p  (polar 3p (+ ang (* pi 1.5)) 9.)
            5p  (polar 4p ang 5.)
            6p  (polar 5p (+ ang (* pi 0.5)) 9.)
            7p  (polar 5p (angle 5p 6p) 1.75)
            8p  (polar 7p ang (- d 5.))
            9p  (polar 8p (angle 5p 6p) 5.5)
            10p (polar 9p (+ ang pi) (- d 5.))
      )
      (command "_.pline" "_non" 3p "_w" 0. 0. "_non" 4p "_non" 5p
               "_non" 6p "_c")
      (command "_.pline" "_non" 7p "_non" 8p "_non" 9p "_non" 10p "_c")
    )
 )
 (princ)
)

[编程交流] 绘制埋头孔

发表回复

精选推荐