修定云线

clinber

zhd81617 发表于 2014-10-25 15:27
无函数定义: _ENDUNDO

我也是 找了半天没找到

王与韩1

大师能不能给个完整版的,老是出这样的错

反向跟踪:
[0.53] (VL-BT)
[1.49] (*ERROR* "参数列表尾部有错: 5.58222")
[2.44] (_call-err-hook #<SUBR @148c5e38 *ERROR*> "参数列砦膊坑写? 5.58222")
[3.38] (sys-error "参数列表尾部有错: 5.58222")
:ERROR-BREAK.33 nil
[4.30] (APPLY MAPCAR (- . 5.58222))
[5.24] (HHXD:MAKELT "△修改1次")
[6.19] (C:HHXD)
[7.15] (#<SUBR @148c5ed8 -rts_top->)
[8.12] (#<SUBR @092c2334 veval-str-body> "(C:HHXD)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)
不知道是不是函数找错了

lucas_3333

王与韩1 发表于 2014-11-3 15:44
大师能不能给个完整版的,老是出这样的错

反向跟踪:

没有发现一个说可以用的，是不是黄老发了一个半成品上来，给高手帮忙改改？

自贡黄明儒

lucas_3333 发表于 2014-11-3 20:12
没有发现一个说可以用的，是不是黄老发了一个半成品上来，给高手帮忙改改？

不会吧，我在其它电脑上也可用。要st788796那个构造文字长度，parse3，还有正则表达式

lucas_3333

自贡黄明儒 发表于 2014-11-3 21:44
不会吧，我在其它电脑上也可用。要st788796那个构造文字长度，parse3，还有正则表达式

长老，来个完整的吧，您传上来也就是希望分享给更多人，但大家现在都运行不了，您也很遗憾是吧

自贡黄明儒

lucas_3333 发表于 2014-11-3 23:51
长老，来个完整的吧，您传上来也就是希望分享给更多人，但大家现在都运行不了，您也很遗憾是吧

看了9楼，12楼，问题出在少函数HH:String:Len
;;公用----单行文字角点
;;构造文字长度(abs (car (apply 'mapcar (cons '- (HH:String:Len sty str h scl)))))
(defun HH:String:Len (sty str h scl)
  (if (or (not sty)
          (= sty "")
          (not (tblsearch "style" sty))
      )
    (setq sty (getvar "textstyle"))
  )
  (textbox (list (cons 1 str) (cons 7 sty) (cons 40 h) (cons 41 scl)))
)

四季因你而在

感谢楼主分享！

王与韩1

谢谢前辈,你给的函数放上去运行出来注释显示不了,如下图,正则表达式怎么用的呢?

zhongzilei

终于能运行了，就是注释显示不了

cfc

自贡黄明儒 发表于 2014-11-4 13:43
看了9楼，12楼，问题出在少函数HH:Stringen
;;公用----单行文字角点
;;构造文字长度(abs (car (apply ...

加上这个，还是提示无函数定义_ENDUNDO。大佬能放一个完整的吗？这么好的插件不能运行，太可惜了