CAD数字动态递增复制_小懒人CAD工具箱_CAD插件

CAD数字动态递增复制_小懒人CAD工具箱_CAD插件

CAD,CAD插件,CAD插件大全

;;;功能:递增复制

;;;逆流而上的鱼制作

(defun c:tt ()

  (setvar "OSMODE" 0)

  (prompt "\n 选择对象<退出>")

  (if (and

         (setq 选择文字 (ssget (list (cons 0 "TEXT"))))

         (setq 复制基点 (getpoint "\n 指定基点<退出>"))

      )

    (progn

      (setq 复制后选择集 nil)

      (setq 是否循环 t)

      (while 是否循环

         (if (= 复制后选择集 nil)

           (progn

             (setq 复制后选择集 (ssadd))

             (repeat (setq 文字数量 (sslength 选择文字))

               (setq

                   单个文字

                    (ssname 选择文字 (setq 文字数量 (1- 文字数量)))

               )

               (command "COPY" 单个文字 "" 复制基点 复制基点)

               (setq 复制后单个文字 (entlast))

               (ssadd 复制后单个文字 复制后选择集)

               (setq 数字 (atoi (cdr (assoc 1 (entget 单个文字)))))

               (setq 对象转换 (vlax-ename->vla-object 复制后单个文字))

               (if (> 数字 0)

                   (vla-put-TextString

                     对象转换

                     (rtos (setq 数字 (1+ 数字)) 2 0)

                   )

               )

             )

           )

         )

         (setq 新坐标 (grread 1 4 1))

         (cond

           ((= (car 新坐标) 3)

            (setq 确定后坐标 (trans (cadr 新坐标) 1 0))

            (vl-cmdf "MOVE" 复制后选择集 "" 复制基点 确定后坐标)

            (setq 是否循环 t)

            (setq 选择文字 复制后选择集)

            (setq 复制后选择集 nil)

           )

           ((= (car 新坐标) 25)

            (setq 是否循环 nil)

           )

           ((= (car 新坐标) 5)

            (setq 确定后坐标 (trans (cadr 新坐标) 1 0))

            (vl-cmdf "MOVE" 复制后选择集 "" 复制基点 确定后坐标)

            (setq 复制基点 确定后坐标)

           )

         )

      )

    )

  )

  (princ)

)