[求助]：晓东工具中"序号标注"无法更改起始序号?这是为什么?(以下无正文)

南山樵夫

晓东工具中"序号标注"无法更改起始序号?这是为什么?(以下无正文)

lsjjm

请参考这个:
(defun c:test ()       
  (setq p0 (getpoint "\nPick star point:"))
  (if inum nil (setq inum 1))
  ;(mlayer "dim" 4 "continous")
  (setq s (getvar "dimscale"))
  (while inum
    (if pe (setq pe0 pe))
    (setq pe (getpoint p0 "\nPick End Point"))
    (princ "\nItem Number or Break: n <")
    (princ inum)
    (setq inum0 (getstring ">:"))
    (if pe0
      (if (< (abs (- (car pe)(car pe0)))(abs (- (cadr pe)(cadr pe0))))
        (setq pe (list (car pe0)(cadr pe)))
        (setq pe (list (car pe)(cadr pe0)))
      )
    )
    (command "leader" p0 (polar pe (angle pe p0)(* s 0.32)) "" "" "n")
    (vl-cmdf "circle"  pe (* s 0.32))
    (if (= (type inum) 'STR)(setq inum (atoi inum)))
    (vl-cmdf "text" "j" "m" pe (* s 1.5 0.18) 0 (itoa inum) "")
    (setq p0 (getpoint "\nPick start Point"))
    (setq inum (1+ inum))
  )
)

南山樵夫

抱歉，我对lisp语言一窍不通，能不能说的明白一点！
谢谢！