[编程申请]：请修改成所选文字加前缀D后颜色变红以示标记

lengliqun

以下为给文字加前缀D 的LSP，请修改成所选文字加前缀D后颜色变红以示标记。谢谢。




;;;|文字加前缀D
(defun c:A (/ ent ss i)
(setq ss (ssget '((0 . "*TEXT")))i 0)
  (repeat (sslength ss)
    (setq ent (entget(ssname ss i)))
    (entmod(subst(cons 1 (strcat "D" (cdr(assoc 1 ent))))
      (assoc 1 ent) ent))
    (setq i (1+ i))
   )
)

xyp1964

[php]
;;;文字加前缀D,并变红以示标记
(defun c:test (/ ss i s1 ent)
  (setq        ss (ssget '((0 . "TEXT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ent (entget s1))
    (entmod (subst (cons 1 (strcat "D" (cdr (assoc 1 ent))))
                   (assoc 1 ent)
                   ent
            )
    )
    (command "chprop" s1 "" "c" "1" "")
  )
  (princ)
)
[/php]

tsy_sds_chwr

这个很不错，工作有用

li809

楼主改的程序:请问能否改成以下要求的
改成D是否能修改为改成任何字符(可以提示输入)
变红能否修改为任何颜色(可以提示输入)

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;文字加任意前缀,并变颜色以示标记
(defun c:test (/ ss i s1 ent)
  (cmdla0)
  (setq        tx (ustr 1 "\n请输入前缀文字" tx nil)
        co (uint 1 "" "\n颜色号" co)
        ss (ssget '((0 . "TEXT")))
        i  -1
  )
  (command ".undo" "BE")
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq txnew (strcat tx (dxf 1 (entget s1))))
    (sub_upd s1 1 txnew)
    (command "chprop" s1 "" "c" co "")
  )
  (command ".undo" "E")
  (cmdla1)
)
[/php]