小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> CAD数字动态递增复制_小懒人CAD工具箱_CAD插件
详细内容

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

时间:2019-10-06     作者:逆流而上的鱼   阅读

PC.jpg

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)

)


PC.jpg

电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符200(限制字符200)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。