用Net这样扩展的Lisp函数你是否喜欢

eachy

一个函数完成下面内容

1 获取属性

命令: (minvoke (entlast) "get_startpoint")
(1336.67 1140.12 0.0)

命令: (minvoke (entlast) "get_length")
562.999

命令:
命令: (minvoke (entlast) "get_ecs")
((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

命令: (minvoke (entlast) "get_bounds")
((1336.67 1140.12 0.0) (1336.67 1140.12 0.0))

2 查询支持的方法

命令: (minvoke (entlast))

get_StartPoint() , ReturnParameter is Point3d
set_StartPoint(Point3d) , ReturnParameter is Void
get_EndPoint() , ReturnParameter is Point3d
set_EndPoint(Point3d) , ReturnParameter is Void
get_Thickness() , ReturnParameter is Double
set_Thickness(Double) , ReturnParameter is Void
get_Normal() , ReturnParameter is Vector3d
set_Normal(Vector3d) , ReturnParameter is Void

。。。。。。

3 设置

(minvoke (entlast) "set_startpoint" (getpoint))

(minvoke (entlast) "GetSplitCurves" 0.1 0.2 0.3 0.4)

/db_自贡黄明儒_

喜是喜欢，桌子这么改来改去，如何跟上它的步伐？{:soso_e109:}

csharp

/db_自贡黄明儒_ 发表于 2015-1-13 12:06
喜是喜欢，桌子这么改来改去，如何跟上它的步伐？

Net虽然比不过ARX，但适应能力强，Invoke是系统提供的方法，Autodesk提供啥就有啥

kkt123

喜是喜欢，桌子这么改来改去
:loveliness: