小小软件，功能不错！

beyond6990

还是一个小小LISP，小而功能不错，试下，直接在一个图档中也可以加载，下次开就没有了！

LIAOYAO

贴出部分内容
(command "viewres" "y" "10000")
(defun dtr (Z) (* pi (/ Z 180)))
(defun rtd (Z) (/ (* Z 180) pi))
(defun c:uuu() ; 呼叫us.lsp
(load "D:/00-autocad-lisp/us.lsp") (prin1))
(defun c:lm() ;
(command "layer" "m" );
(prin1))
(defun c:lr() ;圖層設定
(setvar "CMDECHO" 1)
(command "layer" "m" "001eb" "c" "1" "001eb" "l" "continuous" "001eb" "");上模座
(command "layer" "m" "002ea" "c" "2" "002ea" "l" "continuous" "002ea" "");上墊板
(command "layer" "m" "003e" "c" "3" "003e" "l" "continuous" "003e" "");上夾板
(command "layer" "m" "004da" "c" "4" "004da" "l" "continuous" "004da" "");脫背板
(command "layer" "m" "005d" "c" "5" "005d" "l" "continuous" "005d" "");脫料板
(command "layer" "m" "006c" "c" "6" "006c" "l" "continuous" "006c" "");下模板
(command "layer" "m" "007ca" "c" "7" "007ca" "l" "continuous" "007ca" "");下墊板
(command "layer" "m" "008cb" "c" "8" "008cb" "l" "continuous" "008cb" "");下模座
(command "layer" "m" "009cc" "c" "9" "009cc" "l" "continuous" "009cc" "");下墊腳
(command "layer" "m" "center" "c" "3" "center" "l" "center" "center" "");
(command "layer" "m" "01" "c" "11" "01" "l" "continuous" "01" "");
(command "layer" "m" "02" "c" "41" "02" "l" "continuous" "02" "");
(command "layer" "m" "03" "c" "71" "03" "l" "continuous" "03" "");
(command "layer" "m" "04" "c" "161" "04" "l" "continuous" "04" "");
(command "layer" "m" "05" "c" "15" "05" "l" "continuous" "05" "");
(command "layer" "m" "06" "c" "55" "06" "l" "continuous" "06" "");
(command "layer" "m" "07" "c" "05" "07" "l" "continuous" "07" "");
(command "layer" "m" "08" "c" "185" "08" "l" "continuous" "08" "");
(command "layer" "m" "09" "c" "245" "09" "l" "continuous" "09" "");
(prin1))

(defun c:fh() ; 圖塊之文字取代
(setvar "CMDECHO" 1)
(command "redrawall")
(setq sou nil tar nil key "y")
(while (= key "y")
     (princ "\n 選取舊文字 : ")
     (setq a0(ssget ":s" '((-4 . "<OR") (0 .  "TEXT")(0 . "INSERT")(-4 . "OR>")) ))
     (if (= a0 nil)
         (setq key "n")
         (progn
                (getn (ssname a0 0))
                (if (= ssn_typ "INSERT")
                    (progn
                           (setq temp (ssnamex a0 0))
                           (setq temp_p0  (car (cdr (car (cdr (cdr (cdr (car temp))))))) )
                           (if (/= temp_p0 nil)
                               (progn
                                      (setq p0(ucs_n temp_p0))
                                      (setq a(nentselp p0 ))
                                      (setq num(cdr (assoc 5 (entget(car a)))))
                                      (setq b(entget(handent num)))
                                      (if (= (cdr (assoc 0 b)) "ATTRIB") (setq bbb (cdr (assoc 1 b)))  )
                                      (setq sou (append sou (list bbb)))
                               )
                           )
                    )
                )
                (if (= ssn_typ "TEXT") (setq sou (append sou (list ssn_text))) )
                (princ "\n 選取新文字 : ")
                (while (= (setq b(ssget ":s" (list (cons 0  "TEXT")) ))  nil))
                (getn (ssname b 0))
                (setq tar (append tar (list ssn_text)))
         )
     )
)
(setq i 0)
;(command "attedit" "n" "n" "" "" "" "舊字串" "新字串")
(repeat (length sou)
     (command "attedit" "n" "n" "" "" "" (nth i sou) (nth i tar ))
     (setq i (+ 1 i))
)
(graphscr)
(prin1)
)

kaffeo

07em05 07em05 07em05

xinxin429

好DD，感谢楼主的无私。

quzhao

````不错`````好东西

zxfnh

谢谢偻主，有没有再好一点的，最好是lisp格式

yinhongtao_6688

怎么使用啊大哥，说明一下啊，我还真的不会用。呵呵呵

lyqcn0518

可惜我现在下不了！过几天再来！