高级快速另存为
嗨，我们不是真的用它，只是为了好玩除非通过插入块或外部参照进行限制
方法：
(hp:saveAs* (getvar "dwgname") "HP123"); with password
(hp:saveAs* "C:/HP.dwg" nil) ; if nil is supplied, returns normal saveAs
VB翻译的安全参数示例，更多信息转到MSDN
；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）（
页:
[1]