贴出部分内容
(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)
)
