点击鼠标无限等距复制图形--cp

指尖

                                                         此程序由AI生成，欢迎大家下载使用，共同交流进步！！！

                  具体操作及代码如下

工作中试用可行

  

• (defun c:CP (/ ss dist base-pt cnt new-pt obj ent-data)
•   (vl-load-com)  ; 加载 Visual LISP 扩展
•   
•   (if (setq ss (ssget))  ; 选择多个对象（支持框选）
•     (progn
•       (setq dist (getdist "\n输入水平复制距离: "))  ; 获取复制距离
•       
•       ; 检查第一个选中的对象是否有圆心（如果是圆或圆弧）
•       (setq ent-data (entget (ssname ss 0)))
•       (if (and (or (= (cdr (assoc 0 ent-data)) "CIRCLE")
•                    (= (cdr (assoc 0 ent-data)) "ARC"))
•                (setq base-pt (cdr (assoc 10 ent-data))))  ; 圆心作为基点
•         (princ (strcat "\n自动使用圆心 (" (rtos (car base-pt)) "," (rtos (cadr base-pt)) ") 作为基点"))
•         (setq base-pt (getpoint "\n指定基准点（图形无圆心，请手动选择）: "))  ; 手动指定基点
•       )
•       
•       (setq cnt 0)
•       (princ "\n点击放置位置（ESC退出）...")
•       
•       (while (setq new-pt (getpoint "\n指定下一个复制位置: "))
•         (setq cnt (1+ cnt))
•         (command "_.COPY" ss "" base-pt
•                  (list (+ (car base-pt) (* dist cnt)) (cadr base-pt)))
•       )
•       
•       (princ (strcat "\n共复制了 " (itoa cnt) " 次"))
•     )
•     (princ "\n未选择对象")
•   )
•   (princ)
• )
  

wharan

这个，已经没有太大意义。高版本的Array功能，比这个灵活多了。不过还是为楼主点赞

wlpkok

牛批，AI都用的这么六了，是个好插件，省去了一直手点的动作

183017064

不错，可以研究一下方向

yegucheng0129

好像CO - 基点-A -数量-间距就直接解决了吧

Marioreo

感谢大神分享