[LISP程序]：两句程序，错在哪里？

redapple

(setq ss (ssget "c"  a  a  '((0 . "POLYLINE")(40 . 0)(41 . 0))))
（setq a (sslength ss))
其中a是图中一定点
调试时提示:参数类型错误: lselsetp nil
好象是最后一句错了，为什么？
谢谢！！

liusz11

第二句没什么问题，问题应该是出在第一句中，不知你的CAD是什么版本的，不过应是比较新的，现在CAD默认的多义线为LWPOLYLINE，所以你的第一句的返回值为nil，第二句当然说会出错。
以下为图元类型的示例：
命令: (setq a (entlast))
<图元名: 7ef50e90>

命令: (setq aa (entget a))
((-1 . <图元名: 7ef50e90>) (0 . "LWPOLYLINE") (330 . <图元名: 7ef50cf8>) (5 .
"8A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 621.899
256.647) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 771.463 312.185) (40 . 0.0) (41 .
0.0) (42 . 0.0) (210 0.0 0.0 1.0))

以下为修改后的程序运行情况：
命令: (setq a (getpoint))
(804.95 461.005 0.0)

命令: (setq ss (ssget "c" a a '((0 . "LWPOLYLINE")(40 . 0)(41 . 0))))
<Selection set: 13>
命令: (setq a (sslength ss))
2

redapple

试过了，运行正常！谢谢！
可是结果好象不太正确，结果总提示1个实体，这是为什么？怎样改正呢？
谢谢！

liusz11

你测试时画了几条过a点的多义线？我画了二条

redapple

我画了两条
不过是放在一个程序里运行的
(defun tgdst ()
  (setq e (entsel "请选择一多段线"))
  (setq e1 (car e))
  (setq a (cdr (assoc 40 (entget e1))))
  (setq b (cdr (assoc 41 (entget e1))))
  (if (= a 0)
    (setq c (assoc 10 (entget e1)))
    (setq c (assoc 10 (reverse (entget e1)))))
  (setq d (cdr c))
  (setq ss (ssget "c"  d d '((0 . "POLYLINE")(40 . 0)(41 . 0))));;;必须为LWPOLYLINE,因为是新的版本，过d点的选择集
  (setq f (sslength ss)))
是其他地方错了吗？
谢谢！

XDSoft

最初由 redapple 发布
[B]我画了两条
不过是放在一个程序里运行的
(defun tgdst ()
  (setq e (entsel "请选择一多段线"))
  (setq e1 (car e))
  (setq a (cdr (assoc 40 (entget e1))))
  (setq b (cdr (assoc 41 (entget e1))))
  ... [/B]

你现在的点重合了，用的都是D，提示你两个技巧：

1、如果你希望即选择POLYLINE也选择LWPOLYLINE，那么可以用 '((0 . "*polyline"))

2、构造过一个点的选择集，你不要两个点参数用一个，你构筑一个小矩形，矩形的宽的值是系统变量pickbox的值。这个是ACAD自身实现的方法，你试验过entsel 函数了吗，不知道你是否有印象，只要你的靶框挨上实体，就可以返回实体名和点（这个点并不在实体上，而是在靶框范围内），这时候，你用比如ERASE命令删除，选实体的时候，你给这个点，ACAD也能选择到这个实体的。

意思是说，ACAD选择实体是在系统变量PICKBOX范围内选择。

所以你上面的问题，一个基点确定后，比如p1，那么根据p1再构建一个对顶角点p2

(setq h (getvar "pickbox"))
(setq p2 (polar p1 (/ pi 4) (* (sqrt 2) h)))

然后：
(setq ss (ssget "c" p1 p2 ........))
活动过一个点PT1的实体选择集，就可以把过这个点的所有实体选择到了。

上面是从基点45度方向，2开方乘以靶框高度得到P2, 实际应用中也可以根据P1，-45度方向，二分之一根号2得到一个点p1，45度方向二分之一根号2得到p2.