[求助]：请问大家CAD里单线改双线的代码

bayodgah

(defun c: sx ()
  (CMDLA0)
  (setq        no1 (UREAL 7 "" "\n双线宽" no1)
        ss  (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE")))
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt1 (vlax-curve-getstartPoint s1)
          pt2 (pt-faxian s1 pt1 100)
          pt3 (pt-faxian s1 pt1 -100)
    )
    (command "offset" (/ no1 2) s1 pt2 s1 pt3 "")
    ;(entdel s1);删除原线
  )
  (CMDLA1)
)
这个代码加载后提示语法错误,请问哪位仁兄知道?

tenderwindy

啥东西？