求几行"简单"的代码 (点进去你可能会会心一笑)

ysq101 · 发表于 2021-8-9 17:55

求几行"简单"的代码
因为丢下LISP实在太久了,都不想再捡起来了

功能如下:

在PL线的每个顶点各生成一个直径1的绿色小圆
就这样

高级伸手党

ssget PL线
提取顶点表
历遍各个顶点生成小圆 (不要使用COMMAND)

是不是很简单....哈哈...
对,你们没理解错,,我是说我说起来就很简单

PS:我打得了这么多字,几行代码还不早写出来了???

总结:懒得动脑

哈哈....大神们,到你们表演的时候了
看看谁的代码简洁

tryhi · 发表于 2021-8-13 09:23

本帖最后由 tryhi 于 2021-8-13 15:03 编辑

现在伸手都这么理直气壮了，http://bbs.mjtd.com/forum-35-1.html但凡谦虚一点可能都不至于没人回复

xj6019 · 发表于 2021-8-9 21:05

拾取-画圆-搞定：PS我的代码应该最短

ysq101 · 发表于 2021-8-12 19:55

xj6019 发表于 2021-8-9 21:05
拾取-画圆-搞定：PS我的代码应该最短

哈哈...你最逗

tigcat · 发表于 2021-8-12 23:44

foreach entmake (list (cons 10 pt)手机码的，楼主在自己加点就行，我比楼上的实诚多了，好歹写出了一个函数。ps论坛有现成的

mahuan1279 · 发表于 2021-8-12 23:48

mapcar 嵌套 mapcar

tigcat · 发表于 2021-8-12 23:48

搜”顶点画圆"

vitalgg · 发表于 2021-8-13 17:08

本帖最后由 vitalgg 于 2021-8-13 17:39 编辑

(mapcar '(lambda(x)(entity:putdxf(entity:make-circle x 0.5) 62 3))(curve:pline-3dpoints (car (entsel))))

运行环境 @lisp 安装： http://atlisp.cn/stable/(@).fas代码改成运行结果是绿的，演示没有绿。

mokson · 发表于 2021-8-14 08:16

高手如去！

ysq101 · 发表于 2021-8-14 20:17

tigcat 发表于 2021-8-12 23:44
foreach entmake (list (cons 10 pt)手机码的，楼主在自己加点就行，我比楼上的实诚多了，好歹写出了一个函 ...

手机码LISP???
你这是有多敬业呀
赞一个

账号		自动登录	找回密码
密码			注册

[提问] 求几行"简单"的代码 (点进去你可能会会心一笑)

评分

本帖子中包含更多资源