插入封闭矩形并获取图元名

lingfne

插入封闭矩形之后,并能够获封闭矩形的取图元名?(比如:<图元名: 27d833a6090>)各位前辈们指点一二!!

llsheng_73

计算好位置，根据尺寸计算出各个顶点坐标，然后通过entmakex绘制需要插入的图形，直接返回图元名
下边是直接对你原来的代码进行了小修改，主要是将entmake改为了entmakex

1. (defun c:tt (/ mp1 Ent1)
   
2.   (setq mp1 (getpoint "\n请指定一个点："))
   
3.   (setq Ent1(yaling_entmake_listconsa mp1 0 0 2440 1220))
   
4. )
   
5. (defun yaling_entmake_listconsa (mp1 xxa yyb xxc yyd)
   
6.   (entmakex (list
   
7.         (cons 0 "LWPOLYLINE")
   
8.         (cons 100 "AcDbEntity")
   
9.         (cons 8 "0")
   
10.         (cons 62 5)
    
11.         (cons 100 "AcDbPolyline")
    
12.         (cons 90 4)
    
13.         (cons 70 1)
    
14.         (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyb))
    
15.         (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyb))
    
16.         (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyd))
    
17.         (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyd))
    
18.         (list 210 0 0 1)
    
19.         )
    
20.       )
    
21.   )

(defun c:tt (/ mp1 Ent1)<br />   (setq mp1 (getpoint "\n请指定一个点："))<br />   (setq Ent1(yaling_entmake_listconsa mp1 0 0 2440 1220))<br /> )<br /> (defun yaling_entmake_listconsa (mp1 xxa yyb xxc yyd)<br />   (entmakex (list<br />         (cons 0 "LWPOLYLINE")<br />         (cons 100 "AcDbEntity")<br />         (cons 8 "0")<br />         (cons 62 5)<br />         (cons 100 "AcDbPolyline")<br />         (cons 90 4)<br />         (cons 70 1)<br />         (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyb))<br />         (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyb))<br />         (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyd))<br />         (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyd))<br />         (list 210 0 0 1)<br />         )<br />       )<br />   )

qifeifei

这样对吗 是这个吗

Bao_lai

加一个entlast就好，entlast 函数经常用于获得刚用 command 函数加入到图形中的新图元的图元名。

示例

将变量 e1 设为添加到图形中的最后一个图元的名称：

命令： (setq e1 (entlast))

<图元名: 2c90538>

lingfne

Bao_lai 发表于 2025-10-19 14:06
加一个entlast就好，entlast 函数经常用于获得刚用 command 函数加入到图形中的新图元的图元名。
示例将变 ...

前做好放上来,你收币就得了!

maiko

lingfne 发表于 2025-10-19 15:35
前做好放上来,你收币就得了!

太简单的收币就没意思了

阿猪蛋

下载看看，666666

lingfne

llsheng_73 发表于 2025-10-20 14:12
计算好位置，根据尺寸计算出各个顶点坐标，然后通过entmakex绘制需要插入的图形，直接返回图元名
下边是直 ...

某得说!