[LISP函数]：不知错误出在哪里

lxz0929 · 发表于 2005-5-31 19:02:57

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

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

×

输出所有SPLINE的信息，但现在出不来，请帮帮忙！
(Defun C:SPLL ()
  (setq s1(ssget"X" '((0 . "SPLINE"))))
  (sslength s1)
  (setq ent (entnext))
  (setq ent1 ent)
  (while(ent1)
(progn
   (setq ent2(entget ent1))
   (setq ct 0)
   (repeat (length ent2)
(print(nth ct ent2))
(setq ct (+ 1 ct))
   )
   (print)
  (setq ent1 (entnext ent))
)
)
  (print)
)

xyp1964 · 发表于 2005-5-31 19:34:17

[php](Defun C:SPLL ()
  (setq ss (ssget "X"       '((0 . "SPLINE")))
      i -1
  )
  (while(setq s1 (ssname ss (setq i (1+ i))))
(Princ"\n")(princ (+ i 1))
(Princ"\n")(print (entget s1))
  )
  (princ)
)[/php]

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

[LISP函数]：不知错误出在哪里

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

相关帖子