[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

一些小的补充：

copy

(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

再一个：

copy

(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]为输入增加价值

发表回复

精选推荐