这么一个简单文件，编译怎么会卡死？

zjh2785 · 发表于 2017-10-11 18:18:39

我把工程里面所有的文件都删除，只剩找一个了，编译会卡死，我仔细检查了
好像也没有什么语法问题吧？
一脸懵逼.....

zjh2785 · 发表于 2017-10-11 18:35:13

编译器是CAD2010 自带的

zjh2785 · 发表于 2017-10-11 19:10:44

本帖最后由 zjh2785 于 2017-10-11 19:11 编辑

有谁知道是什么原因吗？我要崩溃了。。。。。
下载文件麻烦的话，我把代码贴出来来吧，

(vl-load-com)
(setq *ACAD* (vlax-get-acad-object)
*DOC* (vla-get-ActiveDocument *ACAD*)
*MS* (vla-get-modelSpace *DOC*)
*BLKS* (vla-get-Blocks *DOC*)
*LOUTS* (vla-get-Layouts *DOC*)
)
;;;全局错误信息存放变量
(setq *ERROR_MSG* nil)
;;;****常用****
(setq *COMMAND_ALL*
(list
(setq *COMMAND_USED*
(list
'("-" "[常用]") '("BP" 1 1) '("SME" 2 2) '("DD" 12 12)
'("PP" 13 13))
)
;;****竖向****
(setq *COMMAND_ELEV*
(list
'("-"
"[竖向]"
)
'("BG" 15 15)
'("SBG" 16 16)
'("PD" 17 17)
'("HDGX" 18 18)
'("BDGX" 19 19)
'("GDGX" 20 20)
'("GXWZ" 21 21)
'("GL" 22 22)
)
)
;;****尺寸****
(setq *COMMAND_DIM*
(list
'("-"
"[尺寸]"
)
'("BDQ" 23 23)
'("BBJ" 24 24)
'("BZJ" 25 25)
'("BJD" 26 26)
'("BHC" 27 27)
'("BWG" 14 14)
)
)
;;****铺装****
(setq *COMMAND_HATCH*
(list
'("-" "[铺装]")
'("BDX" 3 3)
'("HH" 4 4)
)
)
;;****工具****
(setq *COMMAND_TOOL*
(list
'("-" "[工具]")
)
)
;;****详图****
(setq *COMMAND_DETAIL*
(list
'("-" "[详图]")
)
)
;;****设置****
(setq *COMMAND_SETING*
(list
'("-" "[设置]") '("BL" 28) '("DW" 29)
'("JD" 30) '("JD2" 31) '("JD3" 32) '("ZDPD" 33)
'("DGXJD" 34)
)
)
;;****其他****
(setq *COMMAND_OTHER*
(list
'("-"
"[其他]"
)
'("SX" 5 5)
'("SY" 6 6)
'("SO" 7 7)
'("JM" 8 8)
'("TJ" 9 9)
'("CD" 10 10)
'("MJ" 11 11)
'("ZC" 36 36)
'("SM" 0 0)
)
)
)
)
;;;帮助说明
(setq *CONS_STRING*
(list
(cons 0 "输入SM显示更多帮助.")
(cons 1 "批量打印")
(cons 2 "批量定距等分")
(cons 3 "动生成拨打线")
(cons 4 "快速、批量修改填充图案角度")
(cons 5 "沿X轴拉伸块")
(cons 6 "沿Y轴拉伸块")
(cons 7 "多功能偏移,可按多个距离连续偏移")
(cons 8 "图形加密(注意:不提供解密命令)")
(cons 9 "图元信息统计")
(cons 10 "图元长度统计")
(cons 11 "图元面积统计")
(cons 12 "打断于点")
(cons 13 "转换成多段线")
(cons 14 "网格坐标标注")
(cons 15 "标高标注")
(cons 16 "扩展标高标注")
(cons 17 "坡度标注")
(cons 18 "绘制等高线")
(cons 19 "标注等高线文字")
(cons 20 "改等高线高程及文字标注")
(cons 21 "更新等高线文字")
(cons 22 "所有图形Z坐标归零")
(cons 23 "连续对齐标注(天正逐点标注)")
(cons 24 "半径标注")
(cons 25 "直径标注")
(cons 26 "角度标注")
(cons 27 "弧长标注(自动添加半径,可标注外部参照)")
(cons 28 "标注比例,默认为100")
(cons 29 "绘图单位,默认为mm(毫米)")
(cons 30 "设置标高文字小数点位12.00")
(cons 31 "设置坡度文字小数点位i=1.50%")
(cons 32 "设置坡长文字小数点位L=12.00M")
(cons 33 "设置是否自动标注坡度,用与SBG")
(cons 34 "设置等高线文字小数点位12.00")
(cons 35 "设置是否自动更改其他相同标高的等高线数据,默认:否")
(cons 36 "显示注册窗口")
;;程序功能文字
(cons 1000 "对话框加载失败!")
)
)
;;;图标ID资源
(setq *CONS_ICOID*
(list
(cons 0 "RCDATA_16_HELP")
(cons 1 "RCDATA_16_PLOT_MGR")
(cons 2 "RCDATA_16_MEASUR")
(cons 3 "RCDATA_16_TABSUR")
(cons 4 "RCDATA_16_3DALIGN")
(cons 5 "RCDATA_16_PTFXZ")
(cons 6 "RCDATA_16_PTFYZ")
(cons 7 "RCDATA_16_OFFSET")
(cons 8 "RCDATA_16_COPY_LINK")
(cons 9 "RCDATA_16_STATS")
(cons 10 "RCDATA_16_LENGTH")
(cons 11 "RCDATA_16_AREA")
(cons 12 "RCDATA_16_OSNMID")
(cons 13 "RCDATA_16_OSNFRO")
(cons 14 "RCDATA_16_CELLBORDERS")
(cons 15 "RCDATA_16_BBASEPOINTPARAMETER")
(cons 16 "RCDATA_16_LIGHTGLYPHSON")
(cons 17 "RCDATA_16_RAY")
(cons 18 "RCDATA_16_SPLEDI")
(cons 19 "RCDATA_16_DIMOVE")
(cons 20 "RCDATA_16_TEXEDI")
(cons 21 "RCDATA_16_SPELL")
(cons 22 "RCDATA_16_UCSZAR")
(cons 23 "RCDATA_16_DIMCON")
(cons 24 "RCDATA_16_DIMRAD")
(cons 25 "RCDATA_16_DIMDIA")
(cons 26 "RCDATA_16_DIMANG")
(cons 27 "RCDATA_16_DIMARC")
(cons 28 "RCDATA_16_SCALETXT")
(cons 29 "RCDATA_16_FORMATUNITS")
(cons 30 "RCDATA_16_WSSETTINGS")
(cons 36 "RCDATA_16_SCRIPTRUN")
)
)

