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

为什么'；这个口齿不清

有人知道为什么这个例程不能缩放到图形中矩形的范围吗？
 
请参阅随附的lisp和DWG。
 
它是（*应该是*）一个非常简单的例程，调用另一个例程（也插入）。
 
（头像！！！）
 
干杯
H
测验lsp
测验图纸

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

你好
 
也许问题是c:zo
 
zo在我的版本中是一个预定义的缩放
 
(c:zo ent "")&
 
(defun c:zo (/ lst)

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

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

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

函数“c:zo”不需要参数，但是，您试图传递两个参数（ent&“”），很可能导致“参数过多”错误。
 
请尝试以下（未测试）调用函数：
 
(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先生
页: [1]
查看完整版本: 为什么'；这个Lisp程序