请高手看下我的文字改层的命令有什么问题
<P>请高手看下我的文字改层的命令有什么问题</P><P>(defun c:wzgc ()<BR> (CMDLA0)<BR> (command "color" "bylayer")<BR> (setq wenzhi (cdr (assoc 1 (entget (car (entsel "\n请点取想要归层的文字:"))))))<BR> (initget "1 2 3 4")<BR> (setq key (getkword "\n请选择文字匹配方式:左边匹配(1)\\右边匹配(2)\\中间匹配(3)\\完全匹配(4)"))<BR> (MKLA "tangchao" 2)<BR> (command "color" "bylayer")<BR> (cond<BR> ((= key 1) (setq s1 (ssget "x" (LIST (CONS 0 "TEXT") (CONS 1 (STRCAT wenzhi "*"))))))<BR> ((= key 2) (setq s1 (ssget "x" (LIST (CONS 0 "TEXT") (CONS 1 (STRCAT "*" wenzhi))))))<BR> ((= key 3) (setq s1 (ssget "x" (LIST (CONS 0 "TEXT") (CONS 1 (STRCAT "*" wenzhi" *"))))))<BR> ((= key 4) (setq s1 (ssget "x" (LIST (CONS 0 "TEXT") (CONS 1 (STRCAT wenzhi))))))<BR> (t (setq s1 (ssget "x" (LIST (CONS 0 "TEXT") (CONS 1 (STRCAT wenzhi))))))<BR> )<BR> (progn<BR> (setq YH_sslength (sslength s1))<BR> (setq YH_no 0)<BR> (while (< YH_no YH_sslength)<BR> (setq YH_select (entget (ssname s1 YH_no)))<BR> (setq YH_select (subst (cons 8 "tangchao") (assoc 8 YH_select) YH_select))<BR> (entmod YH_select)<BR> (setq YH_no (1+ YH_no))<BR> )<BR> (setq wenzi nil)<BR> (princ "\n程序提示:修改完成.")<BR> )<BR> ;(princ "\n程序提示: 没有找到要修改的图元.")<BR> ;)<BR> (CMDLA1)<BR> (princ)<BR> )</P>
<P>(defun CMDLA0 ()<BR> (setq cmdech (getvar "CMDECHO"))<BR> (setq oom (getvar "orthomode"))<BR> (setq osm (getvar "osmode"))<BR> (SETQ LA (getvar "clayer"))<BR> (setq rmode (getvar "regenmode"))<BR> (setq pw (getvar "plinewid"))<BR> (setvar "regenmode" 0)<BR> (setvar "CMDECHO" 0)<BR> (princ)<BR>)</P>
<P>(defun CMDLA1 ()<BR> (setvar "CMDECHO" cmdech)<BR> (setvar "orthomode" oom)<BR> (setvar "osmode" osm)<BR> (setvar "clayer" LA)<BR> (setvar "regenmode" rmode)<BR> (setq s1 nil)<BR> (setvar "plinewid" pw)<BR> (princ)<BR>)</P>
<P>(Defun MKLA (name color)<BR> (If (= (Tblsearch "layer" name) nil)<BR> (Command "layer" "m" name "c" color name "")<BR> (Command "layer" "t" name "s" name "c" color name "")<BR> )<BR>)<BR></P>
页:
[1]