(vl-load-com) 
(setq *ACAD*  (vlax-get-acad-object) 
      *DOC*   (vla-get-ActiveDocument *ACAD*) 
      *MS*    (vla-get-modelSpace *DOC*) 
      *BLKS*  (vla-get-Blocks *DOC*) 
      *LOUTS* (vla-get-Layouts *DOC*) 
) 
;;;全局错误信息存放变量 
(setq *ERROR_MSG* nil) 
 
;;;****常用**** 
(setq *COMMAND_ALL* 
       (list 
         (setq *COMMAND_USED* 
                (list 
                  '("-" "[常  用]") '("BP" 1 1) '("SME" 2 2) '("DD" 12 12) 
                  '("PP" 13 13)) 
         ) 
         ;;****竖向**** 
         (setq *COMMAND_ELEV* 
                (list 
                  '("-" 
                    "[竖  向]" 
                   ) 
                  '("BG" 15 15) 
                  '("SBG" 16 16) 
                  '("PD" 17 17) 
                  '("HDGX" 18 18) 
                  '("BDGX" 19 19) 
                  '("GDGX" 20 20) 
                  '("GXWZ" 21 21) 
                  '("GL" 22 22) 
                ) 
         ) 
         ;;****尺寸**** 
         (setq *COMMAND_DIM* 
                (list 
                  '("-" 
                    "[尺  寸]" 
                   ) 
                  '("BDQ" 23 23) 
                  '("BBJ" 24 24) 
                  '("BZJ" 25 25) 
                  '("BJD" 26 26) 
                  '("BHC" 27 27) 
                  '("BWG" 14 14) 
                ) 
         ) 
         ;;****铺装**** 
         (setq *COMMAND_HATCH* 
                (list 
                  '("-" "[铺  装]") 
                  '("BDX" 3 3) 
                  '("HH" 4 4) 
                ) 
         ) 
         ;;****工具**** 
         (setq *COMMAND_TOOL* 
                (list 
                  '("-" "[工  具]") 
                ) 
         ) 
         ;;****详图**** 
         (setq *COMMAND_DETAIL* 
                (list 
                  '("-" "[详  图]") 
                ) 
         ) 
         ;;****设置**** 
         (setq *COMMAND_SETING* 
                (list 
                  '("-" "[设  置]")                  '("BL" 28)          '("DW" 29) 
                  '("JD" 30)          '("JD2" 31)          '("JD3" 32)          '("ZDPD" 33) 
                  '("DGXJD" 34) 
                 ) 
         ) 
         ;;****其他**** 
         (setq *COMMAND_OTHER* 
                (list 
                  '("-" 
                    "[其  他]" 
                   ) 
                  '("SX" 5 5) 
                  '("SY" 6 6) 
                  '("SO" 7 7) 
                  '("JM" 8 8) 
                  '("TJ" 9 9) 
                  '("CD" 10 10) 
                  '("MJ" 11 11) 
                  '("ZC" 36 36) 
                  '("SM" 0 0) 
                ) 
         ) 
       ) 
) 
;;;帮助说明 
(setq *CONS_STRING* 
       (list 
         (cons 0 "输入SM显示更多帮助.") 
         (cons 1 "批量打印") 
         (cons 2 "批量定距等分") 
         (cons 3 "动生成拨打线") 
         (cons 4 "快速、批量修改填充图案角度") 
         (cons 5 "沿X轴拉伸块") 
         (cons 6 "沿Y轴拉伸块") 
         (cons 7 "多功能偏移,可按多个距离连续偏移") 
         (cons 8 "图形加密(注意:不提供解密命令)") 
         (cons 9 "图元信息统计") 
         (cons 10 "图元长度统计") 
         (cons 11 "图元面积统计") 
         (cons 12 "打断于点") 
         (cons 13 "转换成多段线") 
         (cons 14 "网格坐标标注") 
         (cons 15 "标高标注") 
         (cons 16 "扩展标高标注") 
         (cons 17 "坡度标注") 
         (cons 18 "绘制等高线") 
         (cons 19 "标注等高线文字") 
         (cons 20 "改等高线高程及文字标注") 
         (cons 21 "更新等高线文字") 
         (cons 22 "所有图形Z坐标归零") 
         (cons 23 "连续对齐标注(天正逐点标注)") 
         (cons 24 "半径标注") 
         (cons 25 "直径标注") 
         (cons 26 "角度标注") 
         (cons 27 "弧长标注(自动添加半径,可标注外部参照)") 
         (cons 28 "标注比例,默认为100") 
         (cons 29 "绘图单位,默认为mm(毫米)") 
         (cons 30 "设置标高文字小数点位12.00") 
         (cons 31 "设置坡度文字小数点位i=1.50%") 
         (cons 32 "设置坡长文字小数点位L=12.00M") 
         (cons 33 "设置是否自动标注坡度,用与SBG") 
         (cons 34 "设置等高线文字小数点位12.00") 
         (cons 35 "设置是否自动更改其他相同标高的等高线数据,默认:否") 
         (cons 36 "显示注册窗口") 
         ;;程序功能文字 
         (cons 1000 "对话框加载失败!") 
       ) 
) 
;;;图标ID资源 
(setq *CONS_ICOID* 
       (list 
         (cons 0 "RCDATA_16_HELP") 
         (cons 1 "RCDATA_16_PLOT_MGR") 
         (cons 2 "RCDATA_16_MEASUR") 
         (cons 3 "RCDATA_16_TABSUR") 
         (cons 4 "RCDATA_16_3DALIGN") 
         (cons 5 "RCDATA_16_PTFXZ") 
         (cons 6 "RCDATA_16_PTFYZ") 
         (cons 7 "RCDATA_16_OFFSET") 
         (cons 8 "RCDATA_16_COPY_LINK") 
         (cons 9 "RCDATA_16_STATS") 
         (cons 10 "RCDATA_16_LENGTH") 
         (cons 11 "RCDATA_16_AREA") 
         (cons 12 "RCDATA_16_OSNMID") 
         (cons 13 "RCDATA_16_OSNFRO") 
         (cons 14 "RCDATA_16_CELLBORDERS") 
         (cons 15 "RCDATA_16_BBASEPOINTPARAMETER") 
         (cons 16 "RCDATA_16_LIGHTGLYPHSON") 
         (cons 17 "RCDATA_16_RAY") 
         (cons 18 "RCDATA_16_SPLEDI") 
         (cons 19 "RCDATA_16_DIMOVE") 
         (cons 20 "RCDATA_16_TEXEDI") 
         (cons 21 "RCDATA_16_SPELL") 
         (cons 22 "RCDATA_16_UCSZAR") 
         (cons 23 "RCDATA_16_DIMCON") 
         (cons 24 "RCDATA_16_DIMRAD") 
         (cons 25 "RCDATA_16_DIMDIA") 
         (cons 26 "RCDATA_16_DIMANG") 
         (cons 27 "RCDATA_16_DIMARC") 
         (cons 28 "RCDATA_16_SCALETXT") 
         (cons 29 "RCDATA_16_FORMATUNITS") 
         (cons 30 "RCDATA_16_WSSETTINGS") 
         (cons 36 "RCDATA_16_SCRIPTRUN") 
       ) 
)

