求助图层LISP编写，谢谢！

abtjy · 发表于 2008-5-30 20:11:12

最近我遇的一个比较麻烦的动作，我想写一个LISP来解决，请大家帮忙看看有没有办法解决，谢谢！
例：我图层有0、DIM、、SP、SPDIM、DB、DBDIM、
现在我输入命后，点选图元（假如当前图层是0层，LISP就自动将该图元变成DIM层;假如当前图层是SP层，LISP就自动将该图元变成SPDIM层;假如当前图层是DB层，LISP就自动将该图元变成DBDIM层;)

lenlenq · 发表于 2009-2-7 21:48:52

可以做的点选(setq lay (assoc 8 (entget(car(entsel)))))提取图层；用 (strcat )建立新层
用(subst)修改图元数据表
最后用（entmod)

lenlenq · 发表于 2009-2-7 21:57:20

写了个程序，源码。
另外一种方法，用(command)函数调用CAD命令做，“change" "p" "la" 输入图层名

lenlenq · 发表于 2009-2-7 21:59:16

不好意思，忘说明了，命令为"chla"

yznang · 发表于 2009-9-1 10:39:23

太好了，学习学习！！

精冲陈 · 发表于 2021-2-26 15:53:13

高手还是蛮多的

		自动登录	找回密码
密码			注册

申请者注册名：		*默认获取当前用户名
性别：	男女
年龄：		*请填写您的真实年龄
职业：		*请填写您当前的职业
申请版区名称：		*请选择您申请的版区
联系电话：		*请填写您的联系电话，此项必填！
我的QQ：		*请填写您的QQ，此项必填！
我的专业特长：		*请填写您的特长领域
申请理由：		*请填写您为什么要申请的理由
管理措施：		*您准备以何种措施管理申请的版块？

[求助] 求助图层LISP编写，谢谢！

本帖子中包含更多资源

浏览过的版块

招聘信息 /5

求职信息 /5

技术求助 /5

×