男模 发表于 2008-12-18 22:50:00

求助！！如何将等分过的点自动用SPLINE串自线一条线

<p>求助！！如何将等分过的点自动用SPLINE串自线一条线</p><p></p>

ZZXXQQ 发表于 2008-12-19 19:41:00


;等分点连SPLINE线(前提是刚用过measure或divide命令 明经 ZZXXQQ 2008.12.19
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "P" '((0 . "POINT")))) (progn
(setq i 1)
(setq pt (cdr(assoc 10 (entget(ssname ss 0)))))
(command ".spline" pt)
(repeat (1- (sslength ss))
   (setq pt (cdr(assoc 10 (entget(ssname ss i)))) i (1+ i))
   (command pt)
)
(command "" "" "")
))
(setvar "CMDECHO" 1)
(princ)
)

男模 发表于 2008-12-19 22:18:00

<p>谢谢大大！！！</p>

start4444 发表于 2010-11-5 10:20:00

看看··

gzbccy 发表于 2010-11-5 16:49:00

等分过的点为什么还要用spline线连接起来？有点不解

清风明月名字 发表于 2012-5-7 11:20:45

谢谢楼主，我正需要 这些代码
页: [1]
查看完整版本: 求助！！如何将等分过的点自动用SPLINE串自线一条线