就是这么个文件编译怎么都过不了、、、

elitefish · 发表于 2017-10-11 23:46:35

换 CAD2006 试试

zjh2785 · 发表于 2017-10-12 00:04:51

elitefish 发表于 2017-10-11 23:46
换 CAD2006 试试

谢谢但是我没有装2006 现在暂时搞定了
应该是编译器的BUG 我把里面的代码段位置换了一下就没问题了，

wszxf · 发表于 2017-10-12 08:27:10

直接编译没发现你说的问题CAD2018

llsheng_73 · 发表于 2017-10-12 17:32:36

直接编译一下就完成了，没有楼主说的情况出现

clinber · 发表于 2017-10-12 19:34:31

; (COMPILE-FILES st (D:/360安全浏览器下载/cons.lsp))
[分析文件 "D:/360安全浏览器下载/cons.lsp"]
......
[COMPILING D:/360安全浏览器下载/cons.lsp]
;
;
;
;
;
;
[FASDUMPING 对象格式 -> "C:/Users/Administrator/Desktop/11/cons.fas"]
; 编译完成。

pengfei2010 · 发表于 2017-10-16 08:50:50

回帖是一种美德！感谢楼主的无私分享谢谢

账号		自动登录	找回密码
密码			注册

[提问] 这么一个简单文件，编译怎么会卡死？

本帖子中包含更多资源