陈老师，向您请教！

linear

陈老师， 我做到这步就做不下去了，向您请教。运行时，几个command命令之间，不连贯；在获取剖面线那一步，我用了repeat，但不知为什么运行时总是说

<Selection set: 30>
0
; error: bad argument type: consp <Entity name: 4007a408> 另外，您有办法将得到的新长度平分给剖面线的两个端点，再将点联成线，成为新的边界曲线吗？非常感谢！ (Defun bl (l ll)
(vl-load-com)
(setq a (getpoint "\n internal point:"))
(setq p (getpoint "\n base point:"))
(command "-boundary" a "")
(command "move" "l" "" p)
(command "color" 9)
(command "hatch" "u" 0 0.1 "n")
(command "explode" "L" "")
mission is get the lengh of lines,bring into nonlinear function.
(vl-load-com)
(setq ss (ssget "x" '((62 . 9))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq ens (vlax-Ename->Vla-Object (car ent)))
(setq l (vlax-curve-getdistatparam ens
(vlax-curve-getendparam ens )))

(alert (strcat "Length = " (rtos l)))
(setq ll (+ (EXPT l 3.0) l 1.0))
(entdel ent)
(setq i (1+ i))
) 从这步以下，还没检查。



(set dx(/(l'-l) 2)) (setq pt1x (cdr (assoc 10 l)))
(setq pt1y (cdr (assoc 20 l)))
(setq pt2x (cdr (assoc 11 l)))
(setq pt2y (cdr (assoc 21 l)))

(set ncl(list (- pt1x dx)))
(set ncr(list (+ pt2x dx)));change the x coordinates of start and end points,but how to put back to points? )

陈伯雄

您最好说说您的原始条件和要达到的目标，这才好讨论...

linear

一个物体已给，对它上面的一个面进行放大，我以立方体为例，其实希望它也能对不规则面也能操作，


在x方向上，不同的长度，放大比例不同，新的长度与原长有个一元二次方程关系，以这图为例。


        先获取轮廓，剖面线，逐个获取，求长，平分新长度与旧长度差值给轮廓剖面线两端点，得新轮廓线。


谢谢

陈伯雄

这样的问题似乎不必编程。


对于三维软件（例如Inventor)来说，这是放样特征的基本功能。

linear

它可以进行不等比例放大吗？就是不同的长度放大比例不同？

陈伯雄

因为Inventor是参数化设计软件，可以用表达式驱动轮廓，应当能完成的。