请问如何用visual lisp实现loft(放样)的功能？

etoxp

不想用(command "loft" .....的方式，谢谢！！！！

loft是cad2007以后命令。
我想用来做简单的三维的地形。思路：将等高线进行三角划分，用每个小三角形生成顶面按一定方向、角度倾斜的三棱柱，最后把生成的所有三棱柱union。各位有没有更好的实现方式？我知道civil 3d可以做三维地形，但也想试试在cad中生成的方法。

自贡黄明儒

loft是哪个版本开始才有的命令，楼主是不是先给大家介绍一下用法、作用、使用的妙处？

菡萏

You can use ActiveX to query and edit LoftedSurface entities in AutoCAD drawings. You cannot create a LoftedSurface object with ActiveX. A lofted surface is created in AutoCAD by drawing a solid or surface through a set of two or more cross-section curves. The cross sections define the profile (shape) of the resulting solid or surface. Cross sections (generally, curves or lines) can be open (for example, an arc) or closed (for example, a circle).

鱼与熊掌

2. (defun c:tt ()
   
3.   (setq ss (ssget))
   
4.   (command "loft"
   
5.            (ssname ss 0)
   
6.            (ssname ss 1)
   
7.            ""
   
8.            "c"
   
9.   )
   
10. )

(defun c:tt ()<br />   (setq ss (ssget))<br />   (command "loft"<br />            (ssname ss 0)<br />            (ssname ss 1)<br />            ""<br />            "c"<br />   )<br /> )

etoxp

鱼与熊掌 发表于 2015-7-3 14:32

谢谢，可不可以不用command来实现呢？用vla-.....函数，不知道有没有这样的函数