乐筑天下

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

[编程交流] 更改文本LISP例程

[复制链接]
denverado

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 06:25:42 | 显示全部楼层 |阅读模式
大家好！！
我编写了一个LISP例程来更改某些文本。然而如果我想要更改的项目之一在图形中不存在，lisp例程将不起作用。有人能告诉我哪里出了错吗？
 
我的工作电脑不允许我添加文件，所以这是文件的一部分。。。。
 
  2. (defun C:GHJ ; = Text Replace for Complete text/mtext strings, pre-defined content
  3.  (/ tss tdata)
  4.  (setq tss (ssget "X" (list (cons 1 "*0*VERTICAL BEND"))))
  5.  (repeat (sslength tss)
  6.    (setq
  7.      tdata (entget (ssname tss 0))
  8.      tdata (subst (cons 1 "JOINT DEFLECTION") (assoc 1 tdata) tdata)
  9.    ); end setq
  10.    (entmod tdata)
  11.    (ssdel (ssname tss 0) tss)
  12.  ); end repeat
  13.  (setq tss (ssget "X" (list (cons 1 "*4*VERTICAL BEND"))))
  14.  (repeat (sslength tss)
  15.    (setq
  16.      tdata (entget (ssname tss 0))
  17.      tdata (subst (cons 1 "2 JOINT DEFLECTIONs") (assoc 1 tdata) tdata)
  18.    ); end setq
  19.    (entmod tdata)
  20.    (ssdel (ssname tss 0) tss)
  21.  ); end repeat
  22. ); end defun

 
如果第一个例子不成立，第二个例子就行不通。
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 06:31:18 | 显示全部楼层
 
这是因为您没有使用任何代码逻辑来评估在处理之前是否满足了依赖条件。。。考虑这个例子：
  2. (defun c:FOO (/ ss i eData asso)
  3.  (if (setq ss (ssget "_x" '((1 . "*0*VERTICAL BEND,*4*VERTICAL BEND"))))
  4.    (repeat (setq i (sslength ss))
  5.      (entmod
  6.        (subst (cons 1
  7.                     (if (wcmatch (strcase (cdr (setq asso (assoc 1
  8.                                                                  (setq eData
  9.                                                                         (entget (ssname ss (setq i (1- i)))
  10.                                                                         )
  11.                                                                  )
  12.                                                           )
  13.                                                )
  14.                                           )
  15.                                  )
  16.                                  "*0*VERTICAL BEND"
  17.                         )
  18.                       "JOINT DEFLECTION"
  19.                       "2 JOINT DEFLECTIONs"
  20.                     )
  21.               )
  22.               asso
  23.               eData
  24.        )
  25.      )
  26.    )
  27.  )
  28.  (princ)
  29. )

 
同样值得注意的是，DXF 1区分大小写，所以一定要考虑到这一点。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:33:36 | 显示全部楼层
除了BlackBox的建议外，我还建议：
  2. ([color=BLUE]defun[/color] c:ghj ( [color=BLUE]/[/color] enx idx sel str )
  3.    ([color=BLUE]if[/color] ([color=BLUE]setq[/color] sel ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color] '((0 . [color=MAROON]"TEXT,MTEXT"[/color]) (1 . [color=MAROON]"*[04]*VERTICAL BEND"[/color]))))
  4.        ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] idx ([color=BLUE]sslength[/color] sel))
  5.            ([color=BLUE]setq[/color] enx ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] idx ([color=BLUE]1-[/color] idx))))
  6.                  str ([color=BLUE]assoc[/color] 1 enx)
  7.            )
  8.            ([color=BLUE]entmod[/color]
  9.                ([color=BLUE]subst[/color]
  10.                    ([color=BLUE]if[/color] ([color=BLUE]wcmatch[/color] ([color=BLUE]strcase[/color] ([color=BLUE]cdr[/color] str)) [color=MAROON]"*0*"[/color])
  11.                       '(1 . [color=MAROON]"JOINT DEFLECTION"[/color])
  12.                       '(1 . [color=MAROON]"2 JOINT DEFLECTIONs"[/color])
  13.                    )
  14.                    str enx
  15.                )
  16.            )
  17.        )
  18.    )
  19.    ([color=BLUE]princ[/color])
  20. )
