简单lisp

au-s · 发表于 2022-7-6 17:08:14

你好

我是lisp新手，正在尝试制作一个可以在某些外部参照层上使用Frezz nd更改颜色的lisp。

这是代码，当然不起作用。。。我错过什么了吗？

(defun c:kflager ()
 (setq xref_klager (*|K*))
 (setq xref_fklager (4K*|K005,4K*|K301-0))
 (command ".layer" "C" 151 "xref_klager" "" "")
 (command ".layer" "F" "xref_fklager" "" "")
 (princ)
)
(princ)

Thanx提前！
顺致敬意，
/艺术：）

lpseifert · 发表于 2022-7-6 17:33:40

你不能像你尝试的那样对图层进行变量化
试试这个

copy


(defun c:kflager ()
(command ".layer" "c" "151" "*|K*" "")
(command ".layer" "f" "4k*|K005,4K*|K301-0" "")
(princ)
)

au-s · 发表于 2022-7-6 17:58:16

好的thanx。。。
如果我没记错的话，我想我几个月前用setq做到了。。。如果我找到了，我会把它贴在这里。。
Thanx公司

CAB · 发表于 2022-7-6 18:09:16

你很接近。

copy

(defun c:kflager (/ xref_klager xref_fklager)
 (setq xref_klager "*|K*")
 (setq xref_fklager "4K*|K005,4K*|K301-0")
 (command ".layer" "C" 151 xref_klager "" "")
 (command ".layer" "F" xref_fklager "" "")
 (princ)
)
(princ)

[编程交流] 简单lisp

发表回复

精选推荐