请教一下各位大神，有没有什么方法可以给lsp程序自动排.....

天冷了 · 发表于 2023-5-22 07:51:48

请教一下各位大神，有没有什么方法可以给lsp程序自动排版的？
有时候国外下载的程序，或者复制过来的代码，排版非常错乱。
如下一个例子：
请问有没有什么程序或者插件，可以达到直接给lsp自动排版的效果。
我知道notepad++ ，有一个插件可以给html自动排版的，但是给lsp自动排版的插件，我没有找到。
麻烦知道方法的朋友，帮忙解答一下，谢谢了。

请点击此处下载

查看状态：已购买或有权限

您的用户组是：游客

文件名称:2个排版错乱的例子.zip
下载次数:21 文件大小:1.51 KB
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

copy

; This routine runs the code in the active editor of NotePad++ from AutoCAD:(defun C:n++ nil (C:RunFromNotePadPP)) ; Quick Run(defun C:RunFromNotePadPP ( / scr *error* err np++ npeditor npSS npMS r )  ; NOTE: Requires ActiveX plugin(by David Gausmann) installed on the NP++   ;    (defun *error* (m)    (foreach x (reverse (list np++ npeditor npSS npMS))      (vl-catch-all-apply (function vlax-release-object) (list x))    )    (gc) (gc)    (and msg (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\nError: " msg)))) (princ)  ); defun *error*   (setq err    (vl-catch-all-apply      (function         (lambda nil ; THIS WORKS - IT GETS THE ACTIVE DOCUMENT CODE IN NOTEPAD !!!          (setq np++ (vlax-get-or-create-object "NotepadPlusPlus.Application"))          (setq npeditor (vlax-get np++ 'ActiveEditor))          (vlax-invoke-method npeditor 'selectAll)          (setq npSS (vlax-get npeditor 'selections))          (setq npMS (vlax-get npSS 'mainSelection))          (setq r (vlax-get-property npMS 'text))          (vlax-invoke npSS 'setRange 0 0 0 0)        ); lambda       ); function    ); vl-catch-all-apply  ); setq err    (*error* nil)(princ)  (if (and r (not (vl-catch-all-error-p err)))    (eval (read (strcat "(list\n" r "\n)")))  )); defun

lee50310 · 发表于 2023-5-23 18:47:37

本帖最后由 lee50310 于 2023-5-24 09:35 编辑

方法如下:
1. AutoCad 視窗面板-->工具(T) -->AutoLisp -->Visual Lisp編輯器如圖(1)
2. 在 Visual Lisp編輯器按 Ctrl-N 開啟新檔如圖(2)
3. 將要編排的程式碼複製貼上在 Visual Lisp編輯器內如圖(3) ,圖(4)
4. 點選格式編輯便可重排程式碼如圖(5)
5. 在 Visual Lisp編輯器將排好程式碼另存新檔

(圖一)

圖一

(圖二)

圖二

(圖三)

圖三

(圖四)

圖四

(圖五)

圖五