需要一些Lisp程序。。。

mfadzli · 发表于 2022-7-5 22:41:45

大家好

我需要一些lisp，将增加这样的文本。。

1R 1Y 1B 2R 2Y 2B 3R 3Y 3B…）

hanhphuc · 发表于 2022-7-5 22:47:59

嗨，mfadzli没有人回应，因为人们不理解？你能解释清楚吗？或者试试其他的线索http://www.cadtutor.net/forum/showthread.php?79801-递增数字。。。。但有特殊的东西。

.

BIGAL · 发表于 2022-7-5 22:49:49

了解你想要什么，你能再详细一点吗？是文字还是多行文字，是在一个层面上。您可以搜索第一个apha字符的所有文本，然后找到最大数字add 1并添加文本。发布dwg进行测试。随着文本数量的增加，如果不是在一层上，可能意味着每一层之间都会有轻微的犹豫。

mfadzli · 发表于 2022-7-5 22:55:09

对不起，这个简单的问题。。呵呵。。

我正在寻找一个lisp来增加文本
例如，我有文本“01”“02”“03”“04”“05”“06”需要替换为“01R”“01Y”“01B”“02R”“02Y”“02B”。
只需选择文本，它就会替换并按照上面示例中的顺序进行操作。

例如，见附件。
样品图纸

hanhphuc · 发表于 2022-7-5 22:58:39

我试图弄明白：
这意味着什么
9=“03B”？
28=“10R”？
38=“13Y”？

如果我是对的，那么你可以试试下面的代码，
命令：BRY
选择文字或多行文字

copy


;Add incremental suffix B R Y
;hp# 22/07/14
;http://www.cadtutor.net/forum/showthread.php?87667-Need-some-lisp...
(defun C:BRY  (/  *error* e tx #)
(defun *error* (msg)
    (if (wcmatch (strcase msg) "*CANCEL*,*EXIT*")
     (princ msg)
     (princ (strcat "\n*Error: " msg))
   )
 )
 (while (setq e (entsel "\nSelect *TEXT: ")) ; *edited thanx mr.Tharwat
   (if        (and (setq e (car e))
     (setq tx (cdr (assoc 1 (entget e))))
     (/= (setq # (atof tx)) 0)
    ;(not (wcmatch (strcase tx) "*B,*R,*Y")) ; *removed
                     (numberp(read tx)) ; *added
     )
     (vla-put-textstring
(vlax-ename->vla-object e)
('((# / i n)
   (setq
    n
    (fix (abs #))
    i
    (rem n 3.))
   (strcat
    (if
     (minusp #)
     "-"
     (if
      (< n 10)
      "0"
      ""))
    (rtos
     (if
      (zerop i)
      (/ n 3.)
      (1+ (fix (/ n 3.))))
     2
     0)
    (cond
     ((zerop i) "B")
     ((= i 1) "R")
     ((= i 2) "Y"))))
  #)))))
(princ "command: BRY")
(princ)