CAD怎么加载dcl文件
CAD怎么加载dcl文件
日期：2017-09-19 10:35:10 人气：1
运行下面这个程序就可以看了：
(defun c:yldcl() ;预览DCL命令
(if (null dcl_pt)
(setq dcl_pt '(-1 -1))
)
(setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
(princ "DCL 文件名：")(princ dcl_file)
(setq dia_name (gets