如何将当前选中的图元转换为(entlast)可直接获取的图元

Five丨遗忘 · 发表于 2021-1-17 21:04:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

因为vla-sendcommand只支持点和(entlast)变量，所以想将循环中的图元转换为(entlast)可选取的对象，请问该如何处理？

(defun c:test ()
(vl-load-com)
(setvar "filedia" 0)
(setvar "CMDECHO" 0)
(setq ss (ssget))
(setq i 0)
(while (setq e (ssname ss i))
;这里如何写？？？？？
(entlast);此处的(entlast)想选择当前循环下的e图元
;针对(entlast)选中的e的其他操作
(setq i (1+ i))
)
(setvar "filedia" 1)
(setvar "CMDECHO" 1)
)

Lisphk · 发表于 2021-1-17 22:04:38

概念不清，
(entlast) 返回的是实体名，就是你那个 e , 他们类型是一样的
你怎么用 (entlast) , 就怎么用 e

你的问题不是这段代码的问题，是接下来你怎么用的地方的问题，你给的信息不够

Five丨遗忘 · 发表于 2021-1-17 22:10:52

Lisphk 发表于 2021-1-17 22:04
概念不清，
(entlast) 返回的是实体名，就是你那个 e , 他们类型是一样的
你怎么用 (entlast) , 就怎么 ...

嗯嗯，还是上一个帖子的问题，关键是我测试发现vla-sendcommand他不支持调用 e，支持调用(entlast)，没办法才这么处理的，求L老师帮忙看看呀

Five丨遗忘 · 发表于 2021-1-17 22:14:31

Lisphk 发表于 2021-1-17 22:04
概念不清，
(entlast) 返回的是实体名，就是你那个 e , 他们类型是一样的
你怎么用 (entlast) , 就怎么 ...

http://bbs.xdcad.net/thread-727408-1-1.html
就还是这个帖子的问题

Lisphk · 发表于 2021-1-17 22:28:54

本帖最后由 Lisphk 于 2021-1-17 22:30 编辑

Five丨遗忘发表于 2021-1-17 22:14
http://bbs.xdcad.net/thread-727408-1-1.html
就还是这个帖子的问题

1、你把 cmdecho 设置成 1

把代码里面的 (vla-sendcommand *doc "tian 211100 \n !obj \n")) 改成 (vla-sendcommand *doc "tian\n211100\n!e\n"))按我上面的写，空格用 \n替换

然后把命令行的输出截取下屏幕贴上来

2、(command "tian") 命令能执行不？

Five丨遗忘 · 发表于 2021-1-17 22:53:25

Lisphk 发表于 2021-1-17 22:28
1、你把 cmdecho 设置成 1

把代码里面的 (vla-sendcommand *doc "tian 211100 \n !obj \n")) 改成 (vl ...

当前代码：

(defun c:test ()
(vl-load-com)
(setvar "filedia" 0)
(setvar "CMDECHO" 1)
(setq ss (ssget))
(setq i 0)
(while (setq e (ssname ss i))
(setq tcname (cdr (assoc 8 (entget e))));获取图元的图层名称
(setq *doc (vla-get-activedocument(vlax-get-acad-object)))
(cond
((= tcname "水田")(vla-sendcommand *doc "tian\n211100\n!e\n"))
((= tcname "旱地")(vla-sendcommand *doc "tian\n211200\n!e\n"))
)
(setq i (1+ i))
)
(setvar "filedia" 1)
(setvar "CMDECHO" 1)
)

执行后命令行显示：
选择对象: 指定对角点: 找到 5 个
选择对象:
1
命令:
命令: tian
输入区域编码:211100
输入线上编码:!e
nil
请选择填充方式:(1)区域填充(2)线上分布 <1>tian
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>211100
需要 -32768 和 32767 之间的整数.
请选择填充方式:(1)区域填充(2)线上分布 <1>!e
nil
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>tian
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>211200
需要 -32768 和 32767 之间的整数.
请选择填充方式:(1)区域填充(2)线上分布 <1>!e
nil
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>tian
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>211200
需要 -32768 和 32767 之间的整数.
请选择填充方式:(1)区域填充(2)线上分布 <1>!e
nil
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>tian
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>211200
需要 -32768 和 32767 之间的整数.
请选择填充方式:(1)区域填充(2)线上分布 <1>!e
nil
需要整数值.
请选择填充方式:(1)区域填充(2)线上分布 <1>*取消*

(command "tian") 执行如下：
命令: (command "tian") tian
输入区域编码:nil

Lisphk · 发表于 2021-1-17 23:32:28

Five丨遗忘发表于 2021-1-17 22:53
当前代码：

那就改成：
(command "tian" "211100" 1 e "")

看命令行提示

muwind · 发表于 2021-1-17 23:44:19

有个比较笨的办法应该可以试试，因为木有个什么tian的玩意，无法帮你测试，你自己试试吧
就是先删除然后重建一个对象用(entlast)
就是感觉挺2的

muwind · 发表于 2021-1-17 23:48:49

(defun c:tt ()
  (setq ss (ssget))
  (setq i 0)
  (while (setq e (ssname ss i))
(setq edxf(entget e))
(entdel e)
(entmake edxf)
(setq *doc (vla-get-activedocument(vlax-get-acad-object)))
(vla-sendcommand *doc "Erase\r(entlast)\r\r")
(setq i (1+ i))

  )
)

Five丨遗忘 · 发表于 2021-1-19 17:18:57

muwind 发表于 2021-1-17 23:48
(defun c:tt ()
(setq ss (ssget))
(setq i 0)

谢谢啦，虽然2，但是实用

muwind · 发表于 2021-1-19 21:50:19

Five丨遗忘发表于 2021-1-19 17:18
谢谢啦，虽然2，但是实用

那个send函数从没用过....

账号		自动登录	找回密码
密码			立即注册

[求助] 如何将当前选中的图元转换为(entlast)可直接获取的图元

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评