小程序变量无效

jinhear

求哪位大神帮忙看一下，我这vss怎么没有值
(defun c:too()
  (setq vsslist '(1 2 3 4 5 6))
  (setq txtlist '("天下第一" "天下第二" "天下第三" "天下第四" "天下第五" "天下第六"))
  (show_sld vsslist txtlist)
  (princ)
  )
(defun show_sld(vss sld)
  (setq n 0)
  (setq sss (ssget "x" (list (cons 0 "MTEXT") (cons 62 vss))))     ;更改上面模
    (repeat (sslength sss)
    (setq en (ssname sss n))
    (setq en_data (entget en))
    (setq en_data (subst (cons 1 sld) (assoc 1 en_data) en_data))
    (entmod en_data)
    (setq n (1+ n))
     ))

情迷法兰西0

情迷法兰西0

(show_sld vsslist txtlist)改为(mapcar 'show_sld vsslist txtlist)

jinhear

情迷法兰西0 发表于 2017-11-22 08:59
(show_sld vsslist txtlist)改为(mapcar 'show_sld vsslist txtlist)

真心感谢！！！这个困了我好长时间，哈哈哈，这个明经币怎么给你。

情迷法兰西0

jinhear 发表于 2017-11-22 21:05
真心感谢！！！这个困了我好长时间，哈哈哈，这个明经币怎么给你。

有你这句话在这里，版主看到了会给我的。您不需要任何操作

jinhear

情迷法兰西0 发表于 2017-11-23 17:19
有你这句话在这里，版主看到了会给我的。您不需要任何操作

再冒昧请教，下面这个运行的时候报错是什么原因，要达成这样的效果应怎么弄。（备注：aa  bb  cc是dcl里面捞出的）
(defun c:too()
  (setq vsslist '(1 2 3 4 5 6))
  (setq aa "天下第一" bb "天下第二" cc "天下第三" dd "天下第四" ee "天下第五" ff "天下第六")
  (setq txtlist '(aa bb cc dd ee ff))
  (mapcar 'show_sld vsslist txtlist)
  (princ)
  )
(defun show_sld(vss sld)
  (setq n 0)
  (setq sss (ssget "x" (list (cons 0 "MTEXT,dimension") (cons 62 vss))))   
    (repeat (sslength sss)
    (setq en (ssname sss n))
    (setq en_data (entget en))
    (setq en_data (subst (cons 1 sld) (assoc 1 en_data) en_data))
    (entmod en_data)
    (setq n (1+ n))
     ))

情迷法兰西0

(setq txtlist '(aa bb cc dd ee ff)),这里用'表示括号内不进行计算，应该改为(setq txtlist (list aa bb cc dd ee ff))