|
CAD数字动态递增复制_小懒人CAD工具箱_CAD插件时间:2019-10-06 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) ) |