乐筑天下

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

[编程交流] Lisp将文本替换为bloc

[复制链接]
Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:16:56 | 显示全部楼层
我可能会这样编码
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:txt2ins [b][color=RED]([/color][/b] [b][color=BLUE]/[/color][/b] *error* blk ss [b][color=RED])[/color][/b]
  3.  [i][color=#990099];; © Lee Mac  ~  15.06.10[/color][/i]
  4.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  6.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] blk [b][color=RED]([/color][/b][b][color=BLUE]getfiled[/color][/b] [b][color=#a52a2a]"Select Block"[/color][/b] [b][color=#a52a2a]""[/color][/b] [b][color=#a52a2a]"dwg"[/color][/b] [b][color=#009900]16[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  7.           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss  [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=#a52a2a]"_X"[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#a52a2a]"TEXT"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=#009900]1[/color][/b] . [b][color=#a52a2a]"F"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  8.           [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] blk [b][color=RED]([/color][/b]LM:ForceBlockDefinition blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  9.    [b][color=RED]([/color][/b]
  10.      [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] i [b][color=BLUE]/[/color][/b] e eLst h [b][color=RED])[/color][/b]
  11.        [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] e [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] i [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] i[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]          
  12.          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] eLst [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] e[b][color=RED])[/color][/b] h [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]40[/color][/b] eLst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  13.          
  14.          [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b]
  15.            [b][color=RED]([/color][/b][b][color=BLUE]entmakex[/color][/b]
  16.              [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#a52a2a]"INSERT"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]2[/color][/b] blk[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  17.                [b][color=RED]([/color][/b]LM:RemovePairs [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b] [b][color=#009900]0[/color][/b] [b][color=#009900]1[/color][/b] [b][color=#009900]7[/color][/b] [b][color=#009900]10[/color][/b] [b][color=#009900]11[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009900]41[/color][/b] [b][color=#009900]51[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]100[/color][/b] [b][color=#009900]102[/color][/b] [b][color=#009900]330[/color][/b] [b][color=#009900]360[/color][/b] [b][color=RED])[/color][/b] eLst[b][color=RED])[/color][/b]
  18.                [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
  19.                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] [b][color=RED]([/color][/b]LM:GetTextInsertion eLst[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  20.                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]41[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] h [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=#009999]32.[/color][/b] [b][color=#009999]3.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  21.                  [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]42[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]*[/color][/b] h [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] [b][color=#009999]32.[/color][/b] [b][color=#009999]3.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  22.                [b][color=RED])[/color][/b]
  23.              [b][color=RED])[/color][/b]
  24.            [b][color=RED])[/color][/b]
  25.            [b][color=RED]([/color][/b][b][color=BLUE]entdel[/color][/b] e[b][color=RED])[/color][/b]
  26.          [b][color=RED])[/color][/b]
  27.        [b][color=RED])[/color][/b]
  28.      [b][color=RED])[/color][/b]
  29.      [b][color=#009900]-1[/color][/b]
  30.    [b][color=RED])[/color][/b]
  31.  [b][color=RED])[/color][/b]
  32.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
  33. [b][color=RED])[/color][/b]
  35. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:ForceBlockDefinition [b][color=RED]([/color][/b] block [b][color=BLUE]/[/color][/b] path ext base [b][color=RED])[/color][/b]
  36.  [i][color=#990099];; © Lee Mac  ~  15.06.10[/color][/i]
  37.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] path  [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-directory[/color][/b] block[b][color=RED])[/color][/b]
  38.        ext   [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-extension[/color][/b] block[b][color=RED])[/color][/b]
  39.        base  [b][color=RED]([/color][/b][b][color=BLUE]vl-filename-base[/color][/b] block[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  41.  [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]""[/color][/b] ext[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ext [b][color=#a52a2a]".dwg"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  42.  
  43.  [b][color=RED]([/color][/b][b][color=BLUE]cond[/color][/b]
  44.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]tblsearch[/color][/b] [b][color=#a52a2a]"BLOCK"[/color][/b] base[b][color=RED])[/color][/b] base [b][color=RED])[/color][/b]
  46.    [b][color=RED]([/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] block [b][color=RED]([/color][/b][b][color=BLUE]findfile[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] path [b][color=#a52a2a]"\"[/color][/b] base ext[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]     
  48.      [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#a52a2a]"_.-insert"[/color][/b] block[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b][b][color=RED])[/color][/b] base
  49.    [b][color=RED])[/color][/b]
  50.  [b][color=RED])[/color][/b]
  51. [b][color=RED])[/color][/b]
  53. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:RemovePairs [b][color=RED]([/color][/b] pairs lst [b][color=RED])[/color][/b]
  54.  [i][color=#990099];; © Lee Mac  ~  15.06.10[/color][/i]
  55.  [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b]
  56.    [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  57.      [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] pair [b][color=RED])[/color][/b]
  58.        [b][color=RED]([/color][/b][b][color=BLUE]vl-position[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pair[b][color=RED])[/color][/b] pairs[b][color=RED])[/color][/b]
  59.      [b][color=RED])[/color][/b]
  60.    [b][color=RED])[/color][/b]
  61.    lst
  62.  [b][color=RED])[/color][/b]
  63. [b][color=RED])[/color][/b]
  65. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] dxf [b][color=RED]([/color][/b] code lst [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] code lst[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  67. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] LM:GetTextInsertion [b][color=RED]([/color][/b] eList [b][color=RED])[/color][/b]
  68.  [i][color=#990099];; © Lee Mac  ~  15.06.10[/color][/i]
  69.  [b][color=RED]([/color][/b]dxf
  70.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-every[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]zerop[/color][/b]
  71.          [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b]dxf [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] [b][color=#009900]73[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] elist elist[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  72.        [b][color=RED])[/color][/b]
  73.      [b][color=#009900]10[/color][/b] [b][color=#009900]11[/color][/b]
  74.    [b][color=RED])[/color][/b]
  75.    eList
  76.  [b][color=RED])[/color][/b]
  77. [b][color=RED])[/color][/b]
回复

使用道具 举报

zride91

1

主题

7

帖子

6

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 08:22:09 | 显示全部楼层
李，非常感谢你的投入！我已经尝试了代码，块的缩放和旋转效果很好，但位置不太合适。块的插入点不在文本的插入点。
 
李和Freerefill，非常感谢你们！这很酷。我期待着深入研究这段代码，看看它是如何做到的。
 
谢谢
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:25:30 | 显示全部楼层
请尝试更新的代码
回复

使用道具 举报

zride91

1

主题

7

帖子

6

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 08:27:22 | 显示全部楼层
明亮的这非常有效！非常感谢你。我感谢你和李的时间和努力。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 08:31:02 | 显示全部楼层
不客气
回复

使用道具 举报

bullah

0

主题

5

帖子

5

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 08:34:45 | 显示全部楼层
 
 
 
为“块pue”选择pue，为“put block”选择puc，为“puc DWG block”选择puc，依此类推。你能帮助我吗。很抱歉
回复

使用道具 举报

guigol

3

主题

20

帖子

17

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 08:37:27 | 显示全部楼层
 
 
谢谢你的帮助。我试图编辑你的代码以获得一个稍微不同的结果。但它不起作用。
 
我有很多计划，到处都是文字。
 
我想用这个labelBARYCENTRE替换文本区。图纸
还有上面写的文字。
 
你看到解决方案了吗？
 
 
PS：对不起，我的英语很差。
回复

使用道具 举报

guigol

3

主题

20

帖子

17

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 08:38:23 | 显示全部楼层
有人有办法吗？
回复

使用道具 举报

asos2000

51

主题

481

帖子

457

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
262
发表于 2022-7-6 08:43:35 | 显示全部楼层
 
你能上传一个前后都有的文件吗
084441y7dlpdsp7aiqu6as.png
回复

使用道具 举报

guigol

3

主题

20

帖子

17

银币

初来乍到

Rank: 1

铜币
15
发表于 2022-7-6 08:46:34 | 显示全部楼层
这里有2个文件
 
之前
测试Cad-1。图纸
 
之后
测试Cad-2。图纸
 
块是
_______放在同一个地方
_______相同的颜色
_______相同尺寸（或比例）
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-9 22:57 , Processed in 0.676089 second(s), 72 queries .

© 2020-2025 乐筑天下

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