通过修改编译选项 "优化"->"链接"或者"内部" 则以上办法均会失效.
准备破解的代码:主要是破解函数redraw
代码:
(defun c:test ()
(setq es (car(entsel)))
(redraw es 3)
)
当以上工程采用"优化"->"链接"或者"内部" 编译的时候,则以下破解代码无效. 当采用标准方式编译的时候,以下破解代码有效.
(setq myredraw redraw) (defun redraw(en id) (princ "\n redraw") (myredraw en id) )
|