我不懂lisp语言，但是现在有个lsp脚本需要用，下面是代码，我该怎么执行这个脚本？？ 20
(defuntt()(setqacmCol(vla-getinterfaceobject(vlax-get-acad-object)(strcat"AutoCAD.AcC...
(defun tt()
(setq acmCol (vla-getinterfaceobject
(vlax-get-acad-object) (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(cond
((= (vla-get-name x) "1") (vla-setrgb acmCol 0 0 255) (vla-put-TrueColor x acmCol))
((= (vla-get-name x) "2") (vla-setrgb acmCol 255 0 0) (vla-put-TrueColor x acmCol))
((= (vla-get-name x) "3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
)
)
)
还有就是，如何用dbx方法对文件夹内所有文件操作？
怎么一个回答没有？？有懂CAD编程的吗？ 展开
(setq acmCol (vla-getinterfaceobject
(vlax-get-acad-object) (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(cond
((= (vla-get-name x) "1") (vla-setrgb acmCol 0 0 255) (vla-put-TrueColor x acmCol))
((= (vla-get-name x) "2") (vla-setrgb acmCol 255 0 0) (vla-put-TrueColor x acmCol))
((= (vla-get-name x) "3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
)
)
)
还有就是，如何用dbx方法对文件夹内所有文件操作？
怎么一个回答没有？？有懂CAD编程的吗？ 展开
3个回答
展开全部
先用在命令行输入：AP，加载这段程序，然后就可以在命令行通过输入(tt)使用了，注意不了漏了括号，如果不想加括号的话，请将程序内容中的(defun tt() 改写成(defun C:tt()
追问
谢谢了啊，我再请问一下，如何用dbx方法对文件夹内所有文件操作？
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
微测检测5.10
2023-05-10 广告
您好！建议咨 深圳市微测检测有限公司，已建立起十余个专业实验室，企业通过微测检测就可以获得一站式的测试与认 证解决方案；(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量），认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
