为什么没有我的功能？
嗨，亲爱的朋友们：（请帮助我解决easy code中的问题：
（defun c:test4（）
（defun getpoly（）
（命令“area”“object”ent）
（getvar“周长”）
)
（setq ent（car（entsel）））
) (defun c:test4 ()
(setq ent (car (entsel)))
(command "area" "object" ent)
(getvar "perimeter")
) 尊敬的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“周长”）
)
.
.
.
.
.
) 也许这有帮助。
(getPoly (car (entsel)))
(defun getPoly(en)
(command "area" "Object" en)
(getvar "perimeter")
) 莫斯塔法，红线一定是最后一条。。。加载函数的顺序也很重要。。。
M、 R。 ：）谢谢亲爱的mostafa&marko
我的问题解决了。 阅读此
http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557
希望给出答案 谢谢asos的帮助。 非常欢迎你 哎呀，谢谢马科，你说得对。必须首先加载defun。
页:
[1]
2