回复

使用道具 举报

denverado

2

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 06:35:36 | 显示全部楼层
谢谢大家，效果很好。
我需要为更多实例添加额外的if命令吗？
例如
“0*垂直弯曲”=>“关节偏转”
“-0*垂直弯曲”=>“接头挠度”
“1*垂直弯曲”=>“关节偏转”
“-1*垂直弯曲”=>“接头挠度”
“2*垂直弯曲”=>“接头挠度”
“-2*垂直弯曲”=>“接头挠度”
“3*垂直弯曲”=>“接头挠度”
“-3*垂直弯曲”=>“接头挠度”
“4*垂直弯曲”=>“2个关节偏转”
“-4*垂直弯曲”=>“2个接头挠度”
“5*垂直弯曲”=>“2个关节偏转”
“-5*垂直弯曲”=>“2个接头挠度”
“6*垂直弯曲”=>“2个关节偏转”
“-6*垂直弯曲”=>“2个接头挠度”
“7*垂直弯曲”=>“11.25%%D垂直弯曲”
“-7*垂直弯曲”=>“11.25%%D垂直弯曲”
“8*垂直弯曲”=>“11.25%%D垂直弯曲”
“-8*垂直弯曲”=>“11.25%%D垂直弯曲”
“9*垂直弯曲”=>“11.25%%D垂直弯曲”
“-9*垂直弯曲”=>“11.25%%D垂直弯曲”
“10*垂直弯曲”=>“11.25%%D垂直弯曲”
“-10*垂直弯曲”=>“11.25%%D垂直弯曲”
“11*垂直弯曲”=>“11.25%%D垂直弯曲”
“-11*垂直弯曲”=>“11.25%%D垂直弯曲”
“12*垂直弯曲”=>“11.25%%D垂直弯曲”
“-12*垂直弯曲”=>“11.25%%D垂直弯曲”
“13*垂直弯曲”=>“11.25%%D垂直弯曲”
“-13*垂直弯曲”=>“11.25%%D垂直弯曲”
“14*垂直弯曲”=>“11.25%%D垂直弯曲”
“-14*垂直弯曲”=>“11.25%%D垂直弯曲”
“15*垂直弯曲”=>“11.25%%D垂直弯曲”
“-15*垂直弯曲”=>“11.25%%D垂直弯曲”
“16*垂直弯曲”=>“11.25%%D垂直弯曲”
“-16*垂直弯曲”=>“11.25%%D垂直弯曲”
 
在lisp例程结束时，我可以通过以下操作更改“11.25%%D垂直弯曲”的颜色。
 
（setq tss（ssget“X”（列表（cons 1“11.25%%D垂直弯管）））
（重复（sslength tss）
（命令“chprop”tss““c”“6”）
（entmod tdata）
（ssdel（ssname tss 0）tss）
); 结束重复
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 06:41:23 | 显示全部楼层
 
啊！。。。我忘记了[]。
 
此外，为什么不：
  2.            (entmod
  3.                (subst
  4.                  (cons 1
  5.                        (if (wcmatch (cdr str) "*0*")
  6.                          "JOINT DEFLECTION"
  7.                          "2 JOINT DEFLECTIONs"
  8.                        )
  9.                  )
  10.                  str
  11.                  enx
  12.                )
  13.            )
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

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

铜币
211
发表于 2022-7-6 06:44:11 | 显示全部楼层
“1”后面的字符是什么
“1*垂直弯曲”
 
您意识到，在区分这两者时，wcmatch会有复杂的问题。
 
“1*垂直弯曲”
“15*垂直弯曲”
 
