999999 发表于 2021-12-17 08:46:36

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

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





lijiao 发表于 2021-12-17 08:46:37

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

999999 发表于 2021-12-17 09:10:37

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


谢谢大佬，就是这个效果

zmzk 发表于 2023-1-15 16:05:35

太高深了，解释下语法就好了！
页: [1]
查看完整版本: (求助)请教各位大神，如何让复制的文件用一个插件，粘贴后提示缩方比例且带记忆功能