社区 › Auto Lisp › [LISP]为输入增加价值

feargt 发表于 2022-7-6 06:53:30

 
 
既然你提到了，我也这么认为

BlackBox 发表于 2022-7-6 06:56:22

 
别担心；是一些小事情会把人绊倒。。。我编写类似代码的次数比我愿意承认的要多。
 
干杯

BlackBox 发表于 2022-7-6 07:01:57

李，你打得好。
 
 
 
[编辑]-看起来李删除了他的帖子。

Lee Mac 发表于 2022-7-6 07:04:30

一些小的补充：
(defun c:zs ( / scl )
   (initget 6)
   (if (if (setq scl (getreal (strcat "\nSpecify scale factor" (if *scl* (strcat " <" (rtos *scl* 2) ">: ") ": "))))
         (setq *scl* scl)
         (setq scl *scl*)
       )
       (command "_.zoom" "_S" (strcat (rtos scl 2) "xp"))
   )
   (princ)
)

Lee Mac 发表于 2022-7-6 07:06:40

 
是的-错过了一个“如果”，就在我按下post按钮时抓住了它！

BlackBox 发表于 2022-7-6 07:11:01

 
别担心；实际上，我只是欣赏If中的If（作为测试表达式，而不是嵌套的）。。。做得好。

Lee Mac 发表于 2022-7-6 07:11:56

 
干杯伙计

alanjt 发表于 2022-7-6 07:14:51

再一个：
 
(defun c:ZS (/)
(initget 6)
(if (setq *zs:scale*
            (cond ((getreal (strcat "\nSpecify scale factor"
                                    (if *zs:scale*
                                    (strcat " <" (rtos *zs:scale* 2) ">: ")
                                    ": "
                                    )
                            )
                   )
                  )
                  (*zs:scale*)
            )
   )
   (command "_.zoom" "_S" (strcat (rtos *zs:scale* 2) "xp"))
)
(princ)
)

BIGAL 发表于 2022-7-6 07:19:36

单向非lisp如果您打开了视口工具栏，您可以直接在正方形中键入比例数字因子put 4=1:250 1 1:1000。如果您使用鼠标滚轮手动缩放，请查看数字的变化。

OMEGA-ThundeR 发表于 2022-7-6 07:21:49

没错，但我移动鼠标的次数越少越好。只要一个激活命令的按钮和一个输入的数字就可以了。
 
我想这是一个偏好的问题，我喜欢用命令做事，尽量少用按钮。
 
视口比例控件甚至不在功能区中，如果您在活动视口中，也不在那里切换。虽然我不使用ribbon，但这是我不使用它的众多原因之一，我更喜欢通过命令做事。
 
甚至更好的是，用Lisp程序加快速度

查看完整版本: [LISP]为输入增加价值