基于位置获取Z值

ksperopoulos · 发表于 2022-7-6 00:28:34

当我这样做的时候，我不断地得到一个糟糕的参数错误。我做错了什么？

(defun c:mepelev ( / vlaobj)
(vl-load-com)
(setq vlaobj (vlax-ename->vla-object (car (entsel))))
(vlax-get-property vlaobj 'points)
(command "mleader" pause pause vlaobj)
(princ)
)

pBe · 发表于 2022-7-6 00:31:35

您选择的实体类型是什么，
我对这件事不知所措

copy

(vlax-get-property vlaobj 'points)

什么vla对象具有“点”属性？

为了回答您的问题，您没有提供有效的值作为参数。在这种情况下，VLA-OBJECT

假设此行返回一个列表

copy

(vlax-get-property vlaobj 'points)

然后，只要将其赋给变量名或直接赋给命令表达式，就可以将其用作有效参数

copy

[color="blue"](setq value [/color](vlax-get vlaobj 'points)[color="blue"])[/color]
(command "mleader" pause pause [color="blue"]value[/color])

或

copy

(command "mleader" pause pause  [color="blue"](vlax-get vlaobj 'points)[/color])

ksperopoulos · 发表于 2022-7-6 00:37:22

图形中的对象是来自在AutoCad上运行的垂直产品（称为制造CADmep）的管道。

我很抱歉，因为我不能百分之百确定我在寻找什么“价值”。你是说如果我用vlaobj替换vla对象，它可能会工作吗？

hmsilva · 发表于 2022-7-6 00:40:22

Kyle，
作为YMG3岗位，

copy

(vlax-dump-object (vlax-ename->vla-object (car (entsel))))

这会带来什么回报？
复制该代码并粘贴到您的命令行，选择您的一个管道，然后按F2，复制/粘贴结果，这样我们就可以看到可用的属性。。。

亨里克

ksperopoulos · 发表于 2022-7-6 00:41:14

这是我得到的

Bhull1985 · 发表于 2022-7-6 00:44:18

我的2美分。。。
除非有问题的块具有静态名称，否则您需要设计一种能够选择正确块的方法。
少点击当然很好，但有时一次点击比几百行代码（夸张）要好，但重点仍然是。
（get）函数、块名、filedia，我相信还有一些方法可以选择程序中的项目。
使用lisp的自动化部分，自动并通过0次单击绘制包含所需信息的多重引线。简单地选择一个区块对于工作场所来说并不太可怕，因为一个程序因为获得了选择而做了很多事情。。。。

hmsilva · 发表于 2022-7-6 00:47:33

Kyle，
正如pBe所说，

copy


(defun c:mepelev ( / vlaobj)
(vl-load-com)
(setq vlaobj (vlax-ename->vla-object (car (entsel))))
(command "mleader" pause pause  (vlax-get vlaobj 'points))
(princ)
)

亨里克