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

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

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

功能如下:

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

高级伸手党

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

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

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

总结:懒得动脑

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




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

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

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

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

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

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

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

哈哈...你最逗

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

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

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

mapcar嵌套 mapcar

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

搜”顶点画圆"

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

本帖最后由 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:03

高手如去！

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

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

手机码LISP???
你这是有多敬业呀
赞一个
页: [1]
查看完整版本: 求几行"简单"的代码 (点进去你可能会会心一笑)