怎样查找连接的块

蝙蝠mmx

一条直线两端连接一个块，选中这条直线就可以找到跟它连接块的块名，怎样做可以实现需要那些函数？有哪位会的帮帮忙

风树

选中一条直线等于知道它的两个端点坐标
将点变”圆“或”方“ 利用选择语句去选吧
选到的是块就从”快“提”名“
简单的图形是没问题的

蝙蝠mmx

风树 发表于 2014-8-4 20:53
选中一条直线等于知道它的两个端点坐标
将点变”圆“或”方“ 利用选择语句去选吧
选到的是块就从”快“提 ...

谢谢!本人是个新手，怎样将点变圆或方具体需要什么函数

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq ss (ssgget ":E:S" '((0 . "LINE")))) (progn
   
4.   (setq ent (entget(ssname ss 0)))
   
5.   (setq p1 (cdr(assoc 10 ent)))
   
6.   (setq p2 (cdr(assoc 11 ent)))
   
7.   (ssget "F" p1 p2 '((0 . "INSERT")))
   
8. ))
   
9. )
   

(defun c:tt ()<br /> (if (setq ss (ssgget ":E:S" '((0 . "LINE")))) (progn<br />   (setq ent (entget(ssname ss 0)))<br />   (setq p1 (cdr(assoc 10 ent)))<br />   (setq p2 (cdr(assoc 11 ent)))<br />   (ssget "F" p1 p2 '((0 . "INSERT")))<br /> ))<br /> )<br />