如何获取参照块的矩形（XClip对象）边界夹点

Bao_lai

你有种再说一遍 发表于 2024-10-13 02:20
https://www.cnblogs.com/JJBox/p/11614714.html

lisp的我真不知道...c#需要调用arx的函数.

对，我惊这个思路就行。

ssyfeng

Bao_lai 发表于 2024-10-13 06:09
对，我惊这个思路就行。

见前面回复

你有种再说一遍

ssyfeng 发表于 2024-10-13 09:11
见前面回复

前面说做虚线,不就是生成边界之后修改线型...
边界本身就不是线,而是一个封闭区

gzcsun

用vla-getboundingbox

bloodtempt

(setq ed (car (entsel)))
(while (assoc 360 (entget ed))
        (setq ed (cdr (assoc 360 (entget ed))))
)
(mapcar 'cdr
        (vl-remove-if-not
                '(lambda (x) (= (car x) 10))
                (entget ed)
        )
)

kozmosovia

2. (and (setq ob (cdr (assoc 360 (entget obx))))
   
3.      (setq ob (assoc 360 (entget ob)))
   
4.      (setq ob (entlast))
   
5.      (setq nn (vl-cmdf "_.xclip" obx "" "_polyline")
   
6.            nn (entlast)
   
7.      )
   
8.      (equal ob nn)
   
9.      (setq nn nil)
   
10. )
    
11. nn

(and (setq ob (cdr (assoc 360 (entget obx))))<br />      (setq ob (assoc 360 (entget ob)))<br />      (setq ob (entlast))<br />      (setq nn (vl-cmdf "_.xclip" obx "" "_polyline")<br />            nn (entlast)<br />      )<br />      (equal ob nn)<br />      (setq nn nil)<br /> )<br /> nn