mapcar和set联用，下面代码出错了，改成while就好了

/db_自贡黄明儒_

http://bbs.xdcad.net/thread-671714-1-1.html在2016下，下面的程序不能用了，以前能用的。
出现错误提示:
命令: 'VLIDE VVC: Internal Error

(defun optimizeCode (ss vartxtlst filterlst)
    (mapcar (function (lambda (x y) (set (read x) (wmg-ssgetp ss y))))
            vartxtlst
            filterlst
    )
  )

我现在换成foreach while就正常了

(defun optimizeCode (ss vartxtlst filterlst)
  (while (setq x (car vartxtlst))
    (setq y (car filterlst))
    (set (read x) (wmg-ssgetp ss y))
    (setq vartxtlst (cdr vartxtlst))
    (setq filterlst (cdr filterlst))
  )
)

newer

确定是MAPCAR的事？

/db_自贡黄明儒_

newer 发表于 2017-6-1 15:43

当然，也可能是set惹的祸。反正原来那段代码不行了。

newer

/db_自贡黄明儒_ 发表于 2017-6-1 15:52

现在身边没16的，
(mapcar '(lambda(x y) (+ x y)) '(1 2 3 4) '(5 4 3 2))

你试试上面的代码，正常返回值不？

/db_自贡黄明儒_

newer 发表于 2017-6-1 16:15

2018都出来了，你落伍了，呵呵。

2016下
(mapcar '(lambda(x y) (+ x y)) '(1 2 3 4) '(5 4 3 2)) =》(6 6 6 6)没有问题

XDSoft

/db_自贡黄明儒_ 发表于 2017-6-1 16:33

那老黄你就得修改下 标题了，不是MAPCAR的事，别让他背锅了。

你单行执行下 set 你的数据，看看 set是不是有问题了？

/db_自贡黄明儒_

XDSoft 发表于 2017-6-1 16:40

老大，测试过了，set也没有问题。就是那段代码中有mapcar 和set ，就不行了。

XDSoft

/db_自贡黄明儒_ 发表于 2017-6-1 16:45

vartxtlst filterlst 内容分别是什么？

/db_自贡黄明儒_

XDSoft 发表于 2017-6-1 17:08

• http://bbs.xdcad.net/thread-671714-1-1.html
• (defun wmg-ssgetp (ss filter)
  
• 
                                 
  登录/注册后可看大图
      (vl-cmdf "_.select" ss "")
  
• 
                                 
  登录/注册后可看大图
      (ssget "p" filter)
  
• 
                                 
  登录/注册后可看大图
    )
  
• (setq vartxtlst (list "CIRC" "ELLI" "LIN" "LWP" "REG"))
• 
                                 
  登录/注册后可看大图
    (setq filterlst (list (list '(0 . "CIRCLE,ARC"))
• 
                                 
  登录/注册后可看大图
     (list '(0 . "ELLIPSE"))
• 
                                 
  登录/注册后可看大图
     (list '(-4 . "<or")   '(0 . "LINE")   '(-4 . "<and")
• 
                                 
  登录/注册后可看大图
           '(0 . "LWPOLYLINE")       '(90 . 2)
• 
                                 
  登录/注册后可看大图
           '(-4 . "and>")  '(-4 . "or>")
• 
                                 
  登录/注册后可看大图
          )
• 
                                 
  登录/注册后可看大图
     (list '(0 . "LWPOLYLINE") '(70 . 1))
• 
                                 
  登录/注册后可看大图
     (list '(0 . "REGION"))
• 
                                 
  登录/注册后可看大图
      )
• 
                                 
  登录/注册后可看大图
    )
  

炫翔

是个新鲜事，我只记得 read 可能会出现问题，其他应该不会

ll_j

2012上看不出错误，如果是在2016上出错，或许是64位系统下函数有调整，也或许只是Vlide编辑器有什么不完善的地方。
不过从第一感觉就是这里的read函数是多余的，虽然我们知道read有解析函数名的作用，但对于以表处理见长的Lisp而言，这样用似乎有点画蛇添足，根据filterlst构建一个不同类型是实体名集表足以，因为顺序是自己定的，以后按顺序取值即可，这样至少可以避开最容易出问题的read函数。

/db_自贡黄明儒_

ll_j 发表于 2017-6-1 20:07

64位下我是编译成vlx运行出错的，后来我又在 32位下用vlisp下运行，同样出错。应该与编辑器没有关系了。

ll_j

一般说来，VLIDE就是acad自带的编辑器本身，出错提示应该是VLIDE内部错误的意思吧，很有可能是什么函数的新旧算法与VLIDE不兼容。建议你在可能出错的地方加一个断点调试一下，或许能找出问题所在。

marting

ll_j 发表于 2017-6-1 20:55

他应该是在命令行就报错了。

/db_自贡黄明儒_

ll_j 发表于 2017-6-1 20:55

64位下，运行vlx.