乐筑天下

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

[编程交流] 需要文字编辑lisp

[复制链接]
CadTechJGC184

11

主题

45

帖子

35

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 14:36:04 | 显示全部楼层 |阅读模式
我一直在寻找编辑文本命令，但我没有运气。我希望能够一次选择多个文本进行更改。就像我有6个需要更改，我一个接一个地选择，然后它让我按照我选择的顺序编辑它们。
 
在我上一份工作中，我们使用了ETA。
 
有什么帮助吗？？
回复

使用道具 举报

CadTechJGC184

11

主题

45

帖子

35

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
55
发表于 2022-7-6 14:57:08 | 显示全部楼层
哎呀。。。。。。知道了！
 
; 按选择编辑属性或文本
（定义C:ETA（/A B C D E F G H J K L M N）
（图表）
;   （提示“\n加载了编辑文本/属性…”）
（setq A（ssget）B（sslength A）C 0）
（虽然(
（setq F（E车））
（setq G（cdr E））
（setq H（汽车G））
（setq J（cdr H））
（setq K“文本”）
（setq L“插入”）
（setq M“尺寸”）
（setq N“多行文字”）
（if（=J K）（命令“.ddedit”D“”））
（if（=J N）（命令“.ddedit”D“”））
（if（=J L）（命令“.ddatte”D））
（如果（=J M）（提示
“\n你选择了一个维度，你这个笨蛋….，我只做文本或属性…”）
（ERPI）
（setq C（1+C）））
（普林斯）
)
回复

使用道具 举报

Freerefill

20

主题

344

帖子

