[已解决]：ssget "c"函数的问题

houxianyong

本人编写了一个小程序，在某一LINE线附近的交叉窗口内寻找文本，可是(ssget "c" (list x1 y1) (list x2 y2))的返回选择集不稳定。第一根LINE返回的是正确的，第二根line返回只有一个实体，后来就根本没有或者又是正确的，根本没法调试哪里错误。按图面的实际是每根line附近返回的选择集应该包含10个左右的实体。如果我只挖出来几根LINE线，程序运行又正确，真是莫明其妙啊？大家帮帮我

试了一下，把图形分成几大块存盘分别测试程序，又没有问题。真让人伤脑筋。但是图形不是很大啊，15M

已找到原因，是因为我用另一个CAD进程打开了同一文件，导致出错。关闭后再运行就没问题啦。唉，困扰我一天啊。大家千万不要再犯我这种低级错误

phoenixdjq

你的程序呢?怎么不发上来呀,怎么帮你看呀.

凭经验,我怀疑有以下原因:
1.你没有把捕捉关掉(setvar "osmode" 0)
2.在屏幕范围以外的文本,你是选不到的

houxianyong

(setq yy (/ (+ (nth 1 (assoc 10 linetb)) (nth 1 (assoc 11 linetb))) 2))
                            (setq xx (/ (+ (nth 2 (assoc 10 linetb)) (nth 2 (assoc 11 linetb))) 2))
                            (setq djtb (cdadr (assoc -3 linetb)))
                            (print (setq kdh (substr (cdr (nth 1 djtb)) 5)))
                            (setq pt1y (- yy 5.0))
                            (setq pt1x (- xx 5.0))
                            (setq pt2y (+ yy 5.0))
                            (setq pt2x (+ xx 5.0))
                            (setq s2 (ssget "C" (list pt1y pt1x) (list pt2y pt2x)))
                            (if (/= s2 nil)
                                (progn
                                    (print (setq len1 (sslength s2)))
                                    (setq ip1 0)
                                    (while (< ip1 len1)
                                        (progn
                                            (setq enttb (entget (ssname s2 ip1)))
                                            (if (= (cdr (assoc 0 enttb)) "TEXT")
                                                (progn
                                                    (if (< (abs (- (atoi (cdr (assoc 1 enttb))) (atoi kdh))) 0.01)
                                                        (progn
                                                            (setq kdhtxt (ssname s2 ip1))
                                                            (print "找到对应文本")
                                                        )
                                                    )
                                                )
                                            )
                                            (setq ip1 (+ ip1 1))
                                        )
                                    )
                                )
                            )


程序就在上面这一段，先是求出LINE线的中点。在中点附近10×10的方格内求一个交叉选择集。然后判断选择集的每一个实体是否为文本并且文本值为所求的值，如果找到匹配的，得到文本实体名。

楼上所怀疑的原因我觉得不是，因为我把图形分成几块剪下来，运行程序没有问题。是不是CAD本身对选择集的限制

qiaqiadeng

太罗嗦了,可直接如此:
(setq s2 (ssget "C" (list pt1y pt1x) (list pt2y pt2x) '((0 . "text"))))
加了循环会影响速度,如此,则一步登天.