求大神修改一下这个程序
修改后提取的文字可以粘贴其实就是弄到粘贴板提取的文字变为绿色(defun c:EDSS( / ss osmode i name ent size size_new size_all bak_cecolor)
(setvar "cmdecho" 0)
;(setq osmode (getvar "osmode"))
(setq i 0)
(princ "\n选择尺寸")
(if(setq ss(ssget '((0 . "DIMENSION"))))
(progn
(setq bak_dimzin(getvar 'dimzin))
(setvar 'dimzin 8)
(while (setq name (ssname ss 0))
(setq i (1+ i))
(setq ent (entget name))
(setq size (cdr (assoc 42 ent)))
(if (= i 1)
(setq num_all size)
(setq num_all (+ num_all size))
)
(setq size_new (rtos(* size 0.001) 2 3))
(if (= i 1)
(setq size_all size_new)
(setq size_all (strcat size_all "+" size_new ))
)
(setq ss(ssdel name ss))
)
(setq bak_cecolor(getvar 'cecolor))
(setvar 'cecolor "1")
(setq size_all(strcat "(" size_all ")"))
(vl-cmdf "_.text" "j" "mc" (getpoint "\n文本放置点") "250" "0" size_all)
(and bak_cecolor (setvar 'cecolor bak_cecolor))
(and bak_dimzin (setvar 'dimzin bak_dimzin))
)
)
;(setvar "osmode" osmode)
(setvar "cmdecho" 1)
(princ)
)
页:
[1]