325

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
100
发表于 2022-7-6 15:01:19 | 显示全部楼层
如果你愿意，这是我的。它适用于文本、多行文字、属性、维度，甚至块内的文本（不过，请记住，它会改变块的每个实例……现在）
 
  2. ;Super-Edit
  3. ;by Mark Mercier
  4. ;05-11-09
  6. (defun c:ed( / )(super_edit))
  7. (defun c:at( / )(super_edit))
  9. (defun super_edit( / modEnt dumEnt ent)
  10.  (vl-load-com)
  11.  (while (setq ent (nentsel "\nSelect object: "))
  12.    (if (and ent (or (wcmatch (cdadr (entget (car ent))) "*TEXT") (eq "ATTRIB" (cdadr (entget (car ent))))))
  13.      (progn
  14.    ; Extract properties of selection and save as list, to modify or replace later if failed
  15.    (setq modEnt (vlax-ename->vla-object (car ent)))
  17.    ; extract properties and create dummy text
  18.    (setq dumEnt (_TextCopy ent))
  20.    ; Clear contents of selected text
  21.    (vla-put-TextString modEnt " ")
  22.    (command "regen")
  24.    ; Edit dummy text
  25.    (command "DDEDIT" (entlast))(command)
  27.    ; once DDEDIT is finished, set modEnt TextString equal to dumEnt
  28.    (if (and (caar (cdddr ent)) (wcmatch (vla-get-ObjectName (vlax-ename->vla-object (caar (cdddr ent)))) "*Dimension"))
  29.      (vla-put-TextOverride (vlax-ename->vla-object (caar (cdddr ent))) (vla-get-TextOverride (vlax-ename->vla-object dumEnt)))
  30.      (vla-put-TextString modEnt (vla-get-TextString (vlax-ename->vla-object dumEnt)))
  31.      )
  33.    ; Delete dummy text
  34.    (command "erase" dumEnt "")
  35.    (command "regen")
  36.    )
  37.      )
  38.    )
  39.  )
  41. (defun _TextCopy(ent / vlaEnt lasEnt return)
  42.  (setq return nil)
  43.  (cond
  44.    ((and (wcmatch (cdadr (entget (car ent))) "TEXT") (not (caar (cdddr ent))))
  45.     (setq return (_TextCopy-TEXT ent))
  46.     )
  47.    ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (not (caar (cdddr ent))))
  48.     (setq return (_TextCopy-MTEXT ent))
  49.     )
  50.    ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (eq "INSERT" (cdr (assoc 0 (entget (caar (cdddr ent)))))))
  51.     (setq return (_TextCopy-NESMTEXT ent))
  52.     )
  53.    ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (eq "DIMENSION" (cdr (assoc 0 (entget (caar (cdddr ent)))))))
  54.     (setq return (_TextCopy-DIMMTEXT ent))
  55.     )
  56.    ((and (wcmatch (cdadr (entget (car ent))) "TEXT") (not (assoc 410 (entget (car ent)))))
  57.     (setq return (_TextCopy-NESTEXT ent))
  58.     )
  59.    ((eq "ATTRIB" (cdadr (entget (car ent))))
  60.     (setq return (_TextCopy-NESATT ent))
  61.     )
  62.    )
  63.  return
  64.  ); Creates exact copy of text/mtext/attribute entity as text/mtext, including blocked text. Return entity if successful or nil if not.
  66. (defun _TextCopy-TEXT(ent / vlaEnt lasEnt)
  67.  (command "TEXT" '(0 0 0) 1 1 "1")
  68.  (setq lasEnt (vlax-ename->vla-object (entlast)))
  69.  (setq vlaEnt (vlax-ename->vla-object (car ent)))
  70.  (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
  71.  (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
  72.  (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
  73.  (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
  74.  (vla-put-ScaleFactor        lasEnt    (vla-get-ScaleFactor        vlaEnt))
  75.  (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle        vlaEnt))
  76.  (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
  77.  (vla-put-Alignment        lasEnt    (vla-get-Alignment        vlaEnt))
  78.  (vla-put-Backward        lasEnt    (vla-get-Backward        vlaEnt))
  79.  (vla-put-Normal        lasEnt    (vla-get-Normal            vlaEnt))
  80.  (vla-put-UpsideDown        lasEnt    (vla-get-UpsideDown        vlaEnt))
  81.  (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
  82.  (vla-put-TextAlignmentPoint    lasEnt    (vla-get-TextAlignmentPoint    vlaEnt))
  83.  (setq return (vlax-vla-object->ename lasEnt))
  84.  return
  85.  )
  87. (defun _TextCopy-MTEXT(ent / vlaEnt lasEnt)
  88.  (command "MTEXT" '(0 0 0) '(1 1 0) "1" "")
  89.  (setq lasEnt (vlax-ename->vla-object (entlast)))
  90.  (setq vlaEnt (vlax-ename->vla-object (car ent)))
  91.  (vla-put-AttachmentPoint    lasEnt    (vla-get-AttachmentPoint    vlaEnt))
  92.  (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
  93.  (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
  94.  (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
  95.  (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
  96.  (vla-put-Width        lasEnt    (vla-get-Width            vlaEnt))
  97.  (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
  98.  (vla-put-Normal        lasEnt    (vla-get-Normal            vlaEnt))
  99.  (vla-put-BackgroundFill    lasEnt    (vla-get-BackgroundFill        vlaEnt))
  100.  (vla-put-DrawingDirection    lasEnt    (vla-get-DrawingDirection    vlaEnt))
  101.  (vla-put-LineSpacingDistance    lasEnt    (vla-get-LineSpacingDistance    vlaEnt))
  102.  (vla-put-LineSpacingFactor    lasEnt    (vla-get-LineSpacingFactor    vlaEnt))
  103.  (vla-put-LineSpacingStyle    lasEnt    (vla-get-LineSpacingStyle    vlaEnt))
  104.  (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
  105.  (setq return (vlax-vla-object->ename lasEnt))
  106.  return
  107.  )
  109. (defun _TextCopy-NESATT(ent / vlaEnt lasEnt)
  110.  (command "TEXT" '(0 0 0) 1 1 "1")
  111.  (setq lasEnt (vlax-ename->vla-object (entlast)))
  112.  (setq vlaEnt (vlax-ename->vla-object (car ent)))
  113.  (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
  114.  (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
  115.  (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
  116.  (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
  117.  (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
  118.  (vla-put-ScaleFactor        lasEnt    (vla-get-ScaleFactor        vlaEnt))
  119.  (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle        vlaEnt))
  120.  (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
  121.  (princ "blah")
  122.  (setq return (vlax-vla-object->ename lasEnt))
  123.  return
  124.  )
  126. (defun _TextCopy-NESTEXT(ent / vlaEnt lasEnt)
  127.  (command "TEXT" '(0 0 0) 1 1 "1")
  128.  (setq lasEnt (vlax-ename->vla-object (entlast)))
  129.  (setq vlaEnt (vlax-ename->vla-object (car ent)))
  130.  (vla-put-TextString        lasEnt    (vla-get-TextString    vlaEnt))
  131.  (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle    vlaEnt))
  132.  (vla-put-StyleName        lasEnt    (vla-get-StyleName    vlaEnt))
  133.  (vla-put-Alignment        lasEnt    (vla-get-Alignment    vlaEnt))
  134.  (vla-put-Backward        lasEnt    (vla-get-Backward    vlaEnt))
  135.  (vla-put-Normal        lasEnt    (vla-get-Normal        vlaEnt))
  136.  (vla-put-UpsideDown        lasEnt    (vla-get-UpsideDown    vlaEnt))
  137.  (vla-put-Height        lasEnt    (vlax-make-variant (* (cdr (assoc 42 (entget (caar (cdddr ent))))) (cdr (assoc 40 (entget (car ent))))) vlax-vbDouble))
  138.  (vla-put-ScaleFactor        lasEnt    (vlax-make-variant (* (/ (cdr (assoc 41 (entget (caar (cdddr ent))))) (cdr (assoc 42 (entget (caar (cdddr ent)))))) (cdr (assoc 41 (entget (car ent))))) vlax-vbDouble))
  139.  (vla-put-Rotation        lasEnt    (vlax-make-variant (cdr (assoc 50 (entget (caar (cdddr ent))))) vlax-vbDouble))
  140.  (vla-put-Layer        lasEnt    (vlax-make-variant (cdr (assoc 8 (entget (caar (cdddr ent))))) vlax-vbString))
  141.  (vla-put-InsertionPoint    lasEnt (vlax-3D-point
  142.                     (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 10 (entget (car ent))))))
  143.                     (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 10 (entget (car ent))))))
  144.                     (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 10 (entget (car ent))))))))
  145.  (vla-put-TextAlignmentPoint    lasEnt (vlax-3D-point
  146.                     (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 11 (entget (car ent))))))
  147.                     (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 11 (entget (car ent))))))
  148.                     (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 11 (entget (car ent))))))))
  149.  (setq return (vlax-vla-object->ename lasEnt))
  150.  return
  151.  )
  153. (defun _TextCopy-NESMTEXT(ent / vlaEnt lasEnt)
  154.  (command "MTEXT" '(0 0 0) '(1 1 0) "1" "")
  155.  (setq lasEnt (vlax-ename->vla-object (entlast)))
  156.  (setq vlaEnt (vlax-ename->vla-object (car ent)))
  157.  (vla-put-TextString        lasEnt    (vla-get-TextString    vlaEnt))
  158.  (vla-put-StyleName        lasEnt    (vla-get-StyleName    vlaEnt))
  159.  (vla-put-Normal        lasEnt    (vla-get-Normal        vlaEnt))
  160.  (vla-put-AttachmentPoint    lasEnt    (vla-get-AttachmentPoint vlaEnt))
  161.  (vla-put-Width        lasEnt    (vla-get-Width        vlaEnt))
  162.  (vla-put-Height        lasEnt    (vlax-make-variant (* (cdr (assoc 42 (entget (caar (cdddr ent))))) (cdr (assoc 40 (entget (car ent))))) vlax-vbDouble))
  163.  (vla-put-Rotation        lasEnt    (vlax-make-variant (cdr (assoc 50 (entget (caar (cdddr ent))))) vlax-vbDouble))
  164.  (vla-put-Layer        lasEnt    (vlax-make-variant (cdr (assoc 8 (entget (caar (cdddr ent))))) vlax-vbString))
  165.  (vla-put-InsertionPoint    lasEnt (vlax-3D-point
  166.                     (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 10 (entget (car ent))))))
  167.                     (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 10 (entget (car ent))))))
  168.                     (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 10 (entget (car ent))))))))
  169.    (setq return (vlax-vla-object->ename lasEnt))
  170.  return
  171.  )
  173. (defun _TextCopy-DIMMTEXT(ent / vlaEnt lasEnt)
  174.  (command "copybase" (list 0 0 0) (caar (cdddr ent)) "")
  175.  (command "pasteclip" (list 0 0 0))
  176.  (setq return (entlast))
  177.  return
  178.  )

 
