请教各位大哥:使用STRCAT函数时经常导致参数类型错误: stringp x

mark_liyi

使用STRCAT函数时经常导致参数类型错误: stringp x (x代表 3, 6 ,7, 9,之类的整形数)

不用strcat函数而直接用PRINC一个一个显示就没问题!请教各位大哥........小弟初学,问的问题弱智点哈..........

龙龙仔

传回结合多重字串的字串
(strcat [string [string]...])
引数
string
一个字串。传回值
一个字串。 如果没有提供引数，strcat 会传回零长度的字串。
范例
指令：(strcat "a" "bout")
"about"
指令：(strcat "a" "b" "c")
"abc"
指令：(strcat "a" "" "c")
"ac"
指令：(strcat)
""

mark_liyi

谢谢龙龙....可是调试很久还是不行......感觉没有镶套的字符串啊.....我把程序发出来,大家帮看看啊.....新手哈...程序也是教程里的!

还有就是为什么用ENTMOD只能更新到最后一个元素,而前面的别系统省去了呢????

(DEFUN C:MODTBL ()
  (SETQ LAY (TBLOBJNAME "LAYER" (GETSTRING "LAYER NAME :")))
  (IF (= LAY NIL)
    (PRINC ("\nNONE THIS LAYER"))
    (PROGN
      (SETQ LAY_1 (ENTGET LAY))
      (SETQ TEMP_N (CDR (ASSOC 2 LAY_1))
     TEMP_C (CDR (ASSOC 62 LAY_1))
      )
      (PRINC (strcat "\n图层名:<" TEMP_N ">"))
      (SETQ TEMP (GETSTRING "输入改变图层的名字:"))
      (IF (AND
     (/= TEMP "")
     (/= TEMP TEMP_N)
   )
 (SETQ TEMP_N TEMP)
      )
      (PRINC (strcat "\n图层颜色:<" TEMP_C ">"))
      (SETQ TEMP (GETINT "输入改变图层颜色数字"))
      (IF (AND
     (/= TEMP NIL)
     (/= TEMP TEMP_C)
   )
 (SETQ TEMP_C TEMP)
      )
      (SETQ TEMP (SUBST
     (CONS '2 TEMP_N)
     (ASSOC 2 LAY_1)
     LAY_1
   )
      )
      (SETQ TEMP (SUBST
     (CONS '62 TEMP_C)
     (ASSOC 62 LAY_1)
     LAY_1
   )
      )
      (ENTMOD TEMP)
    )
  )
  (PRINC)
)

mark_liyi

谢谢 海阔天空........问题已经解决,谢谢大家.....小弟新手....问的问题弱智.....望大家见谅!

龙龙仔

3. ;;不支持真色彩
4. (defun C:MODTBL ()
5.   (setq LAY (tblobjname "LAYER" (getstring "\nLAYER NAME :")))
6.   (if (= LAY NIL)
7.     (princ ("\nNONE THIS LAYER"))
8.     (progn
9.       (setq LAY_1 (entget LAY))
10.       (setq TEMP_N (cdr (assoc 2 LAY_1))
11.      TEMP_C (cdr (assoc 62 LAY_1))
12.       )
13.       (princ (strcat "\n图层名:<" TEMP_N ">"))
14.       (setq TEMP (getstring "\n输入改变图层的名字:"))
15.       (if (and
16.      (/= TEMP "")
17.      (/= TEMP TEMP_N)
18.    )
19. (setq TEMP_N TEMP)
20.       )
21.       (princ (strcat "\n图层颜色:<" (rtos TEMP_C) ">"))
22.       (setq TEMP (getint "\n输入改变图层颜色数字"))
23.       (if (and
24.      (/= TEMP NIL)
25.      (/= TEMP TEMP_C)
26.    )
27. (setq TEMP_C TEMP)
28.       )
29.       (setq TEMP (subst
30.      (cons '2 TEMP_N)
31.      (assoc 2 LAY_1)
32.      LAY_1
33.    )
34.       )
35.       (setq TEMP (entmod TEMP))
36.       (setq TEMP (subst
37.      (cons '62 TEMP_C)
38.      (assoc 62 TEMP)
39.      TEMP
40.    )
41.       )
42.       (entmod TEMP)
43.     )
44.   )
45.   (princ)
46. )

;;不支持真色彩 (defun C:MODTBL ()   (setq LAY (tblobjname "LAYER" (getstring "\nLAYER NAME :")))   (if (= LAY NIL)     (princ ("\nNONE THIS LAYER"))     (progn       (setq LAY_1 (entget LAY))       (setq TEMP_N (cdr (assoc 2 LAY_1))      TEMP_C (cdr (assoc 62 LAY_1))       )       (princ (strcat "\n图层名:<" TEMP_N ">"))       (setq TEMP (getstring "\n输入改变图层的名字:"))       (if (and      (/= TEMP "")      (/= TEMP TEMP_N)    ) (setq TEMP_N TEMP)       )       (princ (strcat "\n图层颜色:<" (rtos TEMP_C) ">"))       (setq TEMP (getint "\n输入改变图层颜色数字"))       (if (and      (/= TEMP NIL)      (/= TEMP TEMP_C)    ) (setq TEMP_C TEMP)       )       (setq TEMP (subst      (cons '2 TEMP_N)      (assoc 2 LAY_1)      LAY_1    )       )       (setq TEMP (entmod TEMP))       (setq TEMP (subst      (cons '62 TEMP_C)      (assoc 62 TEMP)      TEMP    )       )       (entmod TEMP)     )   )   (princ) )

mark_liyi

谢谢龙龙斑竹.........菜鸟终于又明白了一些道理了...

mark_liyi

谢谢龙龙斑竹.........菜鸟终于又明白了一些道理了...