cad vlisp编辑器打开 165k 的lisp 就死机

f4800

lisp  大小约165k左右，排序比较乱，打算 用 vlisp编辑器 执行 设置编辑器中代码的格式 Ctrl+Alt+F   命令，但是打开文件就死机。。这个问题怎么解决？


多谢大神。。

newer

我 600多K的，打开都没问题，是你系统的事吧
如果你想格式化代码，不推荐你用VLISP，换LISPLINK吧，论坛有

f4800

newer 发表于 2020-11-25 13:59
我 600多K的，打开都没问题，是你系统的事吧
如果你想格式化代码，不推荐你用VLISP，换LISPLINK吧，论坛有 ...

好的，多谢了。。。我去测试下。。

f4800

newer 发表于 2020-11-25 13:59
我 600多K的，打开都没问题，是你系统的事吧
如果你想格式化代码，不推荐你用VLISP，换LISPLINK吧，论坛有 ...

大师 怎么都是灰色的？ 部分功能 不可用啊。。。

f4800

newer 发表于 2020-11-25 13:59
我 600多K的，打开都没问题，是你系统的事吧
如果你想格式化代码，不推荐你用VLISP，换LISPLINK吧，论坛有 ...

大佬们  这段源码标注的文字是水平的  怎么修改为增加可选项 ，有水平或垂直标注的选择？  多谢了





(defun c:zbbz (/ LC:TEXTLENGTH TEXTSTYLE-BAK TEXTSIZE-BAK TEXTHIGH XSWS PT1 PT2 STRLST TEXTLENGTH PT3 LST)
  (defun LC:TextLength (String / Tbox)
    (setq Tbox (textbox (list (cons 1 String))))
    (distance (car Tbox) (cadr Tbox))
  )
  (setq TEXTSTYLE-bak(getvar "TEXTSTYLE"))
  (setvar "TEXTSTYLE" "Standard")
  (setq textsize-bak (Getvar "textsize")) ;字高系统变量
  (setq texthigh (getreal "\n  请输入文字高度<1.5>: "))
  (if (null texthigh) (setq texthigh 1.5))
  (Setvar "textsize" texthigh)
  (setq xsws (getint "\n 请输入小数位数<3>: "))
  (if (null xsws) (setq xsws 3))
  (while (setq pt1 (getpoint "\n 指定注记点: "))
    (setq pt2 (getpoint "注记位置: "))  
    (setq strlst (mapcar'strcat'("Y= " "X= " "H= ")(mapcar '(lambda (x) (rtos x 2 xsws)) pt1)))
    (setq textlength (apply 'MAX (mapcar '(lambda (x) (LC:TextLength x)) strlst)));文字最大长度
    (setq pt3 (if (> (car pt2) (car pt1))
                  (polar pt2 0 (+ textlength 1))
                  (polar pt2 pi (+ textlength 1))
              )
    )
    (setq lst (list pt1 pt2 pt3))
    (entmake (list '(0 . "TEXT")'(41 . 1.0)(cons 1 (cadr strlst)) (cons 10 (polar (polar (IF (>= (car pt2) (car pt1)) pt2 pt3) 0 0.5) (* 0.5 pi) (* texthigh 0.2))) (cons 40 texthigh)))
    (entmake (list '(0 . "TEXT")'(41 . 1.0) (cons 1 (car strlst)) (cons 10 (polar (polar (IF (>= (car pt2) (car pt1)) pt2 pt3) 0 0.5) (* 1.5 pi) (+ (* texthigh 0.2) texthigh))) (cons 40 texthigh)))
    (entmake (list '(0 . "TEXT") '(41 . 1.0)(cons 1 (last strlst)) (cons 10 (polar (polar (IF (>= (car pt2) (car pt1)) pt2 pt3) 0 0.5) (* 1.5 pi) (+ (* texthigh 0.4) (* texthigh 2.0)))) (cons 40 texthigh)))
    (entmake (append (list '(0 . "LWPOLYLINE")'(100 . "AcDbEntity")'(100 . "AcDbPolyline")(cons 90 (length lst)))(mapcar '(lambda (pt) (cons 10 pt)) lst)))
  )
  (Setvar "textsize" textsize-bak) ;还原字高系统变量
  (setvar "TEXTSTYLE" TEXTSTYLE-bak) ;还原字体系统变量
)