乐筑天下

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

[编程交流] 创建块并放置

[复制链接]
jasonle215

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 18:48:01 | 显示全部楼层 |阅读模式
大家好，
 
我使用的是autocad 2010，我是autolisp新手。我希望你们能帮我解决这个问题（下图）
 
194803kixu1mixz7dsx1xx.jpg
 
我还在学习autolisp，我不知道如何创建块或将现有块插入特定的选定坐标。此外，通过上述问题，您能否演示如何将对象（或块）复制到均匀空间？
非常感谢你！！！
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 19:03:06 | 显示全部楼层
这应该是一个开始：
 
  2. [b][color=BLACK]([/color][/b]defun c:rectcir [b][color=FUCHSIA]([/color][/b]/ x hx y hy e mx xp xd qt sp[b][color=FUCHSIA])[/color][/b]
  4.  [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
  5.  [b][color=FUCHSIA]([/color][/b]setq x [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nRectangle X Axis <5000>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  6.  [b][color=FUCHSIA]([/color][/b]or x [b][color=NAVY]([/color][/b]setq x 5000.[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  7.  [b][color=FUCHSIA]([/color][/b]setq hx [b][color=NAVY]([/color][/b]* x 0.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  9.  [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
  10.  [b][color=FUCHSIA]([/color][/b]setq y [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nRectangler Y Axis <250>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  11.  [b][color=FUCHSIA]([/color][/b]or y [b][color=NAVY]([/color][/b]setq y 250.[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  12.  [b][color=FUCHSIA]([/color][/b]setq hy [b][color=NAVY]([/color][/b]* y 0.5[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  14.  [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
  15.  [b][color=FUCHSIA]([/color][/b]setq e [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nX Axis End Spacer <200>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  16.  [b][color=FUCHSIA]([/color][/b]or e [b][color=NAVY]([/color][/b]setq e 200.[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  18.  [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b]
  19.  [b][color=FUCHSIA]([/color][/b]setq mx [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nX Axis Max Spaces <450>:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  20.  [b][color=FUCHSIA]([/color][/b]or mx [b][color=NAVY]([/color][/b]setq mx 450.[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  22. [color=#8b4513];;;CREATE THE BLOCK[/color]
  23.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]tblsearch [color=#2f4f4f]"BLOCK"[/color] [color=#2f4f4f]"CENTER"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  24.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"BLOCK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 2 [color=#2f4f4f]"CENTER"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 70 0[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]list 10 0 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  25.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 5[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]list 0 -100 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]list 0 100 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  26.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 5[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]list 50 -65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]list -50 -65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  27.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 5[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]list 50 65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 11 [b][color=BLUE]([/color][/b]list -50 65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  28.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]list 0 -65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 40 20[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  29.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"CIRCLE"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 62 1[b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 10 [b][color=BLUE]([/color][/b]list 0 65 0[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 40 20[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  30.       [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"ENDBLK"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 8 [color=#2f4f4f]"0"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  32. [color=#8b4513];;;MAKE THE REECTANGLE[/color]
  33.  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=MAROON])[/color][/b]
  34.                 [b][color=MAROON]([/color][/b]cons 10 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  35.                 [b][color=MAROON]([/color][/b]cons 11 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  36.  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=MAROON])[/color][/b]
  37.                 [b][color=MAROON]([/color][/b]cons 10 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  38.                 [b][color=MAROON]([/color][/b]cons 11 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  39.  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=MAROON])[/color][/b]
  40.                 [b][color=MAROON]([/color][/b]cons 10 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  41.                 [b][color=MAROON]([/color][/b]cons 11 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]+ hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  42.  [b][color=FUCHSIA]([/color][/b]entmake [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]cons 0 [color=#2f4f4f]"LINE"[/color][b][color=MAROON])[/color][/b]
  43.                 [b][color=MAROON]([/color][/b]cons 10 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]- hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  44.                 [b][color=MAROON]([/color][/b]cons 11 [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]+ hx[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]- hy[b][color=BLUE])[/color][/b] 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  46. [color=#8b4513];;;FIND THE INSERT POINT DATA[/color]
  47.  [b][color=FUCHSIA]([/color][/b]setq xp [b][color=NAVY]([/color][/b]+ [b][color=MAROON]([/color][/b]- hx[b][color=MAROON])[/color][/b] e[b][color=NAVY])[/color][/b]           [color=#8b4513];1st X axis Value[/color]
  48.        xd [b][color=NAVY]([/color][/b]- x e e[b][color=NAVY])[/color][/b]              [color=#8b4513];Total X axis distance[/color]
  49.        qt [b][color=NAVY]([/color][/b]1+ [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]/ xd mx[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]   [color=#8b4513];Qty of spaces[/color]
  50.        sp [b][color=NAVY]([/color][/b]/ xd qt[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]             [color=#8b4513];X axis spacing[/color]
  52. [color=#8b4513];;;CREATE THE INSERTS[/color]
  53.  [b][color=FUCHSIA]([/color][/b]repeat [b][color=NAVY]([/color][/b]1+ qt[b][color=NAVY])[/color][/b]
  54.    [b][color=NAVY]([/color][/b]entmake [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 0 [color=#2f4f4f]"INSERT"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]cons 2 [color=#2f4f4f]"CENTER"[/color][b][color=GREEN])[/color][/b][b][color=GREEN]([/color][/b]list 10 xp 0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  55.    [b][color=NAVY]([/color][/b]setq xp [b][color=MAROON]([/color][/b]+ xp sp[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  57. [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
假设：
我把这个街区命名为“中心”
红色圆圈的半径看起来是20（不是直径）
我将矩形居中放置在0,0,0
 
或者：
 
进行第一次插入，然后（命令“_.COPY”（entlast）”。。。
进行第一次插入，然后（命令“.ARRAY”“\u R”（entlast）”。。。
使插入成为单个MINSERT
 
玩得开心-大卫
回复

使用道具 举报

jasonle215

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 19:23:51 | 显示全部楼层
谢谢你，伙计。我试试，然后告诉你
回复

使用道具 举报

jasonle215

3

主题

10

帖子

7

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-5 19:33:03 | 显示全部楼层
它起作用了！！！！非常感谢你
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-5 19:45:44 | 显示全部楼层
不客气
 
-大卫
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 19:51:01 | 显示全部楼层
也看看这个帖子
 
http://www.cadtutor.net/forum/showthread.php?93337-帮助拉伸和收缩问题/第2页
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 13:59 , Processed in 0.451717 second(s), 67 queries .

© 2020-2025 乐筑天下

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