社区 › Auto Lisp › 复制匹配文本和文本增量

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

要修改颜色，可以将此行添加到代码中：
...
    ) ;_ if
) ;_ list
) ;_ vl-catch-all-apply
(vlax-put-property x 'Color 240)
)
;; 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]要修改颜色，可以将此行添加到代码中：
...
    ) ;_ if
) ;_ list
) ;_ vl-catch-all-apply
(vlax-put-property x 'Color 240)
)
;; 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

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

查看完整版本: 复制匹配文本和文本增量