Jaap Marchal 发表于 2022-7-6 10:04:57

将超链接转换为DWF

查找在“超链接”对话框（ctrl+k）中标记选项“DWG超链接到DWF”的lisp
 
TKS，
 
迈克

Jaap Marchal 发表于 2022-7-6 11:38:58

我找到了一些东西，但我必须将其从explorer拖到Autocad，是否有其他可以从appload加载的lisp。
 
找到lisp：
 
（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）
无
)
)
)
页: [1]
查看完整版本: 将超链接转换为DWF