土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 请教一个VISUAL LISP问题!

请教一个VISUAL LISP问题!

发布于:2007-03-31 08:12:31 来自:建筑设计/CAD下载及教程 [复制转发]
我是一名刚学习VISUAL LISP的新手,我在看书时看到这样一段程序:

(setq e1 (entnext))

(if(not e1))

(princ"\nNo entities in drawing.")

(prong

(setq ss (ssadd))

(ssadd ee1 ss)

(setq e2 (entnext e1)

(ssadd e2 ss)

)

)

"entnext"的作用是"返回指定实体的下一个实体名,如果没有变元则返回第一个实体名",若entnext返回的是实体名,那么 "if(not e1))"if(not e1))" 中的"not e1"指得是什么意思呢,为什么返回的实体名前面用了not呢?请前辈指点!
  • xshrimp
    xshrimp 沙发
    (setq e1 (entnext)) 当取到最后一个后面就是没有.这个时候 el 为nil
    (not el)等价于(not nil) T
    2007-04-01 19:10:01

    回复 举报
    赞同0
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.09 万条内容 · 682 人订阅

猜你喜欢

阅读下一篇

office2007 pro/ent 简体中文版

下班以前给大家发个好东西!BT下载链接:pro 版:http://bt.hz0752.net/up/office2007pro.torrentent 版http://bt.hz0752.net/up/office2007ent.torrentOffice 2007 Suites: DBXYD-TF477-46YM4-W74MH-6YDQ8Office 2007 Applications: W2JJW-4KYDP-2YMKW-FX36H-QYVD8

回帖成功

经验值 +10