为什么没有我的功能？

hamidciv · 发表于 2022-7-5 22:23:20

嗨，亲爱的朋友们
：（请帮助我解决easy code中的问题：
（defun c:test4（）
（defun getpoly（）
（命令“area”“object”ent）
（getvar“周长”）
)
（setq ent（car（entsel）））
)

mostafa badran · 发表于 2022-7-5 22:32:20

copy

(defun c:test4 ()
 (setq ent (car (entsel)))
 (command "area" "object" ent)
 (getvar "perimeter")
)

hamidciv · 发表于 2022-7-5 22:38:48

尊敬的mostafa：

我的意思是这不是，我想在一个代码中定义多个函数并使用它们，类似于JefferyPSanders为addlength编写的，
类似这样：
（定义c:test4（）
; ;;;--- 函数获取圆弧图元的长度
（defun getArc（英语）
（命令“lengthen”en“”）
（getvar“周长”）
)

;;;--- 函数获取直线图元的长度
（英语）
（setq登记（entget en））
（距离（cdr（assoc 10 enlist））（cdr（assoc 11 enlist）））
)

;;;--- 函数获取多边形、圆、样条曲线或椭圆的长度
（defun getPoly（英语）
（命令“area”“Object”en）
（getvar“周长”）
)
.
.
.
.
.
)

mostafa badran · 发表于 2022-7-5 22:42:09

也许这有帮助。

copy

[color=red](getPoly (car (entsel)))[/color]
(defun getPoly(en)
(command "area" "Object" en)
(getvar "perimeter")
)

marko_ribar · 发表于 2022-7-5 22:46:38

莫斯塔法，红线一定是最后一条。。。加载函数的顺序也很重要。。。

M、 R。

hamidciv · 发表于 2022-7-5 22:55:48

：）谢谢亲爱的mostafa&marko
我的问题解决了。

asos2000 · 发表于 2022-7-5 23:01:25

阅读此
http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557
希望给出答案

hamidciv · 发表于 2022-7-5 23:04:01

谢谢asos的帮助。

asos2000 · 发表于 2022-7-5 23:08:30

非常欢迎你

mostafa badran · 发表于 2022-7-5 23:16:22

哎呀，谢谢马科，你说得对。必须首先加载defun。

[编程交流] 为什么没有我的功能？

发表回复

精选推荐