明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 148|回复: 6

小程序变量无效

[复制链接]
发表于 2017-11-21 22:22 | 显示全部楼层 |阅读模式
1明经币
求哪位大神帮忙看一下,我这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))
     ))

发表于 2017-11-22 08:44 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
回复

使用道具 举报

发表于 2017-11-22 08:59 | 显示全部楼层
本帖最后由 情迷法兰西0 于 2017-11-22 09:00 编辑

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

使用道具 举报

 楼主| 发表于 2017-11-22 21:05 | 显示全部楼层
情迷法兰西0 发表于 2017-11-22 08:59
(show_sld vsslist txtlist)改为(mapcar 'show_sld vsslist txtlist)

真心感谢!!!这个困了我好长时间,哈哈哈,这个明经币怎么给你。
回复

使用道具 举报

发表于 2017-11-23 17:19 | 显示全部楼层
jinhear 发表于 2017-11-22 21:05
真心感谢!!!这个困了我好长时间,哈哈哈,这个明经币怎么给你。

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

评分

参与人数 1明经币 +1 收起 理由
仲文玉 + 1 我来加给你,热心帮助奖

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-11-24 09:43 | 显示全部楼层
情迷法兰西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))
     ))
回复

使用道具 举报

发表于 2017-11-25 08:06 | 显示全部楼层
(setq txtlist '(aa bb cc dd ee ff)),这里用'表示括号内不进行计算,应该改为(setq txtlist (list aa bb cc dd ee ff))
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-1-21 18:16 , Processed in 0.179806 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表