xiao88gang 发表于 2018-3-11 17:57:57

程序用不了，哪位帮忙给弄一下

(defun C:EEE (/ DISSS)
    (SETVAR "osmode" 0)
    (setq SS (SSGET '((0 . "LINE,ARC,LWPOLYLINE"))))
    (setq LST_E (SS2LST SS))
(VL-CMDF ".undo" "be")
(setq      DIS (SAVEINPUTMSG
            GETDIST               "dis"                "\n指定去双线的宽度小于"
            "<1>"               nil                1
             )
)
   )
(PRINC)
)
这是一个平行线单线的程序，总是用不了

Andyhon 发表于 2018-3-11 18:02:00

会是欠子函数的问题吗!?
错误讯息是啥?

xiao88gang 发表于 2018-3-11 18:18:47

Andyhon 发表于 2018-3-11 18:02
会是欠子函数的问题吗!?
错误讯息是啥?

好像是缺少函数吧

bssurvey 发表于 2018-3-12 08:21:49

(SS2LST)是自訂義的函數，不是LISP本身的函數

xyp1964 发表于 2018-3-13 14:07:28

;; tt(双向偏移)
(defun c:tt ()
(setvar "osmode" 0)
(setq dist (Udist 1 "" "双线宽度<输入或鼠标直接量取>" dist nil))
(setq        ss (ssget '((0 . "line,arc,lwpolyline")))
        i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (xyp-Offset s1 (* dist 0.5) t t nil)
)
(princ)
)
页: [1]
查看完整版本: 程序用不了，哪位帮忙给弄一下