导入多个Dgn#039；s至

rk25134 · 发表于 2022-7-5 19:52:58

请建议如何相应地更改代码

（VL-LOAD-COM）
（默认C:D2D（/path dgnfile SDI_模式）
（setq路径
（（setq DirPath（acet ui pickdir））
（setq ref（vlax get acad对象））
（SETQ文件（VLA-GET-FILES）
（VLA-GET-PREFERENCES-ref）））
（SETQ OLDSUPPORT（VLA-GET-SUPPORTPATH文件））
（SETQ NEWPATH（STRCAT OLDSUPPORT）目录路径“；”）
（VLA-PUT-SUPPORTPATH文件NEWPATH））；；DGN文件位置的默认路径。
DGNIMPORTMODE 0；；在新图形文件中输入DGN文件。
SDI_模式SDI；；保存当前SDI模式
SDI 1；；为AutoCAD设置单图形模式。
)
（setq文件（vl目录文件路径“*.dgn”））
（对于每个dgnfile文件
（命令“-dgnimport”（strcat path dgnfile）“”““”y”（strcat path dgnfile.dwg”））
)
)

BIGAL · 发表于 2022-7-5 20:17:32

您需要使用（setvar“variable name”value）和（setq Sdi_mode（getvar“sdimode”））

SLW210 · 发表于 2022-7-5 20:46:31

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

BIGAL · 发表于 2022-7-5 20:53:10

已调整但未测试

copy

(VL-LOAD-COM)
(defun C:2D (/path dgnfile SDI_Mode)
(setq path (setq DirPath (acet-ui-pickdir)))
(setq ref (vlax-get-acad-object))
(SETQ FILES (VLA-GET-FILES (VLA-GET-PREFERENCES ref)))
(SETQ OLDSUPPORT (VLA-GET-SUPPORTPATH FILES))
(SETQ NEWPATH (STRCAT OLDSUPPORT ";" DirPath ";"))
(VLA-PUT-SUPPORTPATH FILES NEWPATH);;Default path for DGN files location.
(setvar "DGNIMPORTMODE" 0) ;;Imports the DGN file in a new drawing file.
(setq SDI (getvar "SDI_Mode"))  ;;Save Current SDI MODE
(setvar "SDI_mode"  1) ;;SET Single Drawing Mode for AutoCAD.
(setq files (vl-directory-files path "*.dgn"))
(foreach dgnfile files
(command "-dgnimport" (strcat path dgnfile) "" "" "" "y" (strcat path dgnfile ".dwg"))
) ; foreach
) ; defun

[编程交流] 导入多个Dgn#039；s至

发表回复

精选推荐