调试帮助：vla put layer

samifox · 发表于 2022-7-6 06:42:46

你好

我不明白这个代码有什么问题

我设置了一个变量：
（setq ent（car（entsel）））

比我打电话
（PUTLAY ent）

它叫这个：

; 错误：功能错误：#

谢谢
谢伊

prakashreddy · 发表于 2022-7-6 06:56:46

（数据输入/秒）
（setq s（vlax ename->vla object ent））
（vla put layer s“xr”）
)

像这样使用

samifox · 发表于 2022-7-6 07:07:58

代码不一样吗？

pBe · 发表于 2022-7-6 07:27:12

仍然需要确保该层存在：

copy

(setq ent (car (entsel)))
(putlayer ent "xr")

copy

(defun PUTLAYER (ent [color="blue"]lay[/color])
 (if [color="blue"](tblsearch "LAYER" lay)[/color]
           (vla-put-layer (vlax-ename->vla-object ent) lay )
           (princ (strcat "\nLayer "" lay "" not found") ))
 (princ)
 )

或者在飞行中创建图层

copy

HTH公司

Lee Mac · 发表于 2022-7-6 07:40:08

..........

pBe · 发表于 2022-7-6 07:50:59

（vla put layer（s“xr”））被评估为一个函数，因此消息

; 错误：功能错误：#

HTH公司

[编程交流] 调试帮助：vla put layer

发表回复

精选推荐