请问这个从飞诗网盘下的多重偏移LSP 为什么不能用？有好心人帮忙看看吗？

hooboxu

源址：http://fstl.ys168.com/
谢谢了

;;多重偏移
(defun c:m_offset (/ m_offset:dcl:show d dis ldcl r opt rt ss)
  (setq ss (ssget))
  (or ss (fsxm-silenceexit))
  (setq opt (getpoint "\n指定偏移方向:"))
  (or opt (fsxm-silenceexit))
  ;;对话框
  (setq        ldcl
         '("mro"
           (:DIALOG
            (INITIAL_FOCUS "angs")
            (LABEL "飞诗CAD - 多重偏移")
            (:BOXED_COLUMN
             (LABEL "距离列表(,号分隔支持表达式)")
             (:EDIT_BOX (ALLOW_ACCEPT TRUE) (KEY "dis"))
             "spacer;"
            )
            (:BOXED_COLUMN
             (LABEL "模式")
             (WIDTH 15)
             (:RADIO_BUTTON
              (KEY "moda")
              (LABEL "相对起始(&F)")
              (VALUE "1")
             )
             (:RADIO_BUTTON (KEY "modr") (LABEL "相对上次(&L)"))
            )
            "ok_cancel;"
           )
          )
  )
  (defun m_offset:dcl:show ()
    (foreach v (vlax-ldata-get "fsxm" "m_offset")
      (set_tile (car v) (cdr v))
    )
  )
  (setq rt (fsxm-ldcl ldcl "m_offset"))
  (or rt (fsxm-silenceexit))
  (vlax-ldata-put "fsxm" "m_offset" rt)
  (setvar "cmdecho" 0)
  (or cal (command ".cal" 0))
  ;;距离列表
  (setq dis (cdr (assoc "dis" rt)))
  (setq dis (fsxm-replace (vl-string-trim "," dis) " " ""))
  (setq dis (mapcar 'cal (fsxm-split dis ",")))
  (or (apply 'and dis)
      (progn (fstl_msgbox "出错了" "距离列表错误！" 16)
             (fsxm-silenceexit)
      )
  )
  ;;相对上次
  (if (= (cdr (assoc "modr" rt)) "1")
    (setq d   0
          dis (mapcar '(lambda (r) (setq d (+ r d)))
                      dis
              )
    )
  )
  ;;offset
  (vla-StartUndoMark *doc*)
  (foreach ent (fsxm-ss->enlist ss)
    (foreach d dis (command ".offset" d ent opt ""))
  )
  (vla-EndUndoMark *doc*)
  (princ)
)

hooboxu

同样。
文字递增也运行不了。

(defun c:TextCopy+ (/ *error* enp la n opt ss)
  (princ "\n选择尾部为数字或字母的文字：")
  (setq ss (ssget ":S" '((0 . "*text") (1 . "*@,*#"))))
  (or ss (fsxm-silenceexit))
  (sssetfirst nil ss)

  (setq n (getreal "\n输入增量值<1>："))
  (or n (setq n 1))

  ;;增量复制
  (defun CopyText+ (en n / new real s1 s2 s2+ str)
    (setq str (fsxm-getendxf en 1))
    (cond ((wcmatch str "*@")
           (setq s1 (substr str 1 (1- (strlen str))))
           (setq s2 (substr str (strlen str)))
           (setq s2+ (+ n (ascii s2)))
           (cond ((>= s2+ 123) (setq s2+ 97))
                 ((>= s2+ 91) (setq s2+ 65))
           )
           (setq new (entmakex (entget en)))
           (fsxm-setendxf new 1 (strcat s1 (chr s2+)))
           new
          )
          ((wcmatch str "*#")
           (setq s1 "")
           (while (not (numberp (vl-catch-all-apply 'read (list str))))
             (setq s1 (strcat s1 (substr str 1 1)))
             (setq str (substr str 2))
           )
           (setq real (fsxm-tostring (+ n (read str))))
           (setq new (entmakex (entget en)))
           (fsxm-setendxf new 1 (strcat s1 real))
           new
          )
          (t (entmakex (entget en)))
    )
  )
  (vla-StartUndoMark *doc*)
  (setq opt (getpoint "\n指定基準點:"))
  (or opt (fsxm-silenceexit))
  (setvar "lastpoint" opt)
  (defun *error* (msg) (mapcar 'entdel (fsxm-ss->enlist ss)))
  (setvar "cmdecho" 0)
  (while t
    (setq la (entlast))
    (foreach en (fsxm-ss->enlist ss) (CopyText+ en n))
    (setq ss (fsxm-newselection la))
    (setq opt (getvar "lastpoint"))
    (command ".move" ss "" "non" "@" "\\")
    (if        (equal opt (getvar "lastpoint") 1e-8)
      (exit)
    )
  )
  (vla-EndUndoMark *doc*)
  (princ)
)

lucas_3333

你用飞诗工具箱没有？里面含飞诗的自定函数fsxm- 开头的

hooboxu

哦，这样，没有装哦，原来这样。
谢谢你！
那就不能单独用了

love1030312

穿裤子  当然不能出门工作了  哈哈    有自定义函数的必须要穿底裤