社区 › Auto Lisp › 调试帮助：vla put layer

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

调试帮助：vla put layer

你好
 
我不明白这个代码有什么问题
 
我设置了一个变量：
（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

 
仍然需要确保该层存在：
 
(setq ent (car (entsel)))
(putlayer ent "xr")
 
(defun PUTLAYER (ent lay)
(if (tblsearch "LAYER" lay)
           (vla-put-layer (vlax-ename->vla-object ent) lay )
           (princ (strcat "\nLayer \"" lay "\" not found") ))
(princ)
)
 
或者在飞行中创建图层
 
3
 
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