文字原位黏贴应该怎么写？

spp_wall

    想实现文字阴影的效果，现在文字移动了，但是原来的文字要黏贴到原坐标才行，要怎么写？

2. (defun c:wzyy ()
   
3. (setq ssg (ssget '((0 . "*TEXT"))));移动文字
   
4. 
   
5. 
   
6. (sssetfirst nil ssg )
   
7. 
   
8. (command "MOVE" ssg "" "D"  "0.1,0,0");"0.1,0,0"
   
9. 
   
10. 
    
11. (princ)
    
12. )

(defun c:wzyy ()<br /> (setq ssg (ssget '((0 . "*TEXT"))));移动文字<br /> <br /> <br /> (sssetfirst nil ssg )<br /> <br /> (command "MOVE" ssg "" "D"  "0.1,0,0");"0.1,0,0"<br /> <br /> <br /> (princ)<br /> )

xyp1964

spp_wall 发表于 2022-9-8 09:50
效果很好 可惜没有函数 模仿院长写的 但是第一次运行只复制 第二次就执行偏移 第三次才执行改颜色，是什 ...

1. (defun c:tt ()
   
2.   "模拟文本阴影"
   
3.   (if (setq ss (ssget '((0 . "*TEXT"))))
   
4.     (progn
   
5.       (command "undo" "be")
   
6.       (setvar "osmode" 0)
   
7.       (setq i -1)
   
8.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.         (command "copy" s1 "" '(0 0) '(0 0))
   
10.         (setq s2 (entlast))
    
11.         (command "MOVE" s2 "" '(0 0) '(-5 5))
    
12.         (command "chprop" s2 "" "c" "2" "")
    
13.         (command "chprop" s1 "" "c" "1" "")
    
14.       )
    
15.       (command "regen")
    
16.       (command "undo" "e")
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   "模拟文本阴影"<br />   (if (setq ss (ssget '((0 . "*TEXT"))))<br />     (progn<br />       (command "undo" "be")<br />       (setvar "osmode" 0)<br />       (setq i -1)<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (command "copy" s1 "" '(0 0) '(0 0))<br />         (setq s2 (entlast))<br />         (command "MOVE" s2 "" '(0 0) '(-5 5))<br />         (command "chprop" s2 "" "c" "2" "")<br />         (command "chprop" s1 "" "c" "1" "")<br />       )<br />       (command "regen")<br />       (command "undo" "e")<br />     )<br />   )<br />   (princ)<br /> )

start4444

原位复制一个再移动

spp_wall

(defun c:wzyy ()
(setq ssg (ssget '((0 . "*TEXT"))));移动文字


(setq ssg2
(command "copy" ssg  "" "d" "0, 0, 0" "" ))

(sssetfirst nil ssg2 )

(command "MOVE" ssg2 "" "D"  "0.1,0,0");"0.1,0,0"
(command "change" ssg2 "" "p" "c" "2" "")

(princ)
)
好像可以，但是后面偏移后颜色改成黄色好像不行！

lee50310

文字原位黏贴

2. (defun c:cpz ( / s )
   
3.    (if (setq s (ssget)) (command "_.copybase" "_non" '(0 0) s ""))
   
4.    (princ)
   
5. )
   
6. (defun c:pcz ( )
   
7.    (command "_.pasteclip" "_non" '(0 0))
   
8.    (princ)
   
9. )

(defun c:cpz ( / s )<br />    (if (setq s (ssget)) (command "_.copybase" "_non" '(0 0) s ""))<br />    (princ)<br /> )<br /> (defun c:pcz ( )<br />    (command "_.pasteclip" "_non" '(0 0))<br />    (princ)<br /> )

xyp1964

紫苏炒黄瓜

看蒙了，哪跟哪啊？

spp_wall

xyp1964 发表于 2022-9-7 19:47

效果很好 可惜没有函数 模仿院长写的 但是第一次运行只复制 第二次就执行偏移 第三次才执行改颜色，是什么原因呢？

2. (defun c:wzyy ()
   
3. 
   
4. 
   
5.   (if (setq ss (ssget '((0 . "*TEXT"))))
   
6.     (progn
   
7.       (setq s0 (entlast))
   
8.     (command "copy" ss  "" "d" "0, 0, 0" "" )
   
9. 
   
10.       (setq ss1 (command "MOVE" s0 "" "D"  "0.1,0,0"));"0.1,0,0")
    
11.       (setq ss2 (command "change" s0  "" "p" "c" "2" ""))
    
12.       (command "regen")
    
13.     )
    
14. (princ)
    
15. 
    
16.   )
    
17. )

(defun c:wzyy ()<br /> <br /> <br />   (if (setq ss (ssget '((0 . "*TEXT"))))<br />     (progn<br />       (setq s0 (entlast))<br />     (command "copy" ss  "" "d" "0, 0, 0" "" )<br /> <br />       (setq ss1 (command "MOVE" s0 "" "D"  "0.1,0,0"));"0.1,0,0")<br />       (setq ss2 (command "change" s0  "" "p" "c" "2" ""))<br />       (command "regen")<br />     )<br /> (princ)<br /> <br />   )<br /> )

start4444

(command "copy" (ssget '((0 . "*text"))) "" "non" '(0 0) "non"'(0 0) "move" "p" "" "non" '(0 0) "non" '(0.1 0) "change" "p" "" "p" "c" "2" "" "regen")

happyboy75

根据文字高度判断一下移动距离好点