修改图号

王子

(defun c:xgth ()
  (setq os (getvar "osmode"))
  (setq om (getvar "cmdecho"))
  (setvar "osmode" 68)
  (setvar "cmdecho" 0)
  (princ "\n请选择一个图号")
  (setq ss1 (entsel))
  (if ss1
    (progn
      (setq ss1ent (entget (car ss1)))
      (setq ss1la    (cdr (assoc 8 ss1ent))
            ss1style (cdr (assoc 7 ss1ent))
            ss1text  (cdr (assoc 1 ss1ent))
            th1no    (vl-string-position (ascii "-") ss1text 0 t)
            th1             (substr ss1text 1 (+ th1no 1))
      )
      (setq ss2        (ssget "x"
                       (list (cons 8 ss1la)
                             (cons 7 ss1style)
                       )
                )
      )
;;;      (vl-cmdf "_erase" ss2 "")
    )
  )
  (setq        shuzhi1         (getint "\n请输入起始页：")
        zongyema (getint "\n请输入张数：")
        pt1         (getpoint "\n请在屏幕上选第一个注记点：")
        pt2         (getpoint pt1 "\n请在屏幕上选第二个注记点：")
        juli         (distance pt1 pt2)
        i         0
  )
  (repeat zongyema
    (setq pt1x          (car pt1)
          pt1y          (cadr pt1)
          pt2x          (+ pt1x (* juli i))
          pt2          (list pt2x pt1y)
          shuzhi2 (+ shuzhi1 i)
          th2          (strcat th1 (rtos shuzhi2 2 0))
    )
    (command "_text" "s" ss1style "j" "mc" pt2 "9" "0" th2)
    (vl-cmdf "change" (entlast) "" "p" "la" ss1la "")
    (setq i (+ i 1))
  )
  (steq jj 0)
  (repeat (sslength ss2)
    (setq ss21           (ssname ss2 jj)
          ss21ent  (entget ss21)
          ss21text (cdr (assoc 1 ss21ent))
    )
    (if        ss21text
      (progn
        (if (vl-string-search th1 ss21text 0)
          (vl-cmdf "_erase" ss21 "")
        )
      )
    )
    (setq jj (+ jj 1))
  )

  (setvar "osmode" os)
  (setvar "cmdecho" om)
  (princ "\nOK!")
  (princ)
)

王子

谢谢你的评价。

sicky111

感谢分享源码！

王子

你这签到数这么大，忠实观众

yangjian001

做一个热心并受欢迎的人