判断矩形内部是否存在图元

砥砺前行

请问如何判断矩形内部是否存在图元呢，相交的也算。

砥砺前行

C:\Users\86198\Pictures\Camera Roll

aws

• (defun c:ff ()
•   (setq i 0)(setq lss nil)                              
•   (setq juxing (entsel))                                 
•   (command "measure" juxing "2" "")                  
•   (setq dianji (ssget "p"))
•   (repeat (sslength dianji)
•     (setq point1(cdr(assoc 10 (entget(ssname dianji i)))))
•     (setq lss (cons point1 lss))
•     (setq i (+ 1 i))
•   )
•   (command "erase" dianji "")
•   (Setq jxss (ssget "CP" lss))
•   (sssetfirst jxss jxss)
•   (setq n (sslength jxss))
•   (setq n1 (1- n))
•   (alert (strcat "所选取的矩形内共有"(itoa n1)"个对象！"))
•   (princ)
• )
  

看看这个方法怎么样

vitalgg

1. ;; 选择一个多段线
   
2. (setq ent (car (entsel "选择一个矩形:")))
   
3. ;; 得到矩形的点序
   
4. (setq pts (curve:get-points ent))
   
5. ;; 用点序围选
   
6. (setq ents (pickset:to-list(ssget "cp" pts )))
   
7. ;; 去除 矩形图元
   
8. (setq ents (vl-remove ent ents))
   
9. ;; 如果不空，亮显选中的图元
   
10. (if ents (sssetfirst nil (pickset:from-list ents)) (alert "没有选中"))

;; 选择一个多段线<br /> (setq ent (car (entsel "选择一个矩形:")))<br /> ;; 得到矩形的点序<br /> (setq pts (curve:get-points ent))<br /> ;; 用点序围选<br /> (setq ents (pickset:to-list(ssget "cp" pts )))<br /> ;; 去除 矩形图元<br /> (setq ents (vl-remove ent ents))<br /> ;; 如果不空，亮显选中的图元<br /> (if ents (sssetfirst nil (pickset:from-list ents)) (alert "没有选中"))

支持任意形状的多段线。

用到的函数：

llsheng_73

根据角点坐标用SSGET"cp"方式就可以了吧，至于是不是矩形得另行判断。。。