求大佬修改复制旋转代码实现选择基点和连续复制功能

zyxi19

复制前，不能任意拾取基点，且不能连续复制。此外，拾取基点后，能先执行TAB旋转，再指定插入点就更好了，目前是指定插入点，再按住TAB旋转。

2. (defun c:copydreh ()
   
3.         (setvar "cmdecho" 0)
   
4.   (while(setq el (car (entsel)))
   
5.         (setq el1 (entget el))
   
6.         (setq p1 (cdr (assoc 10 el1)))
   
7.         (command "_copy" (ssadd el) "" (trans p1 0 1) pause)
   
8.         ;(setq en (entget (entlast)))
   
9.       (setq en (vlax-ename->vla-object (entlast)))
   
10.         (princ "\nPress [Tab] to Rotate Text <Accept>: ")
    
11.        (while (= 9 (cadr (grread nil 2)));;(while (= 9 (cadr (grread nil 2)))
    
12.           (setq rt (vla-get-rotation en))
    
13.              ;   en
    
14.              ;(entmod (subst (cons 50 (rem (+ (/ pi 2.) (cdr rt)) (+ pi pi))) rt en))
    
15.               (vla-put-rotation en (rem (+ (/ pi 2.) rt) (+ pi pi)) )
    
16.           ;)
    
17.        );while

(defun c:copydreh ()<br />         (setvar "cmdecho" 0)<br />   (while(setq el (car (entsel)))<br />         (setq el1 (entget el))<br />         (setq p1 (cdr (assoc 10 el1)))<br />         (command "_copy" (ssadd el) "" (trans p1 0 1) pause)<br />         ;(setq en (entget (entlast)))<br />       (setq en (vlax-ename->vla-object (entlast)))<br />         (princ "\nPress [Tab] to Rotate Text <Accept>: ")<br />        (while (= 9 (cadr (grread nil 2)));;(while (= 9 (cadr (grread nil 2)))<br />           (setq rt (vla-get-rotation en))<br />              ;   en<br />              ;(entmod (subst (cons 50 (rem (+ (/ pi 2.) (cdr rt)) (+ pi pi))) rt en))<br />               (vla-put-rotation en (rem (+ (/ pi 2.) rt) (+ pi pi)) )<br />           ;)<br />        );while

qazxswk

你给的代码，最后少了两个括号吧。
复制前，想任意拾取基点，就不要(setq p1 (cdr (assoc 10 el1)))，自己设置一个基点。比如(setq p1 (getpoint "\n指定基点：" ))，如果想连续复制，还需要完善很多代码。

寒潮大冬瓜

'贱人工具箱'5.8有这个功能

kozmosovia

CAD的ET有MoCoRo命令。https://www.bilibili.com/video/B ... 99d581f415694161402