为什么'；这个Lisp程序

mrharris78 · 发表于 2022-7-6 07:11:01

有人知道为什么这个例程不能缩放到图形中矩形的范围吗？

请参阅随附的lisp和DWG。

它是（*应该是*）一个非常简单的例程，调用另一个例程（也插入）。

（头像！！！）

干杯
H
测验lsp
测验图纸

KFW · 发表于 2022-7-6 07:33:19

你好

也许问题是c:zo

zo在我的版本中是一个预定义的缩放

(c:zo ent "")

&

copy

(defun c:zo (/ lst)

mrharris78 · 发表于 2022-7-6 07:35:38

当我独立运行它们时，它工作得很好，然而，当我发出一个命令时，它不会。。。。。。

Lee Mac · 发表于 2022-7-6 07:58:55

函数“c:zo”不需要参数，但是，您试图传递两个参数（ent&“”），很可能导致“参数过多”错误。

请尝试以下（未测试）调用函数：

copy

(defun c:test ( / ent tab )
   (setq tab (getvar 'ctab))
   (if (setq ent (entsel "\nSelect Entity to Zoom: "))
       (progn
           (command "_.ucs" "_OBject" ent)
           (if (zerop (getvar 'ucsfollow))
               (command "_.plan" "_Current")
           )
           (ZoomObject (list (vlax-ename->vla-object (car ent))))
           (command "_.ucs" "_Named" "_Save" tab "_.-view" "_Save" tab "_.pspace")
       )
   )
   (princ)
)

mrharris78 · 发表于 2022-7-6 08:10:55

谢谢李，

这奏效了。

我之前没有任何争论就尝试过它，它（以某种方式）起了作用，它只需要我试图克服的额外选择。这样做不会放大矩形的范围。。。。。

谢谢你的帮助/建议。

H

Lee Mac · 发表于 2022-7-6 08:14:06

不客气Harris先生

[编程交流] 为什么'；这个Lisp程序

发表回复

精选推荐