当然，除非我们从最高数字开始[在本例中为16]
 
  2. (defun c:ghj  (/ enx idx sel str [color="blue"]f n _Str[/color])
  3.      (if (setq sel (ssget "_X"
  4.                           '((0 . "TEXT,MTEXT")
  5.                             (1 . "*VERTICAL BEND"))))
  6.            (repeat (setq idx (sslength sel))
  7.                  (setq enx  (entget (ssname sel (setq idx (1- idx))))
  8.                        str  (assoc 1 enx)
  9.                       [color="blue"] _str (Cdr str)[/color])
  10.                 [color="blue"] (setq f nil
  11.                        n 16)
  12.                  (while (and (not f) (> n -1))
  13.                        (setq f    (vl-some
  14.                                         '(lambda (k)
  15.                                                (if   (wcmatch
  16.                                                            _str
  17.                                                            (strcat
  18.                                                                  k
  19.                                                                  "*VERTICAL BEND"))
  20.                                                           (atoi k)))
  21.                                         (list (itoa n)
  22.                                               (if (zerop n)
  23.                                                     "-0"
  24.                                                     (itoa (- n))))))
  25.                        (setq n (1- n))
  26.                        )
  27.                  (if (setq nstr
  28.                                 (cond
  29.                                       ((or (<= 0 f 6)
  30.                                            (<= -6 f -1))
  31.                                        "2 JOINT DEFLECTIONS")
  32.                                       ((or (<= 7 f 16)
  33.                                            (<= -16 f -7))
  34.                                        "11.25%%D VERTICAL BEND")))[/color]
  35.                        (entmod
  36.                              (subst
  37.                                    (cons 1 nstr)
  38.                                    str enx
  39.                                     
  40.                                    )
  41.                              )
  42.                        )
  43.                  )
  44.            )
  45.      (princ)
  46.      )

 
我注意到你从29跳到38？为什么？如果应该包括它，那么新的字符串是什么？
 
编辑：
[code]（定义c:ghj（/enx idx sel str f n U str）（if（setq sel（ssget“_X”）（（0。“TEXT，MTEXT”）（1.*垂直弯曲[color=“blue”]，*水平弯曲[color]））（重复（setq idx（sslength sel））（setq enx（entget（ssname sel（setq idx（1-idx）））str（assoc 1 enx）U str（Cdr str））（setq f nil n[color=“blue”]51）[color=“blue”]（if（wcmatch str“*水平弯曲”）（entmod（append enx（list（cons 8“Defpoints”）））（progn（while（and（not f）（>n-1））（setq f（vl some’（lambda（k）（if（wcmatch _str（strcat k“*垂直弯曲”）（atoi k）））（列表（itoa n）（if（zerop n）“-0”（itoa（-n 107;）а））（setq n（1-n）））（if（和f（setq nstr（cond（（或（
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:46:53 | 显示全部楼层
谢谢pBe，
为了使它正常工作，我最终做了以下几点。
[code]（defun c:ghj（/enx idx sel str f n _str）（if（setq sel（ssget“_X”）（（0。“TEXT，MTEXT”）（1“*垂直弯曲”））（repeat（setq idx（sslength sel））（setq enx（entget（ssname sel（setq idx（1-idx）））str（assoc 1 enx）_str（Cdr str））（setq f nil n 92）（while（and（not f）（>n-1））（setq f（vl some’（lambda（k）（if（wcmatch _str（strcat k“*垂直弯曲”）（atoi k））（列表（itoa n）（如果（zerop n）”-0“（itoa（-n 1070;）Ю）（setq n（1-n））（if（setq nstr（cond（（or（
回复

使用道具 举报

BlackBox

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 06:50:11 | 显示全部楼层
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 06:51:37 | 显示全部楼层
 
True - the strcase is indeed unnecessary for this case.
 
 
Only one of the quoted pairs will be evaluated depending on result of the test expression.
回复

使用道具 举报

SLW210

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-6 06:54:57 | 显示全部楼层
Please read the Code posting guidelines and edit your post to include the Code in Code Tags.
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 18:31 , Processed in 1.032027 second(s), 72 queries .

© 2020-2025 乐筑天下

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