简单更改CIV3d轮廓

BIGAL · 发表于 2022-7-6 09:55:06

这是为任何感兴趣的人准备的更改点标签。办公室里的人非常高兴，所以更简单

[code]；；为Civil 3D点指定新样式；；必需的子例程：AT:ListSelect；；原始代码Alan J.Thompson，06.22.10；；由Alan H于2011年1月修改（vl load com）（if（（lambda（vrsn）（cond）（（vl string search“R17.2”vrsn）（setq appstr“6.0”））；09（（vl字符串搜索“R18.0”vrsn）（setq appstr“7.0”）；10（（vl字符串搜索“R18.1”vrsn）（setq appstr“8.0”）；11（（警报“不支持此版本的C3D！”））（vlax产品密钥））；如果条件progn为真（progn（cond（*AeccDoc*）（（setq*AeccDoc*（vlax get（cond（*AECCAP*））（（setq*AECCAP*（vla GETCInterfaceObject（cond（*Acad*））（（setq*Acad*（vlax get Acad object）））（strcat“AeccXUiLand.AeccApplication.”appstr）））’ActiveDocument）））；结束主状态）；结束程序）；结束如果vsrn（vlax for j（vlax get*AeccDoc*'点组）（setq lst（cons（cons（vla get name j）j）lst））；如果点的长度大于1，则跳过拾取if 0，然后消息和退出（setq lenlst（length lst））（if（=lenlst 0）（progn（Getstring“\n您没有点，请按任意键退出”）（退出））（if（=lenlst 1）（setq pointspick（car（nth 0 lst）））；从点对中拉出点）（if（>lenlst 1）（progn（setq pointspick（car）（在：ListSelect“Set new group”“Select points group”10 10 10“false”（vl sort（mapcar（function car）lst））

BIGAL · 发表于 2022-7-6 09:59:27

最后一个版本是使用工具栏来选择轮廓，而不是多次单击。

它处理多个曲面，或者只有一个曲面不需要用户输入。

我的员工反馈说，这是一种比自动办公桌更好的方式。

只需下载并阅读自述文件第1版，如有任何需要改进的建议，我们将不胜感激。

Chtourstolbar。拉链

[编程交流] 简单更改CIV3d轮廓

发表回复

精选推荐