(求助)请教各位大神，如何让复制的文件用一个插件，粘贴后提示缩方比例且带记忆功能

999999

以下的简短代码是可以直接粘贴缩比例，但是同一个CAD的窗口每次粘贴都需要重新输入比例，求助大神帮帮忙改进或者重写一下
输入命令>输入比例（带记忆）>选择粘贴的位置
(defun c:FV()
(command "_pasteclip" "SCALE")
(princ)        
)

lijiao

2. (defun c:FV (/ OSCALE)
   
3.   (or *scale* (setq *scale* 1))
   
4.   (setq        *scale*        (if (setq
   
5.                       oscale (getdist
   
6.                                (strcat "\r输入比例<" (rtos *scale*) ">:")
   
7.                              )
   
8.                     )
   
9.                   oscale
   
10.                   *scale*
    
11.                 )
    
12.   )
    
13.   (command "_pasteclip" "SCALE" *scale*)
    
14.   (princ)
    
15. )

(defun c:FV (/ OSCALE)<br />   (or *scale* (setq *scale* 1))<br />   (setq        *scale*        (if (setq<br />                       oscale (getdist<br />                                (strcat "\r输入比例<" (rtos *scale*) ">:")<br />                              )<br />                     )<br />                   oscale<br />                   *scale*<br />                 )<br />   )<br />   (command "_pasteclip" "SCALE" *scale*)<br />   (princ)<br /> )

999999

lijiao 发表于 2021-12-17 09:00

谢谢大佬，就是这个效果

zmzk

太高深了，解释下语法就好了！