向大家请教，轮廓的问题

linear · 发表于 2004-2-16 13:28:00

向大家请教。运行时，几个command命令之间，不连贯；在获取剖面线那一步，我用了repeat，但不知为什么运行时总是说

0
; error: bad argument type: consp
另外，您有办法将得到的新长度平分给剖面线的两个端点，再将点联成线，成为新的边界曲线吗？非常感谢！
这个程序是先获得轮廓，再画剖面线，然后逐个提取剖面线，求长，再平分给两端坐标，连起来，得新轮廓。

登录/注册后可看大图

(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?
)

meflying · 发表于 2004-2-16 13:39:00

command后面的参数要根据某个不同命令的不同输入来进行输入。不能想输入什么就输入什么，如果你的-boundary，输入A后，后面还有很多参数需要输入，但你只给了一个回车，那你用这个命令干吗用呢？
第二个问题，car是操作表的，比如，(car '(10 20 30))返回10，而你的ent是对象名，用(car ent)做什么？
后面的就看不懂了，将得到的新长度是什么东西？从哪儿得到？你也不给一个测试图，或者示意图，给的程序不全，参数也没有一个说明，输入的值也没有说明，所以你的问题无从分析

linear · 发表于 2004-2-17 02:19:00

单个运行command命令的时候，都可以实现取轮廓线和画剖面的要求，就是不知道它们为什么不能连续执行。-boundary是只要三步就可以了呀，第一步输入-boundary命令行，再获取一个内部点，再右键确定。
谢谢斑竹给我指出“car"这个错误，是不是去掉就可以了呢？
前几个command 命令实现---先获得轮廓，再画剖面线，后一个repeat 实现---然后逐个提取剖面线，求长
下一步是:再平分给两端坐标，连起来，得新轮廓，或者如果有直接更改原坐标，生成轮廓的就更好，免掉联成线这一步。这一步，你们有什么好建议吗？
(setq ll (+ (EXPT l 3.0) l 1.0)) 中的ll 是新的长度，其中变量l是上一步repeat中得到的旧的长度。
好像没有用到参数输入阿，对一个物体上的一个面进行操作。

linear · 发表于 2004-2-17 02:21:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:did3smiuaky.dwg
下载次数:0 文件大小:27.36 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

linear · 发表于 2004-2-17 02:26:00

paxpcvvydz2.jpg

无痕 · 发表于 2004-2-17 04:05:00

还是不明白你要做什么，你好像都是在说过程

linear · 发表于 2004-2-17 06:40:00

获取物体上的一个面，它可以是不规则的面，此处为了方便就用了个立方体的平面为例。
假设一水平截线与面的轮廓相交，得两点。两点之间的距离被代入一个方程放大。
如果它是不规则的面，两点之间的距离是不同的，被放大的尺寸/原尺寸，你会发现每一行它们的比例是不同的，这也是为什么不能用SCALE命令来做。
最后就是获取放大了得长度两端的端点，再将所有新得到的点联成新的轮廓线。
am I clear now??