[原创]给中望cad做的lsp源码加密工具enc-lsp

f4800

珍惜hh

大佬，请问下，我在网上下载了一个lsp程序，发现只能在中望CAD可以运行，Lsp程序好像是被加密还是怎么了，在AutoCAD上无法加载，在中望能加载运行,能麻烦看下能改到在AutoCAD上运行，谢谢



问题已解决，感谢大佬

baitang36

珍惜hh 发表于 2025-3-24 11:11
大佬，请问下，我在网上下载了一个lsp程序，发现只能在中望CAD可以运行，Lsp程序好像是被加密还是怎么了， ...

;【禁止响应】
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)

;【PL导出坐标且深圳系转大地系ZX】
(defun C:ZX (/)
  (setq PtA0 (list 109688.314051 22252.157980));深圳坐标原点
  (setq PtB0 (list 500383.036656 2496780.689555));大地坐标原点
  (setq scale 0.99999741621034806);深圳转大地缩小比例
  (setq dJd 0.97748677003459688712);深圳转大地角度增加弧度
  
  (princ "选择多段线(可多选):")
  (setq ss (ssget))
  (if ss
    (progn
      (command "_rotate" ss "" PtA0 dJd)
      (command "_scale" ss "" PtA0 scale)
      (command "_move" ss "" PtA0 PtB0)
    )
  )
)