请教选择框内图形不灵验

434939575

请各位朋友帮忙看下。什么原因。我这里是选择框内图形，在这个cad源文件里面，有的不灵，有的灵，左边某个不灵，放大后又可以。复制到其他文件也可以选取。我不知道什么问题。是否不用LISP其他语言可能要好点吧。!

2. (defun c:tt(    /  name  sS pl-lst);选择内部
   
3.    (SETQ name (CAR (ENTSEL)))
   
4.    (setq pl-lst (pl_lis name))
   
5.    (setq ss (ssget "wp" pl-lst ))
   
6.   (sssetfirst  nil ss)
   
7.      )
   
8. (defun pl_lis (name / n elist ptlist) ;端点列表
   
9.   (setq ptlist  nil)
   
10.   (setq elist (entget name))
    
11.   (foreach n elist
    
12.     (if  (= 10 (car n))
    
13.       (setq ptlist (cons (cdr n) ptlist))
    
14.     )
    
15.   )
    
16.   (reverse ptlist)
    
17. 
    
18. )

(defun c:tt(    /  name  sS pl-lst);选择内部<br />    (SETQ name (CAR (ENTSEL)))<br />    (setq pl-lst (pl_lis name))<br />    (setq ss (ssget "wp" pl-lst ))<br />   (sssetfirst  nil ss)<br />      )<br /> (defun pl_lis (name / n elist ptlist) ;端点列表<br />   (setq ptlist  nil)<br />   (setq elist (entget name))<br />   (foreach n elist<br />     (if  (= 10 (car n))<br />       (setq ptlist (cons (cdr n) ptlist))<br />     )<br />   )<br />   (reverse ptlist)<br /> <br /> )

edata

ucs影响交互函数
pl点是wcs，ssget是ucs所以选择不到。因此，要将pl点表转成ucs
(setq pl-lst (mapcar '(lambda(x)(trans x 0 1)) pl-lst))

edata

ucs影响交互函数
pl点是wcs，ssget是ucs所以选择不到。因此，要将pl点表转成ucs
(setq pl-lst (mapcar '(lambda(x)(trans x 0 1)) pl-lst))

434939575

edata 发表于 2015-8-25 21:55
ucs影响交互函数
pl点是wcs，ssget是ucs所以选择不到。因此，要将pl点表转成ucs
(setq pl-lst (mapcar '( ...

多谢指导。我开始以为中病毒了