大侠帮忙

lxz0929

创造选择集，想把数据库中的SPLINE的信息输出，但下面的程序没能实现，不知错误在哪里 (Defun C:SPLL()
(setq s1(ssget"X" '((0 . "SPLINE"))))
(sslength s1)
(setq ent(entget s1))
(setq ct 0)
(textpage)
(repeat (length ent)
(print(nth ct ent))
(setq ct (+ 1 ct))
)
(print)
)

龙龙仔

(defun C:SPLL (/ S1)
(prompt "\nSelect Spline: ")
(if (setq S1 (ssget ":E:S" '((0 . "SPLINE"))))
(progn
(textpage)
(mapcar 'print (entget (ssname S1 0)))
)
)
(princ)
)

maomao2004

(setq ent(entget s1))错了应该加上ssname丫