方法

(car (entsel)) · 发表于 2022-7-5 17:12:00

你好，我是新来的。
我对visual lisp知之甚少，我想问一下方法：
; 支持的方法：
; 添加顶点（2）
; ArrayPolar（3）
; 阵列直角（6）
; 复制（）
; 删除（）
; 分解（）
; GetBoundingBox（2）
; GetBulge（1）
; GetExtensionDictionary（）
; GetWidth（3）
; 获取扩展数据（3）
; 突出显示（1）
; 与（2）相交
; 镜子（2）
; 镜像3D（3）
; 移动（2）
; 偏移（1）
; 旋转（2）
; 旋转3d（3）
; 标度（2）
; SetBulge（2）
; 设置宽度（3）
; 设置扩展数据（2）
; TransformBy（1）
; 更新（）
每个“方法”背后的这些数字意味着什么？如何使用它们？
我试过（vla put Offset o（getdist）），但不起作用。

marko_ribar · 发表于 2022-7-5 17:19:21

数字表示每个方法（没有主VLA-OBJECT参数）工作所需的参数数。。。
对于ex。
（vla复制vla-OBJECT）
（vla addvertex vla-OBJECT parameterofsegment（vlax-3d-point pt））
（vla setbulge vla-OBJECT parameterofsegment bulgevalue）
...

是的：vla偏移：
（vla offset vla-OBJECT值（正实数或负实数）-“not（getdist）”）

(car (entsel)) · 发表于 2022-7-5 17:24:17

好了，现在我明白了。但是你怎么知道每个方法都需要什么类型的参数呢？
vla移动需要vla对象和2点还是1点和实数？

Tharwat · 发表于 2022-7-5 17:27:34

将此链接添加书签

marko_ribar · 发表于 2022-7-5 17:32:07

vla移动需要2个点（基点）和（目标点），当然作为变体：

（vla移动vla对象（vlax-3d点p1）（vlax-3d点p2））

你必须进行实验——我也没有这方面的参考资料，但有些东西是符合逻辑的，比如命令移动（所以它与（vla MOVE）相同）

(car (entsel)) · 发表于 2022-7-5 17:34:24

这是一个非常好的网站，Tharwat先生，谢谢你分享。
里巴尔先生谢谢你帮助我，现在我将学习如何处理这些方法。

Tharwat · 发表于 2022-7-5 17:38:05

欢迎您-快乐编码。

BIGAL · 发表于 2022-7-5 17:42:18

（car（entsel））只需注意vla add，它们需要在其中添加空间，但基本上与命令行相同。
来自Afralisp的示例

copy


[b];Get the ModelSpace collection of the active document,;select center point and radius: [/b]
[b](setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))[/b]
[b](setq mspace (vla-get-modelspace thisdrawing))[/b]
[b](setq pt1 (vlax-3d-point (getpoint "\nCenter point: ")))[/b]
[b](setq rad (getreal "\nRadius: "))[/b]
[b][color=#ff0000](vla-AddCircle mspace pt1 rad)[/color] [/b]

(car (entsel)) · 发表于 2022-7-5 17:47:08

谢谢你提到比格尔先生，
但这带来了我的另一个问题：有没有办法自动确定活动空间，这样vla Add方法就不会引起任何问题？

marko_ribar · 发表于 2022-7-5 17:52:09

copy


(vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))

如果mspace处于活动状态，则应返回mspace VLA-OBJECT。。。

[编程交流] 方法

发表回复

精选推荐