乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 18|回复: 3

[编程交流] 有任何常规转换程序吗

[复制链接]

6

主题

13

帖子

7

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-5 22:40:00 | 显示全部楼层 |阅读模式
大家好,
如果任何人有将revcloud转换为多段线的例程,请发送给我。。。。。。。链接:D
回复

使用道具 举报

10

主题

8258

帖子

8335

银币

初来乍到

Rank: 1

铜币
31
发表于 2022-7-5 23:12:48 | 显示全部楼层
Revclouds是轻型多段线。这有什么不对?
 
如果你想从revcloud中删除曲线,那完全是另一回事。然后,只需选择要修复的云线批注,单击鼠标右键,然后转到“多段线>Decurve”。
回复

使用道具 举报

6

主题

13

帖子

7

银币

初来乍到

Rank: 1

铜币
30
发表于 2022-7-5 23:22:34 | 显示全部楼层
谢谢你的评论。。。。。。。。。。。。。
回复

使用道具 举报

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 23:55:20 | 显示全部楼层
 
用于修改凸出、反转或取消旋转云的工具
如果凸出值=0.000,即:展平
[code];http://www.cadtutor.net/forum/showthread.php?87920-是否有任何将Revcloud转换为多段线的例程(setq*yesno*“No”)(defun c:modcd(/e e1 i bu);;HANHPCHUC 2014年7月30日(if(和(setq e(car(entsel“\n点击Revcloud…)))(setq l(entget e))(setq e1(vlax ename->vla object e))(=(vla get objectname e1)“AcDbPolyline”)(setq bu('((x)(/(apply'+x)(length x))(mapcar“cdr(vl remove if not'((x)(=(car x)42))l));_setq结束(setq i-1 bu(UREAL 0“”“\n公布值..”bu);
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 06:10 , Processed in 0.383744 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表