[LISP]小弟有难，请求各位大哥鼎力相助

zhongguola

各位大哥：

        小弟在处理二维图形时经常会遇到这样的问题。比如：二维图形中经常会出现部分三维图形（如：三维的线段、三维的pline、三维的圆弧等等），使得小弟在二维图形中标注边长、计算面积甚至捕捉都变得非常非常困难。

         小弟求助各位大哥能不能编制一个程序，把二维图形中的三维图形全部转换为二维图。

        小弟在此向各位大哥谢过了！！！

alin

Google一下flatten.lsp这个程序.

zhongguola

不行呀！

当遇到三维的样条曲线时就会出现这样的情况：

命令：FLATTEN

选择对象：

工作。妥当的

0物体（S）变平

1物体（S）不变平【1有非－零点底部点】

按输入到看非－零点无变化的物体...

按输入到UNHIGHLIGHT他们...

(没了）

 

alin

http://discussion.autodesk.com/thread.jspa?messageID=4193913

zhongguola

 

还是不行呀！

我在该网站下载了一下程序：

(defun c:FlattenSpline ( / ent vobj ctrlpts pt reslst )
(setq ent (car (entsel "\nSelect spline: ")))
(setq vobj (vlax-ename->vla-object ent))
(setq ctrlpts (vlax-get vobj 'ControlPoints))
;(print ctrlpts)
(repeat (/ (length ctrlpts) 3)
(setq pt (list (car ctrlpts) (cadr ctrlpts) 0.0))
(setq reslst (cons pt reslst))
(setq ctrlpts (cdddr ctrlpts))
)
(setq reslst (apply 'append reslst))
;(print reslst)
(vlax-put vobj 'ControlPoints reslst)
(princ)
)
当在命令行键入FlattenSpline时会出现一下情况：

Select spline: ; ´íÎó: no function definition: VLAX-ENAME->VLA-OBJECT

这是什么意思呀？该如何处理呢？

谢谢！

夜未眠

程序没有定义？？？！！你是不是没加载vlisp支持啊？

zhongguola

加载了

zhongguola

是不是该程序有问题呀？我是在加载VLISP支持后出现的以上问题的。

 

alin

Don't forget

(vl-load-com)

davesnw

把(vl-load-com) 加在程序前面