[编程交流] 将超链接转换为DWF

[/code]（defun markHlinkDWF（）
（setq mysel（ssget“\u X”'（-3（“PE\u URL”а）а）））
（setq-iMaxSel（sslength-mysel））
（setq iCnt 0）
（while（<iCnt iMaxSel）
（setq my_entname（ssname mysel iCnt））
（setq my\u ent（entget my\u entname’（“PE\u URL”））
;; 获取包含hlinks扩展数据的实体
（setq my\u xdata1（assoc-3 my\u ent））
;; 打开扩展数据
（setq my\U扩展数据URL（第n个1 my\U扩展数据1））
（setq my\u new\u xdata\u URL（subst'（1071.1）'（1071.0）my\u xdata\u URL））
;; 启用将DWG转换为DWF的标志
（setq my\u new\u xdata 1（subst my\u new\u xdata\u URL my\u xdata\u URL my\u xdata 1））
;; 更新扩展数据
（setq my\u ent（subst my\u new\u xdata1 my\u xdata1 my\u ent））
（entmod my\u ent）
;; 设置实体
（setq iCnt（+iCnt 1））
)
无
)
（取消验证（）
（setq mysel（ssget“\u X”'（-3（“PE\u URL”а）а）））
（setq-iMaxSel（sslength-mysel））
（setq iCnt 0）
（setq iFailCnt 0）
（while（<iCnt iMaxSel）
（setq my_entname（ssname mysel iCnt））
（setq my\u ent（entget my\u entname’（“PE\u URL”））
;; 获取包含hlinks扩展数据的实体
（setq my\u xdata1（assoc-3 my\u ent））
;; 打开扩展数据
（setq my\U扩展数据URL（第n个1 my\U扩展数据1））
（if（/=（member）（1071.0）my\u xdata\u url）nil）
（setq iFailCnt（+iFailCnt 1））
)
（setq iCnt（+iCnt 1））
)
（如果（>iFailCnt 0）
（程序
（setq）
my_str（strcat（itoa iFailCnt）“未更新超链接。”）
)
（princ my_str）
无
)
)
)
[code]