简单r上的帮助和建议

Grower · 发表于 2022-7-6 06:43:47

亲爱的，先生们

我是LISP的初学者，所以请理解一些愚蠢的问题。

我试着写一个例程，可以做一些事情，比如面积证明。
基本思想是用户在屏幕上拾取点（setq ptn（getpoint“\n选择第一个点：”），
一种场景中的点数为4[矩形]，另一种场景中的点数为3[三角形]
按下enter键后，例程必须识别4或3个点，并继续绘制Pline（命令“Pline”ptn+ptn+1“c”）
然后存储距离点（setq dist1（距离ptn））并放置文本距离1、距离2
在模型空间中用户需要的位置创建表格。现在我有了“a”和“b”元素，用于计算矩形P=a*b的面积
如果有必要，我可以张贴一些图纸，但我想你知道我该做什么了。那么我的方法是正确的还是完全错了。
正如我所说，我是一个彻头彻尾的乞丐，任何帮助如何写这样的例行将不胜感激。
提前感谢！！

BIGAL · 发表于 2022-7-6 07:17:13

简单的一点是，如果使用plines，则可以通过VL检索面积

copy

; draw pline then do this must be done after creating pline as it selects the last object created.
(setq area (vlax-get-property  (vlax-ename->vla-object (entlast)) 'Area))

如果使用（setq ptn（getpoint oldpt“\n选择下一个点：”）将old point设置为=最后一个点，则屏幕上将出现一条拖拽线。

使用列表，你们可以有任意多个点，然后通过列表两次一次绘制pline第二次写文字标签。
你需要一段时间来检查你在屏幕上选择了一个点

copy


(setq pt (list 0 0)) ; need non nil to start
(while (/= pt nil)
(setq pt (getpoint "\nPick a point press enter to finish"))
(setq ptlist (cons pt ptlist))
)
(setq Y 0)
(setq num (length ptlist))
(repeat num
(princ (nth Y ptlist))
(setq Y (+ Y 1))
)

Grower · 发表于 2022-7-6 07:56:16

Tnx BigAl，我会试试的

[编程交流] 简单r上的帮助和建议

发表回复

精选推荐