jinhear 发表于 2017-11-21 22:22:04

小程序变量无效

求哪位大神帮忙看一下，我这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 发表于 2017-11-22 08:44:12


情迷法兰西0 发表于 2017-11-22 08:59:25

本帖最后由 情迷法兰西0 于 2017-11-22 09:00 编辑

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

jinhear 发表于 2017-11-22 21:05:20

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

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

情迷法兰西0 发表于 2017-11-23 17:19:46

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

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

jinhear 发表于 2017-11-24 09:43:28

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

再冒昧请教，下面这个运行的时候报错是什么原因，要达成这样的效果应怎么弄。（备注：aabbcc是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 发表于 2017-11-25 08:06:30

(setq txtlist '(aa bb cc dd ee ff)),这里用'表示括号内不进行计算，应该改为(setq txtlist (list aa bb cc dd ee ff))
页: [1]
查看完整版本: 小程序变量无效