插入封闭矩形之后,并能够获封闭矩形的取图元名?(比如:<图元名: 27d833a6090>)各位前辈们指点一二!!
网友答: 本帖最后由 llsheng_73 于 2025-10-20 14:17 编辑
计算好位置，根据尺寸计算出各个顶点坐标，然后通过entmakex绘制需要插入的图形，直接返回图元名
下边是直接对你原来的代码进行了小修改，主要是将entmake改为了entmakex
网友答: 这样对吗 是这个吗
网友答: 本帖最后由 Bao_lai 于 2025-10-19 14:07 编辑
加一个entlast就好，entlast 函数经常用于获得刚用 command 函数加入到图形中的新图元的图元名。
网友答:
前做好放上来,你收币就得了!
网友答:
太简单的收币就没意思了
网友答:
下载看看，666666网友答:
某得说!
网友答: 本帖最后由 llsheng_73 于 2025-10-20 14:17 编辑
计算好位置，根据尺寸计算出各个顶点坐标，然后通过entmakex绘制需要插入的图形，直接返回图元名
下边是直接对你原来的代码进行了小修改，主要是将entmake改为了entmakex
- (defun c:tt (/ mp1 Ent1)
- (setq mp1 (getpoint "\n请指定一个点："))
- (setq Ent1(yaling_entmake_listconsa mp1 0 0 2440 1220))
- )
- (defun yaling_entmake_listconsa (mp1 xxa yyb xxc yyd)
- (entmakex (list
- (cons 0 "LWPOLYLINE")
- (cons 100 "AcDbEntity")
- (cons 8 "0")
- (cons 62 5)
- (cons 100 "AcDbPolyline")
- (cons 90 4)
- (cons 70 1)
- (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyb))
- (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyb))
- (list 10(+ (car mp1) xxc) (+ (cadr mp1) yyd))
- (list 10(+ (car mp1) xxa) (+ (cadr mp1) yyd))
- (list 210 0 0 1)
- )
- )
- )
网友答: 这样对吗 是这个吗
网友答: 本帖最后由 Bao_lai 于 2025-10-19 14:07 编辑
加一个entlast就好，entlast 函数经常用于获得刚用 command 函数加入到图形中的新图元的图元名。
示例
将变量 e1 设为添加到图形中的最后一个图元的名称：
命令： (setq e1 (entlast))
<图元名: 2c90538>
网友答:
Bao_lai 发表于 2025-10-19 14:06
加一个entlast就好，entlast 函数经常用于获得刚用 command 函数加入到图形中的新图元的图元名。
示例将变 ...
前做好放上来,你收币就得了!
网友答:
lingfne 发表于 2025-10-19 15:35
前做好放上来,你收币就得了!
太简单的收币就没意思了
网友答:
下载看看，666666网友答:
llsheng_73 发表于 2025-10-20 14:12
计算好位置，根据尺寸计算出各个顶点坐标，然后通过entmakex绘制需要插入的图形，直接返回图元名
下边是直 ...
某得说!