插入块并缩放

pBe · 发表于 2022-7-6 09:39:25

我以前说过。“预防措施”

说到错误，我通常使用函数（cond（（and…））

(defun c:Test  (/ a b c)
     (cond
           ((and
                  (setq a (car (entsel "\Select Line:")))
                  (setq b (eq (cdr (Assoc 0 (entget a))) "LINE"))
                  (setq c (getint "\nEnter Number of Cars: "))
                  (setq d (getpoint "\nPick Point on screen: "))
                  (princ "\nDone All Three:")
                  )))
     (princ)
     )

但我的大多数人都会问

我做错了什么？在我做了这个或没有做那个之后它就停止了！
我错过了什么？
错误消息在哪里？"

所以我想出了一个_error\u mesage例程

copy

(defun c:Test  (/ a b c)
    [color=blue](defun _errorMsg  (lst / NilVal)[/color]
[color=blue]       (while (eval (setq NilVal (car (car lst))))[/color]
[color=blue]             (setq lst (cdr lst)))[/color]
[color=blue]       (if lst[/color]
[color=blue]             (alert (cadr (assoc NilVal lst))))[/color]
[color=blue]       )[/color]
     (cond
           ((and
                  (setq a (car (entsel "\Select Line:")))
                  (setq b (eq (cdr (Assoc 0 (entget a))) "LINE"))
                  (setq c (getint "\nEnter Number of Cars: "))
                  (setq d (getpoint "\nPick Point on screen: "))
                  (princ "\nDone All Three:")
                  )))
    [color=blue](_errorMsg[/color]
[color=blue]       (list '(a "Failed to select Object")[/color]
[color=blue]             '(b "Not a Line Entity")[/color]
[color=blue]             '(c "Failed to Enter Number")[/color]
[color=blue]             '(d "Failed ot pick a point")[/color]
[color=blue]             ))[/color]
     (princ)
     )

我知道这听起来可能很奇怪，但您如何将vl catch all apply与getpoint结合使用来捕捉错误？

通常我使用initget/if，甚至有一次我使用了ggread

我对错误处理函数不是很有效，有时我会使用好的ol
（setq*Error*oldError）thingy。为了爱我，我似乎无法理解vl-catch-apply/vl-catch-all-error-p背后的想法

以下是我认为我会使用vl错误捕捉的内容

copy

 
(vl-catch-all-error-p
(vl-catch-all-apply 'cadr
              (setq fp (getpoint "\nPick point:"))))

但是，在两种情况下都出现了拾取点和不拾取点的结果是T，给出了什么？

-一盎司预防胜于一磅治疗

Lee Mac · 发表于 2022-7-6 09:41:01

好主意pBe

使用vl，您可以将其缩短为：

copy

(defun c:Test ( / _errormsg a b c d )
 (defun _errormsg ( lst / x )
   (if (setq x (vl-some '(lambda ( x ) (if (null (eval (car x))) (cadr x))) lst))
     (alert x)
   )
 )
 (cond
   (
     (and
       (setq a (car (entsel "\nSelect Line:")))
       (setq b (eq (cdr (assoc 0 (entget a))) "LINE"))
       (setq c (getint "\nEnter Number of Cars: "))
       (setq d (getpoint "\nPick Point on screen: "))
       (princ "\nDone All Three:")
     )
   )
   ( t
     (_errormsg
      '(
         (a "Failed to select Object")
         (b "Not a Line Entity")
         (c "Failed to Enter Number")
         (d "Failed to pick a point")
       )
     )
   )
 )
 (princ)
)

可以使用以下表达式：

其中是一个函数，当提供null点参数时会出错。

然而，在我看来，我觉得这是一种糟糕的编程实践，因为你在等待某些东西失败，而不是从一开始就防止错误。

由于vl catch all apply函数采用与apply函数相同的参数，因此每次都会出错。使用上述代码，您将所选点（或nil）作为参数列表传递，这相当于：

copy

(apply 'cadr '(1 2 3)) == (cadr 1 2 3)

这将出错。

但是，请注意，cadr函数不需要vl catch all apply构造，因为

copy

Tharwat · 发表于 2022-7-6 09:44:11

这真是一个非常聪明的想法。

我可能在不久的将来使用它，希望你不要介意。我可以吗？

Qonfire · 发表于 2022-7-6 09:48:13

copy

谢谢你们。RenderMan我只需要添加1作为y比例。现在，通过拾取两点，Autocad为我绘制了一个剖面线管道。谢谢大家。请解释问题。我很乐意学习autolisp课程，但显然我不太喜欢。

pBe · 发表于 2022-7-6 09:52:29

很高兴你喜欢这个想法，我把编码优雅的一面留给你。。。。工具箱的另一个例程

谢谢你的信息，李，我会试试的。。。。

pBe · 发表于 2022-7-6 09:53:31

当然你可以。。。我一点也不介意。。

干杯

Tharwat · 发表于 2022-7-6 09:57:49

谢谢你，伙计。

Lee Mac · 发表于 2022-7-6 10:02:14

和功能：

http://www.cadtutor.net/forum/showthread.php?61672-块属性&p=419102&viewfull=1#post419102

initget：请参阅initget上的VLIDE帮助文档，查找位代码32。

_non=\u none=忽略下一点的所有OSNAP。

Qonfire · 发表于 2022-7-6 10:03:33

谢谢你抽出时间

[编程交流] 插入块并缩放

发表回复

精选推荐