[求助]：一个管径标注的LSP请高手帮助修改一下

lz689706

修改要求：1.选择多义线时能够将管径标注在鼠标点取的位置。

                  2.管径距管线的距离120mm。

(DEFUN C:ggg(/ cstr cstr0 cstr1 a0 ab num num1 pt pt0 pt1 zang1)
;;;defun err
    (defun err (msg)
    (setq *error* olderr)
    (setvar "osmode" ccmd)
    (setvar "clayer" clay)
    (setq num nil)
    (princ "操作错误!请先键入NEA，再选择管线!")
    (princ)  
    )      ;for defun fi-err
;;;main  
     (setq olderr *error* *error* err)
     (setq clay (getvar "clayer"))   
     (setq ccmd (getvar "osmode"))
     (setvar "osmode" 0)
(setq sc1 sc) ;;;get current scale
;;;the following sets current scale
(if (or (null sc) (<= sc 0))
  (if (not (numberp sc))
   (progn
     (setq sc 100 sc1 100)
     (initget (+ 2 4))
     (setq sc (getreal (strcat "图纸比例--1:<" (rtos sc1) ">")))
     (if (null sc)(setq sc sc1))
   ) ;for progn
  ) ;for if
) ;for if

jactry

有中文版的教程。感觉就是舒服