可能有一些代码可以清理，但总的来说，它应该可以工作。这项工作仍在进行中。如果你使用它，请告诉我它是如何工作的。我自己经常用它。^^
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:16:01 | 显示全部楼层
简单介绍一下：
 
  2. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:qEdit [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ss dc$tag bs|Txt nw|Txt[b][color=RED])[/color][/b]
  3.  [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
  4.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [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=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT,MTEXT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  5.    [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
  6.      [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dc$tag [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b][b][color=RED])[/color][/b]
  7.            bs|Txt [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]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=#009900]0[/color][/b][b][color=RED])[/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]new_dialog[/color][/b] [b][color=#ff00ff]"acad_txtedit"[/color][/b] dc$tag[b][color=RED])[/color][/b]
  9.      [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] bs|Txt[b][color=RED])[/color][/b]
  10.      [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] [b][color=#ff00ff]"(setq nw|Txt $value)"[/color][/b][b][color=RED])[/color][/b]
  11.      [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"cancel"[/color][/b] [b][color=#ff00ff]"(exit)"[/color][/b][b][color=RED])[/color][/b]
  12.      [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b]
  13.      [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
  14.        [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
  15.          [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b]
  16.            [b][color=RED]([/color][/b][b][color=BLUE]entmod[/color][/b]
  17.              [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
  18.                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] nw|Txt[b][color=RED])[/color][/b]
  19.                  [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]1[/color][/b] x[b][color=RED])[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  20.        [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]entget[/color][/b]
  21.          [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b]
  22.            [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b]
  23.              [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  24.      [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] dc$tag[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  25.  [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 15:27:08 | 显示全部楼层
 
由于ddedit可以处理几乎所有的事情，我只是稍微更改了您的代码
  3. ; EDIT ATTRIBUTED OR TEXT BY SELECTION
  4. (defun C:ETA (/ A B C D E Z)
  5.  (graphscr)
  6. ; (prompt "\nEdit-TEXT/ATTRIBUTE is loaded... ")
  7.  (setq A (ssget) B (sslength A) C 0)
  8.  (while (< C B)
  9.    (setq D (ssname A C) E (entget D))
  10.    (setq Z (cdadr E))
  11.    (if (member Z '("TEXT" "MTEXT" "INSERT" "DIMENSION")) (command ".ddedit" D ""))
  12.    (terpri)
  13.    (setq C (1+ C)))
  14.  (princ)
  15. )

 
我肯定我还想用它做些别的事，但我不记得了
回复

使用道具 举报

Commandobill

12

主题

395

帖子

384

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-6 15:47:52 | 显示全部楼层
 
 
隐马尔可夫模型。。。看起来不像你的风格，李。尝试新事物？
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-5 00:28 , Processed in 0.324329 second(s), 64 queries .

© 2020-2025 乐筑天下

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