复制匹配文本和文本增量

cadamrao · 发表于 2022-7-6 07:52:37

你好

请任何人都可以改变这个Lisp程序为我方便的目的。我有一个来自cadtutor的Lisp程序；这个很好用。我需要更改目标对象的颜色（颜色240）。

下面我需要另一个LISP数增量。

K3HB1-300X600
K3HB2-300X600
K3HB3-300X600
K3HB4-300X600

K3VB1-300X600
K3VB2-300X600
K3VB3-300X600
K3VB4-300X600

用于准备梁明细表

提前谢谢
文基
复制文本。lsp

MSasu · 发表于 2022-7-6 08:09:55

要修改颜色，可以将此行添加到代码中：

copy

...
    ) ;_ if
  ) ;_ list
) ;_ vl-catch-all-apply
[color=magenta] (vlax-put-property x 'Color 240)
[/color])
;; unable to extract text, must not be able to edit it
(T
(and (vl-consp #TargetEnt)
     (alert "Cannot edit text within selected object!")
) ;_ and
...

cadamrao · 发表于 2022-7-6 08:36:36

非常感谢您提供的信息，我需要帮助另一个LISP执行以下梁计划（增量编号和更改）。

K3HB1-300X600
K3HB2-300X600
K3HB3-300X600
K3HB4-300X600

K3VB1-300X600
K3VB2-300X600
K3VB3-300X600
K3VB4-300X600

再次感谢！
文基

QUOTE=MSasu；478659]要修改颜色，可以将此行添加到代码中：

copy

...
    ) ;_ if
  ) ;_ list
) ;_ vl-catch-all-apply
[color=magenta](vlax-put-property x 'Color 240)[/color]
)
;; unable to extract text, must not be able to edit it
(T
(and (vl-consp #TargetEnt)
     (alert "Cannot edit text within selected object!")
) ;_ and
...

MSasu · 发表于 2022-7-6 08:43:51

也许是李的编号工具？

cadamrao · 发表于 2022-7-6 09:02:03

感谢提供信息；那我查一下李先生的节目。

文基

[编程交流] 复制匹配文本和文本增量

发表回复

精选推荐