乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 9|回复: 8

[编程交流] Acad 2009:转移变量i

[复制链接]
ajs

16

主题

36

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 14:28:29 | 显示全部楼层 |阅读模式
你好,
 
我们的商店正在运行传统的Intellicad和Autocad,在不同的工作站上有不同的活动,因此有时我在编写lisp编程时必须小心交叉兼容性问题。
 
不过,这一特殊情况是我自己使用的,今年早些时候,我购买了一个座位。
 
 
 
以下是我的情况:
 
 
 
我有一个选择集来识别具有一定高度的文本:
 
(setq FE_01(ssget“_X”'((0。“Text”)(40.0.125)))
 
我一直试图做的是找出如何为选择集的文本高度部分设置一个变量值,但没有成功。
 
例如,如果我创建数字变量:(setq AAA 0.125)
 
我不能在选择集中替换该变量,即,
 
 
(setq FE_01(ssget“_X”'((0。“Text”)(40.AAA)))
 
如果我尝试,我会收到一条错误的选择集消息。
 
 
然后我尝试了SUBST,但没有成功:
 
 
(setq FE_01(ssget“_X”'((0。“Text”)(SUBST‘AAA’0.125’(40.0.125)Ή)Ή)
 
 
我原本希望SUBST函数将AAA变量转移到虚线对中,但没有成功。
 
(我知道我可能把SUBST的语法搞糟了)
 
 
我做了一个搜索,但似乎找不到解决这个特定问题的方法。
 
有一些关于AfraLisp的信息,我觉得我已经接近理解了,但我无法完全实现。
 
虽然我目前的编程技能很弱,但我不得不承认Lisp有一些非常吸引人的地方,我喜欢学习它。我希望它在其他应用中更常见
 
 
 
如果您对我目前的dilema有任何建议,我们将不胜感激。
 
非常感谢。
 
AJS公司
回复

使用道具 举报

5

主题

194

帖子

193

银币

初来乍到

Rank: 1

铜币
24
发表于 2022-7-6 14:42:55 | 显示全部楼层
嘿AJS
 
问题在于用于选择集过滤器的引号
 
(setq FE_01(ssget“_X”'((0。“Text”)(40.0.125)))
 
要传递变量值,需要使用list
 
(setq FE_01(ssget“_X”(列表(cons 0“文本”)(cons 40 AAA)))
 
有关它的更多信息,请参阅以下线程
 
http://www.cadtutor.net/forum/showthread.php?t=36514
 
当做
 
杰米
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:46:37 | 显示全部楼层
当您为SSGET表达式创建过滤器列表时,有许多方法可以构造列表,理解其中的差异至关重要。
 
首先请注意,列表可以通过以下方式创建:
 
  1. (list 1 2 3)

 
两者代表同一事物。然而,口译员将以两种不同的方式解释这两种表达。
 
对于第一个参数,list函数告诉解释器评估传递给它的每个参数,并返回一个包含所有传递参数的列表。
 
然而,在第二种排列中,引号(或撇号)将告诉口译员不要计算撇号后面语句中的任何表达式。
 
这就是为什么在mapcar中使用撇号:
 
返回:
在这种情况下,撇号告诉解释器,不计算函数+,而是作为参数传递给mapcar函数。
 
那么,回到你手头的问题上来。
 
创建包含“已知”元素的过滤器列表时,例如:
 
不计算提供的列表,而只是将其作为参数传递给ssget函数(由于撇号)。因此,不会评估列表中的任何变量。
 
因此,为了计算变量,我们需要为解释器提供函数,告诉它计算出参数:
 
现在,如果我们的变量持有正确格式的值(在本例中为实数),则将正确构造和评估过滤器列表。
 
或者,您可以组合这些选项:
 
  1. 6
作为“(0。“TEXT”)部分仅被视为列表参数,并传递给列表函数。
 
但是,这将不起作用:
 
由于撇号的存在,将不评估cons函数。
 
如果你对我发布的任何信息有任何疑问,尽管问。
 
干杯
 
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 14:57:53 | 显示全部楼层
Jammie抢先一步
回复

使用道具 举报

5

主题

194

帖子

193

银币

初来乍到

Rank: 1

铜币
24
发表于 2022-7-6 15:02:55 | 显示全部楼层
如果你真的想使用subst,那么类似的东西就行了
 
  1. 8

 
但在这种情况下,使用列表将是首选选项
回复

使用道具 举报

5

主题

194

帖子

193

银币

初来乍到

Rank: 1

铜币
24
发表于 2022-7-6 15:06:10 | 显示全部楼层
 
不过你的解释要彻底得多,干得好
回复

使用道具 举报

ajs

16

主题

36

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 15:15:51 | 显示全部楼层
非常感谢你;我认为这是我目前所读的知识水平中信息量最大的帖子之一。当谈到“报价”的运作方式时,我总是感到困惑。这很有帮助。
 
当我和你们在一起的时候,有一件事我一直没能完全理解,那就是感叹号在显示变量值时是如何起作用的。
 
作为测试,如果我在屏幕上,在命令行输入,感叹号总是很有效,但当我在Lisp中的命令中使用它时,它被击中或错过了,我无法确定它为什么工作或不工作的原理的模式。感叹号是Lisp中具有一组规则的组成部分,还是为测试目的而创建的混合体?
 
再次感谢
 
AJS公司
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:21:45 | 显示全部楼层
我不会在LISP中使用感叹号,而是使用print,它应该完成相同的任务
回复

使用道具 举报

ajs

16

主题

36

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-6 15:33:25 | 显示全部楼层
再次感谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-5 00:25 , Processed in 0.405134 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表