；；为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）） 最后一个版本是使用工具栏来选择轮廓，而不是多次单击。
它处理多个曲面，或者只有一个曲面不需要用户输入。
我的员工反馈说，这是一种比自动办公桌更好的方式。
只需下载并阅读自述文件第1版，如有任何需要改进的建议，我们将不胜感激。
Chtourstolbar。拉链
页:
1
[2]