请问怎样以最短的距离连接分布在长方形上的6个点!

meflying · 发表于 2004-10-9 17:06:00

你把ptLst 换成(setq ptLst (list pt1 pt2 pt3 pt4 pt5 pt6));pt1-pt6就是你的6个点把这句去掉 (repeat 6
(setq ptLst (append ptLst (list (getpoint "\nPick a point:"))))
)

huayingjie · 发表于 2004-10-9 17:20:00

我试着运行了一下出现以下错误提示：错误: 无法获取 ObjectID，不知道这是怎么回事!

meflying · 发表于 2004-10-9 17:31:00

你是什么版本的CAD?不应该出现这样的错误啊...

你把改过的你的程序贴出来看看

huayingjie · 发表于 2004-10-9 18:27:00

我的cad是2002，以下是我改过的程序，其实这程序我有点看不太懂! (vl-load-com)
(defun c:test( / ent ptLst i n dist l lMax)
(setq ent (car (entsel)))
(setq ptLst (list pt1 pt2 pt3 pt4 pt5 pt6))
(setq ptLst (mapcar '(lambda(x) (list (vlax-curve-getDistAtPoint ent x) x)) ptLst))
(setq ptLst (vl-sort ptLst '(lambda (x1 x2) (< (car x1) (car x2)))))
(setq i 1)
(repeat 5
(setq dist (append dist (list (- (car (nth i ptLst)) (car (nth (1- i) ptLst))))))
(setq i (1+ i))
)
(setq lMax (apply 'max dist))

(setq l (+ (caar ptLst) (- (vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent)) (car (last ptLst)))))
(if (> lMax l)
(progn
(setq n (vl-position lMax dist))
(repeat (1+ n)
(setq ptLst (reverse (cons (car ptLst) (reverse (cdr ptLst)))))
)
)
)
(command "_.pline")
(mapcar 'command (mapcar 'cadr ptLst))
(command "")
)

meflying · 发表于 2004-10-10 08:17:00

pt1-pt6要赋值才可以使用,

你的错误是没有选择对象,我程序开始会要你选择一个对象,你却没选择,当然出错了.

这个对象是你的已知4个角点组成的PLINE的矩形对象

huayingjie · 发表于 2004-10-11 12:57:00

PLINE的矩形对象是用rectang 命令绘制的行不行啊!还得必须用pline命令绘制啊？

meflying · 发表于 2004-10-11 13:27:00

可以

huayingjie · 发表于 2004-10-11 15:17:00

我刚才运行了一下，看到了在空间的连线，但我的意思是这些线的连接不能走中间，只能延着长方形的边走。麻烦看看有没有办法。谢谢!

meflying · 发表于 2004-10-11 15:27:00

看看我9楼的那句话......

huayingjie · 发表于 2004-10-11 16:05:00

难道真是没有办法可想吗!我把我用你程序连的CAD图发到你信箱去了，麻烦你再看一下吧。!

账号		自动登录	找回密码
密码			注册