[LISP函数]：那位看看程序错那了？

bububa918 · 发表于 2009-9-10 12:33:24

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:TT (/ )
(setvar "cmdecho" 0)
(setq xz (ssget))
  (setq num (sslength xz))
(setq shu 0)
(repeat num
(setq shiti(entget(ssname xz shu)))
(setq shu (+ 1 shu))
(if (= (cdr (assoc 8 shiti)) "lay1")
  (progn
(setq shiti (subst (cons 8 "lay2") (assoc 8  shiti) shiti)) ;改层
    (entmod shiti)
))
(setvar "cmdecho" 1)
(princ)
)

guohq · 发表于 2009-9-10 14:33:58

(defun c:TT (/)
  (setvar "cmdecho" 0)
  (setq xz (ssget))
  (setq num (sslength xz))
  (setq shu 0)
  (repeat num
(setq shiti (entget (ssname xz shu)))
(setq shu (+ 1 shu))
(if (= (cdr (assoc 8 shiti)) "lay1")
   (progn
(setq shiti (subst (cons 8 "lay2") (assoc 8 shiti) shiti));改层
(entmod shiti)
)
)

  )
  (setvar "cmdecho" 1)
  (princ)
)

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

[LISP函数]：那位看看程序错那了？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子