Lisp中的尺寸标注

ready2goriding · 发表于 2022-7-6 10:36:59

这让我疯狂（呃？）！我有一个很好的，长，Lisp与几乎每一个CAD命令在它。这基本上是一个学习练习，以熟悉Lisp中的命令应用程序。我到达最后一个部分，然后。。。我试过的都没用。我只是想替换一些先前删除的DIM。我的线不是p线。本节代码如下。谁能给我一个提示吗？我发现的讨论是关于p线的，或者完全超出了我的新手Lisper的头脑！谢谢你的建议！
道格

copy

 
; add 3 new dimensions
(setq dim1 (getpoint "\nFirst dim. point :"))
(setq dim2 (getpoint "\nNext dim. point :"))
(command "._dimlinear" "_non" dim1 "_non" dim2) 
(alert "yes?")
(princ)
) ;end of program

Tharwat · 发表于 2022-7-6 10:52:09

必须指定尺寸标注的终点。文本

当做

塔瓦特

Tharwat · 发表于 2022-7-6 10:59:06

在命令行中尝试此操作。。。。。

copy

(command "_.dimlinear" '(0 0 0) '(100 0 0) '(0 10 0))

ready2goriding · 发表于 2022-7-6 11:08:04

谢谢你的帮助，但我一点击“dim2”，它就跳转到我的提醒消息。我只画2D-我应该调整一下吗？我知道一定有一些方法来对齐文本和行，但似乎就是找不到。。。
再次感谢你，tho！

Tharwat · 发表于 2022-7-6 11:19:04

对这意味着你没有尝试过。。。所以完全接受它。

copy


(setq dim1 (getpoint "\nFirst dim. point :"))
(setq dim2 (getpoint "\nNext dim. point :"))
(setq dim3 (getpoint "\n dim. Text location :"))
(command "._dimlinear" "_non" dim1 "_non" dim2 "_non" dim3 )

ready2goriding · 发表于 2022-7-6 11:28:05

现在它就像一个魔咒，我知道我哪里出错了——这让它变得更好！我没有添加“dim3”行，只是用坐标替换了命令行。新手程序员犯的新手错误。
非常感谢！我现在要去了解更多！

道格

Tharwat · 发表于 2022-7-6 11:39:53

随时欢迎你。。

当做

塔瓦特

[编程交流] Lisp中的尺寸标注

发表回复

精选推荐