nemo 发表于 2022-7-6 17:30:43

3x3网格例程

我试着快速编写LISP例程,但什么也没想到——只是有很多错误和胡言乱语。我以前从未写过真正的脚本,所以当谈到LISP时,我会认为自己是一个极端的初学者。因为工作很忙,我没有时间去花和解决它。
 
基本上,我需要做的是取一个窗口区域,在该窗口中创建一个3x3网格。我需要间距均匀。。。即:x间距=x长度/3,y间距=y长度/3。(窗口区域可以是矩形,但不总是正方形)
 
理想情况下,我希望在每个正方形内放置一个小圆圈。最简单的方法是用一个圆创建一个正方形,然后对其进行阵列吗?我很无助对吧,哈哈。
 
有人能帮我吗?
 
我附上了一个例子

fixo 发表于 2022-7-6 18:07:48

看看它将如何为你工作
 
(定义C:rac(/cpt hgt leng pt1 pt2 pt3 rad ss)(setq leng(getdist“\n输入外轮廓的长度:”)hgt(getdist“\n输入外轮廓的高度:”)rad(/leng 60。)                          ;

nemo 发表于 2022-7-6 18:15:52

天哪,你是最棒的。
 
真不敢相信你这么快就做到了!那会花我几天时间!

fixo 发表于 2022-7-6 18:33:19

总是很乐意帮忙
干杯
 
~'J'~
页: [1]
查看完整版本: 3x3网格例程