[编程交流] 高级快速另存为

[复制链接]

hanhphuc

5 主题	956 帖子	963 银币

初来乍到

Rank: 1

铜币: 35

发消息

发表于 2022-7-5 22:49:17 | 显示全部楼层 |阅读模式

嗨，我们不是真的用它，只是为了好玩
除非通过插入块或外部参照进行限制

方法：

copy


(hp:saveAs* (getvar "dwgname") "HP123"); with password
(hp:saveAs* "C:/HP.dwg" nil) ; if nil is supplied, returns normal saveAs

VB翻译的安全参数示例，更多信息转到MSDN
[code]；http://www.cadtutor.net/forum/showthread.php?87501-高级快速SaveAs&p=600499#post600499；HANHPCHUC@cadtutor；2007年7月4日（defun hp:SaveAs*（dwg pw/ac doc params f act catch）；R1.0（vl load com）（setq ac（vlax get acad object）doc（vla get ActiveDocument ac）act（list doc’SaveAs dwg acNative）；行动列表）；_setq结束（if；；；（apply'和（mapcar）（lambda（s）（=（type s）'STR））（list pw dwg））（和pw dwg（=（type pw）'STR）（=（type dwg）'STR）（>（strlen pw）0）（

使用道具举报