帮忙看看这程序，加载之后说参数太少

andrewla

帮忙看看这程序。加载之后说参数太少。看了半天没整明白。
, }, W% n( o( |+ d* p(defun c:tj (/ b,c,page)
  (graphscr)
  (princ "请选择要统计的图纸")
: H  Y( ^2 l  ~" ~1 w  (setq b (ssget "e" '((0. "lwpolyline") (8."0"))))
) X; m7 ~+ V; L/ @" e  (setq page (sslength b))
  (setq c (rtos page 2 3))
  (prin1 c)
+ ^3 I2 ^6 d5 s% b5 t7 o0 D2 _. ?  (princ)
# L, T7 V; }4 Z" A7 X& K4 w)

5 T2 U( a+ S- ]# O[ 本帖最后由 ★新手★ 于 2007-2-27 12:16 编辑 ]

moonguy

你可以参考一下帮助文件，没有"e"这个参数，只有":e",  一般对象选择拾取框都设置的很小，用这个参数和单选的效果差不多，从程序的作用来看，是统计0层中有多段线属性的图元的数量，去掉 "e"就行了。

这是按楼主的思路调整好的程序:
' A# {; M+ i) r* }" E) B$ u5 V8 s(defun c:tj (/ b,c,page)
( e. A% W/ h% U- q& y4 v$ P  (graphscr)
& r1 B5 k. d7 E& ^+ L0 M  R5 t  (princ "请选择要统计的图纸")
/ P$ C  d, J: K2 z7 d/ y# G: b  (setq b (ssget ":E" '((0 . "lwpolyline") (8 . "0"))))
4 E: _# L% B! G/ Y; U  (setq page (sslength b))
  (setq c (rtos page 2 3))
+ g, ]! V7 ^9 E  R  (prin1 c)
* J( U4 M; |( \$ }* _  (princ)
)
7 R4 V3 V+ v( d- x& F3 N
! A. [) ~5 n, V" A: t  Y- m) G* ^摘录了一段帮助文件供参考
" E& n- `7 U+ `4 t3 E1 h  E$ @
(ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list])
9 L8 ?: G$ l5 p0 k# E选择集中可以包含图纸空间和模型空间两个空间中的对象，但该选择集用于某操作时，那些在当前无效的空间中的对象会被 ssget 过滤掉。由 ssget 函数返回的选择集中仅包含主图元（不包含属性和多段线顶点）。
参数
: b4 q6 F* H7 z) K4 Zsel-method
字符串，指定对象选择方法。有效选择方法包括：
3 U: [# X  r6 M7 b9 fC  窗交。
CP  圈交（指定多段线内和与该多段线相交的所有对象）。
F  栏选。
I  隐含窗口选择（在执行 PICKFIRST 期间选择的对象）。
L  添加到数据库的最后一个可见对象。
P  最后一个创建的选择集。
9 s  `* f. l, O: y) o1 aW  窗口选择。
WP  圈围（指定多边形内的所有对象）。
- N( F4 s& H/ gX  整个数据库。如果指定了 X 选择方法，而又没有提供 filter-list 参数，则 ssget 选择数据库中的所有图元，包括关闭、冻结图层中的图元和可见屏幕外的图元。
:E  光标的对象选择拾取框中的所有对象。
  U) A0 ?$ F. m& V0 q:N  在执行 ssget 操作的过程中，为选定图元调用 ssnamex 获得容器块和转换矩阵的附加信息。只有通过窗口、窗交点拾取等图形选择方法选定的图元，这一附加信息才可以使用。
6 \$ R0 Y3 _5 a% D: r8 p7 @- g与其他对象选择方法不同，:N 可能会返回选择集中的多个同名图元。例如，如果用户选择了一个复杂图元（如 BlockReference、PolygonMesh 或老式多段线）的子图元，那么 ssget 将查看该子图元是否已被选中。不过，ssget 实际上会将主图元（如 BlockReference 和 PolygonMesh）添加到选择集中。这样就会在选择集中出现多个同名图元，而 ssnamex 获得的每个图元的子图元信息各不相同。
:S   仅允许单一选择集。

andrewla

谢谢2楼的细心帮助。
但按上面的改法问题仍然存在。我试了一下发现是这条语句出了问题。
! ^: f: ?8 D3 a+ \5 s  r# l: t( {(setq b (ssget :E '((0 . "lwpolyline") (8 . "0"))))
改成这个后就没事了。
0 T% [) I5 B" z8 b( B/ G(setq b (ssget :E ))
但这样就少了筛选的功能。
苦恼。希望再能帮着看看。谢了

moonguy

仔细看一下，没问题的。
  (setq b (ssget ":E" '((0 . "lwpolyline") (8 . "0"))))
  U. q7 r( {4 K3 I& P% l$ O
% f: r6 B5 c# Z! b* U* z& M9 u- G你的语句里 :e 没有引号。

SunVei

(defun c:tj (/ b c page)
3 ^' T6 L1 X% [+ q" v3 b7 C  (graphscr)
) U' ]4 C5 D# u! u  (princ "请选择要统计的图纸")
  j  W8 P0 e' q6 p; B7 E5 h& {5 g( A; T  (setq b (ssget ":E" '((0 . "LWPOLYLINE") (8 . "0"))))
  (cond
( }( X% q$ H/ }) e6 O. N   ((null b) (princ "\n未选中!? ..."))
, n9 N! l6 L: o# D3 }   (T
( d* s* u8 X0 Z" S    (setq page (sslength b))
    ;; (setq c (rtos page 2 3))
    ;; (prin1 c)
    (princ "\n图纸 ==> ")
    (princ page)
  ))
  (princ)
)

andrewla

弄明白了。确实是我没看清楚。谢谢了。也谢谢五楼。我新手。以后常讨论。