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

xiao88gang

(defun C:EEE (/ DIS  SS)
    (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

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

xiao88gang

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

好像是缺少函数吧

bssurvey

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

xyp1964

1. ;; tt(双向偏移)
   
2. (defun c:tt ()
   
3.   (setvar "osmode" 0)
   
4.   (setq dist (Udist 1 "" "双线宽度<输入或鼠标直接量取>" dist nil))
   
5.   (setq        ss (ssget '((0 . "line,arc,lwpolyline")))
   
6.         i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (xyp-Offset s1 (* dist 0.5) t t nil)
   
10.   )
    
11.   (princ)
    
12. )

;; tt(双向偏移)<br /> (defun c:tt ()<br />   (setvar "osmode" 0)<br />   (setq dist (Udist 1 "" "双线宽度<输入或鼠标直接量取>" dist nil))<br />   (setq        ss (ssget '((0 . "line,arc,lwpolyline")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (xyp-Offset s1 (* dist 0.5) t t nil)<br />   )<br />   (princ)<br /> )