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

Lisp中的尺寸标注

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

; 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

在命令行中尝试此操作。。。。。
 
(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

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

(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

随时欢迎你。。
 
当做
 
塔瓦特
页: [1]
查看完整版本: Lisp中的尺寸标注