查看: 1645|回复: 1

[LISP群(1)] 2013-11-15 明经 AutoLISP 编程(102918348) 群聊记录：[3/7] (foreach x ent (if (= (car x) 1

[复制链接]

明经快报

发表于 2013-11-15 08:40:16 | 显示全部楼层 |阅读模式

[偏爱云~小吴]偏 08:40:16

[3/7]  (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   (if (setq ss1 (ssget "WP" ptlst '((0 . "TEXT")))) (progn
    (while (> (sslength ss1) 0)
     (setq ent (entget(setq en

2013-11-15, 记录, 群聊, 编程, 明经

账号		自动登录	找回密码
密码			注册

[LISP群(1)] 2013-11-15 明经 AutoLISP 编程(102918348) 群聊记录：[3/7] (foreach x ent (if (= (car x) 1

相关帖子