[求助] 请LISP高手帮帮忙

xueweiheng · 发表于 2010-1-14 16:37:00

(defun C:TT ()
    (setq a 0)
    (setq b (entnext))
    (while(/= b nil)
(setq elist (entget b))
(if (= (cdr (assoc 0 elist)) "VIEWPORT" )
     (
  (setq ss (ssadd))
  (ssadd b ss)
  (command "EXPLODE" "L" "")
  (setq a 1)
     )
)
(setq b(entnext b))
(
if(= b nil a 1)
    (
     (setq b(entnext))
     (setq a 0)
    )
)
    )
)

ZZXXQQ · 发表于 2010-1-15 19:38:00

不知道楼主要干什么？仅对语法进行了处理。
(defun C:TT ()
(setq a 0)
(setq b (entnext))
(while (/= b nil)
(setq elist (entget b))
(if (= (cdr (assoc 0 elist)) "VIEWPORT") (progn
   (setq ss (ssadd))
   (ssadd b ss)
   (command "EXPLODE" "L" "")
   (setq a 1)
))
(setq b (entnext b))
(if (and (= b nil) (= a 1)) (progn
   (setq b (entnext))
   (setq a 0)
))
)
)

danberlove · 发表于 2010-1-16 17:21:00

请问一下viewport是什么实体啊？

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

[讨论] [求助] 请LISP高手帮帮忙