乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 40|回复： 12

[编程交流] Autolisp生成孔

[复制链接]
Impala62

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 08:26:53 | 显示全部楼层 |阅读模式
大家好，
 
I 2D结构钢详图。
我正在寻找一个lisp，将创建孔与偏置规线孔直径孔数等选项。
 
有什么东西在外面或附近吗？
 
账单
回复

使用道具 举报

bsamc2000

6

主题

48

帖子

44

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-6 08:32:09 | 显示全部楼层
这是一个快速程序。几年前，当我详细介绍结构钢时，我有一个更好的方法。没有错误捕获，可以改进。它应该可以帮助你开始。
 
布瑞恩
 
  2. (defun c:holes ( / rows cols rowd rowv rowh hole )
  3.  (setq rows (getint "\nEnter the number of rows (---) <1>: ")
  4.        cols (getint "\nEnter the number of columns (|||) <1>: ")
  5.        rowd (getdist (strcat "\nBeam guage <" (itoa 3) ">: "))
  6.        rowv (getdist (strcat "\nVertical center / center <" (itoa 3) ">: "))
  7.        rowh (getdist (strcat "\nHorizontal center / center <" (itoa 4) ">: "))
  8.        hole (getdist (strcat "\nHole diameter " (rtos 0.8125) ">: "))
  9.  )
  10.  (if (= rows nil)(setq rows 1))
  11.  (if (= cols nil)(setq cols 1))
  12.  (if (= rowd nil)(setq rowd 3))
  13.  (if (= rowh nil)(setq rowh 4))
  14.  (if (= rowv nil)(setq rowv 3))
  15.  (if (= hole nil)(setq hole 0.8125))
  16.  (setq ins (getpoint "\nSelect insertion point: "))
  17.  (repeat cols
  18.    (setq lstpnt (polar ins (* pi 1.5) rowd))
  19.    (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  20.    (repeat (1- rows)
  21.      (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  22.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  23.    )
  24.    (setq ins (polar ins 0 rowh))    
  25.  )
  26.  (princ)
  27. )
回复

使用道具 举报

PS_Port

0

主题

39

帖子

39

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 08:37:42 | 显示全部楼层
谢谢brian。。。。希望你不介意我拿一份。。
美好的易于理解的常规
回复

使用道具 举报

Impala62

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 08:44:45 | 显示全部楼层
谢谢你的代码。
 
它工作得很好。
现在，如何添加钢边缘到第一列/行孔中心的偏移？
 
账单
回复

使用道具 举报

bsamc2000

6

主题

48

帖子

44

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-6 08:48:03 | 显示全部楼层 
  2. (defun c:holes ( / rows cols rowd rowv rowh hole )
  3.  (setq rows (getint "\nEnter the number of rows (---) <1>: ")
  4.        cols (getint "\nEnter the number of columns (|||) <1>: ")
  5.        rowd (getdist (strcat "\nBeam guage <" (itoa 3) ">: "))
  6.        rowv (getdist (strcat "\nVertical center / center <" (itoa 3) ">: "))
  7.        rowh (getdist (strcat "\nHorizontal center / center <" (itoa 4) ">: "))
  8.        hole (getdist (strcat "\nHole diameter " (rtos 0.8125) ">: "))
  9.  )
  10.  (if (= rows nil)(setq rows 1))
  11.  (if (= cols nil)(setq cols 1))
  12.  (if (= rowd nil)(setq rowd 3))
  13.  (if (= rowh nil)(setq rowh 4))
  14.  (if (= rowv nil)(setq rowv 3))
  15.  (if (= hole nil)(setq hole 0.8125))
  16.  (setq ins (getpoint "\nSelect insertion point: "))
  17. [color=red][/color] 
  18. [color=lime]  ' Add this[/color]
  19. [color=red]  (if (> cols 1)(setq ins (polar ins pi (/ (* (1- cols) rowh) 2.0))))[/color]
  21.  (repeat cols
  22.    (setq lstpnt (polar ins (* pi 1.5) rowd))
  23.    (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  24.    (repeat (1- rows)
  25.      (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  26.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  27.    )
  28.    (setq ins (polar ins 0 rowh))    
  29.  )
  30.  (princ)
  31. )

我认为这可能管用。如果不是你想要的，给我一个你想要的cad文件，我会看看我能做什么。
 
布瑞恩
回复

使用道具 举报

Impala62

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 08:53:56 | 显示全部楼层
谢谢Brian，
 
我发现它还不起作用。
 
我想做的是，一旦所有的输入都完成了，我需要的最后一件事是输入从插入点的偏移距离。
 
比尔·斯凯尔特马
回复

使用道具 举报

bsamc2000

6

主题

48

帖子

44

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-6 09:00:43 | 显示全部楼层
没问题。我希望这有帮助。
 
 
这是绘制端点连接的修改版本。我有一个更完整的详细计划，但我通常收费。（对不起！）
 
布瑞恩
  2. (defun c:holes_center ( / rows cols rowd rowv rowh hole )
  3.  (setq rows (getint "\nEnter the number of rows (---) <1>: ")
  4.        cols (getint "\nEnter the number of columns (|||) <1>: ")
  5.        rowd (getdist (strcat "\nBeam guage <" (rtos 3) ">: "))
  6.        rowv (getdist (strcat "\nVertical center / center <" (rtos 3) ">: "))
  7.        rowh (getdist (strcat "\nHorizontal center / center <" (rtos 4) ">: "))
  8.        hole (getdist (strcat "\nHole diameter " (rtos 0.8125) ">: "))
  9.  )
  10.  (if (= rows nil)(setq rows 1))
  11.  (if (= cols nil)(setq cols 1))
  12.  (if (= rowd nil)(setq rowd 3))
  13.  (if (= rowh nil)(setq rowh 4))
  14.  (if (= rowv nil)(setq rowv 3))
  15.  (if (= hole nil)(setq hole 0.8125))
  16.  (setq ins (getpoint "\nSelect insertion point: "))
  17.  (if (> cols 1)(setq ins (polar ins pi (/ (* (1- cols) rowh) 2.0))))
  18.  (repeat cols
  19.    (setq lstpnt (polar ins (* pi 1.5) rowd))
  20.    (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  21.    (repeat (1- rows)
  22.      (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  23.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  24.    )
  25.    (setq ins (polar ins 0 rowh))    
  26.  )
  27.  (princ)
  28. )
  30. (defun c:holes_end ( / dir rows rowd rowh rowv rowo hole )
  31.  (initget 0 "Left Right")
  32.  (setq dir  (getkword "\nEnd of beam (Left/Right) <L>: ")
  33.        rows (getint "\nEnter the number of rows (---) <1>: ")
  34.        rowd (getdist (strcat "\nBeam guage <" (rtos 3) ">: "))
  35.        rowv (getdist (strcat "\nVertical center / center <" (rtos 3) ">: "))
  36.        rowo (getdist (strcat "\nEndge offset <" (rtos 1.5) ">: "))
  37.        hole (getdist (strcat "\nHole diameter " (rtos 0.8125) ">: "))
  38.  )
  39.  (if (= dir  nil)(setq dir "Left"))
  40.  (if (= rows nil)(setq rows 1))
  41.  (if (= rowd nil)(setq rowd 3))
  42.  (if (= rowh nil)(setq rowh 4))
  43.  (if (= rowv nil)(setq rowv 3))
  44.  (if (= rowo nil)(setq rowo 1.5))
  45.  (if (= hole nil)(setq hole 0.8125))
  46.  (setq ins (getpoint "\nSelect insertion point: "))
  47.  (if (= dir "Left")
  48.    (progn
  49.      (setq ins (polar ins 0 rowo)
  50.            lstpnt (polar ins (* pi 1.5) rowd)
  51.      )
  52.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  53.      (repeat (1- rows)
  54.        (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  55.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  56.      )
  57.    )
  58.    (progn
  59.      (setq ins (polar ins pi rowo)
  60.            lstpnt (polar ins (* pi 1.5) rowd)
  61.      )
  62.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  63.      (repeat (1- rows)
  64.        (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  65.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  66.      )
  67.    )
  68.  )
  69.  (princ)
  70. )

092655ws3il6hxnshplilg.jpg
回复

使用道具 举报

Impala62

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 09:03:05 | 显示全部楼层
谢谢你的密码，
我试图将列函数也添加到holes\u end，但我知道我遗漏了一些东西。加粗的蓝色是我添加的代码。
 
我接近了吗？
 
  2. (defun c:holes_center ( / rows cols rowd rowv rowh hole )
  3.  (setq rows (getint "\nEnter the number of rows (---) <1>: ")
  4.        cols (getint "\nEnter the number of columns (|||) <1>: ")
  5.        rowd (getdist (strcat "\nBeam guage <" (rtos 30) ">: "))
  6.        rowv (getdist (strcat "\nVertical center / center <" (rtos 30) ">: "))
  7.        rowh (getdist (strcat "\nHorizontal center / center <" (rtos 4) ">: "))
  8.        hole (getdist (strcat "\nHole diameter " (rtos 17.5) ">: "))
  9.  )
  10.  (if (= rows nil)(setq rows 1))
  11.  (if (= cols nil)(setq cols 1))
  12.  (if (= rowd nil)(setq rowd 30))
  13.  (if (= rowh nil)(setq rowh 4))
  14.  (if (= rowv nil)(setq rowv 30))
  15.  (if (= hole nil)(setq hole 17.5))
  16.  (setq ins (getpoint "\nSelect insertion point: "))
  17.  (if (> cols 1)(setq ins (polar ins pi (/ (* (1- cols) rowh) 2.0))))
  18.  (repeat cols
  19.    (setq lstpnt (polar ins (* pi 1.5) rowd))
  20.    (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  21.    (repeat (1- rows)
  22.      (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  23.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  24.    )
  25.    (setq ins (polar ins 0 rowh))    
  26.  )
  27.  (princ)
  28. )
  30. (defun c:holes_end ( / dir rows [color=magenta][b]cols[/b][/color] rowd rowh rowv rowo hole )
  31.  (initget 0 "Left Right")
  32.  (setq dir  (getkword "\nEnd of beam (Left/Right) <L>: ")
  33.        rows (getint "\nEnter the number of rows (---) <1>: ")
  35. [color=magenta][b]        cols (getint "\nEnter the number of columns (|||) <1>: ")[/b][/color]
  37.        rowd (getdist (strcat "\nBeam guage <" (rtos 30) ">: "))
  38.        rowv (getdist (strcat "\nVertical center / center <" (rtos 30) ">: "))
  39.        rowo (getdist (strcat "\nEndge offset <" (rtos 30) ">: "))
  40.        hole (getdist (strcat "\nHole diameter " (rtos 17.5) ">: "))
  41.  )
  42.  (if (= dir  nil)(setq dir "Left"))
  43.  (if (= rows nil)(setq rows 1))
  45. [b][color=magenta]  (if (= cols nil)(setq cols 1))[/color][/b]
  47.  (if (= rowd nil)(setq rowd 30))
  48.  (if (= rowh nil)(setq rowh 4))
  49.  (if (= rowv nil)(setq rowv 30))
  50.  (if (= rowo nil)(setq rowo 30))
  51.  (if (= hole nil)(setq hole 17.5))
  52.  (setq ins (getpoint "\nSelect insertion point: "))
  56. [color=magenta][b]  (if (> cols 1)(setq ins (polar ins pi (/ (* (1- cols) rowh) 2.0))))[/b][/color]
  57. [b][color=magenta]  (repeat cols[/color][/b]
  58. [b][color=magenta]    (setq lstpnt (polar ins (* pi 1.5) rowd))[/color][/b]
  59. [b][color=magenta]    (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))[/color][/b]
  63.  (if (= dir "Left")
  64.    (progn
  65.      (setq ins (polar ins 0 rowo)
  66.            lstpnt (polar ins (* pi 1.5) rowd)
  67.      )
  68.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  69.      (repeat (1- rows)
  70.        (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  71.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  72.      )
  73.    )
  74.    (progn
  75.      (setq ins (polar ins pi rowo)
  76.            lstpnt (polar ins (* pi 1.5) rowd)
  77.      )
  78.      (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  79.      (repeat (1- rows)
  80.        (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  81.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  82.      )
  83.    )
  84.  )
  85.  (princ)
  86. )

 
回复

使用道具 举报

bsamc2000

6

主题

48

帖子

44

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-6 09:07:36 | 显示全部楼层
试试这个。
布瑞恩
  2. (defun c:holes_end ( / cols dir rows rowd rowh rowv rowo hole )
  3.  (initget 0 "Left Right")
  4.  (setq dir  (getkword "\nEnd of beam (Left/Right) <L>: ")
  5.        rows (getint "\nEnter the number of rows (---) <1>: ")
  6.        cols (getint "\nEnter the number of columns (|||) <1>: ")
  7.        rowd (getdist (strcat "\nBeam guage <" (rtos 3) ">: "))
  8.        rowv (getdist (strcat "\nVertical center / center <" (rtos 3) ">: "))
  9.        rowh (getdist (strcat "\nHorizontal center / center <" (rtos 3) ">: "))
  10.        rowo (getdist (strcat "\nEndge offset <" (rtos 1.5) ">: "))
  11.        hole (getdist (strcat "\nHole diameter " (rtos 0.8125) ">: "))
  12.  )
  13.  (if (= dir  nil)(setq dir "Left"))
  14.  (if (= rows nil)(setq rows 1))
  15.  (if (= cols nil)(setq cols 1))
  16.  (if (= rowd nil)(setq rowd 3))
  17.  (if (= rowh nil)(setq rowh 3))
  18.  (if (= rowv nil)(setq rowv 3))
  19.  (if (= rowo nil)(setq rowo 1.5))
  20.  (if (= hole nil)(setq hole 0.8125))
  21.  (setq ins (getpoint "\nSelect insertion point: "))
  22.  (if (= dir "Left")
  23.    (progn
  24.      (setq ins (polar ins 0 rowo))
  25.      (repeat cols
  26.        (setq lstpnt (polar ins (* pi 1.5) rowd))
  27.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  28.        (repeat (1- rows)
  29.          (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  30.          (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  31.        )
  32.        (setq ins (polar ins 0 rowh))
  33.      )
  34.    )
  35.    (progn
  36.      (setq ins (polar ins pi rowo))
  37.      (repeat cols
  38.        (setq lstpnt (polar ins (* pi 1.5) rowd))
  39.        (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  40.        (repeat (1- rows)
  41.          (setq lstpnt (polar lstpnt (* pi 1.5) rowv))
  42.          (entmake (list (cons 0 "circle")(cons 10 lstpnt)(cons 40 (/ hole 2.0))))
  43.        )
  44.        (setq ins (polar ins pi rowh))
  45.      )
  46.    )
  47.  )
  48.  (princ)
  49. )
回复

使用道具 举报

Impala62

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 09:13:14 | 显示全部楼层
谢谢Brian，
 
它工作得很好。
 
最后一个请求。我理解如果你说不，你在这里帮了很多忙。
 
如果我想让用户输入列，他们可以选择设置一系列列，该怎么办。
 
我经常使用角钢，并且在长度方向上有很多孔。
 
因此，用户可以选择1或2行、波束规、孔径。，但被触发以请求第一偏移、第二偏移、第三偏移
 
再次感谢。
 
账单
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 09:02 , Processed in 0.340496 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表