请高手帮忙编程--哪位大哥能帮帮忙吗?急呀!!!

kevinchan · 发表于 2005-4-12 17:52:00

本帖最后由作者于 2005-4-12 18:56:10 编辑

谁能帮忙用LSP编一个程序,就近似乱数排列的不规则圆点.圆点半径可以是一样大,圆与圆之间不能相交.
由疏到密的排列,最好可以用滑条的形式来调整疏密程度...

谢谢!愿意的话我会付酬劳的. 请大哥们能帮帮忙!

Kevin Chan
QQ:7428076
e-mail:byled@126.com

kevinchan · 发表于 2005-4-12 18:54:00

哪位大哥能帮帮忙吗?急呀!!!

alin · 发表于 2005-4-12 20:22:00

圆的半径有规定吗？可以无限小吗？

kevinchan · 发表于 2005-4-12 20:49:00

圆的大小是一样大的,根据用户输入.

kevinchan · 发表于 2005-4-12 21:20:00

DWG文件

ljpnb · 发表于 2005-4-12 22:34:00

思路不对，只出了这么个东东 (defun c:test ()
(setq p0 (getpoint "\n选择一个基准点:"))
(setvar "cmdecho" 0)
(command "circle" p0 0.15)
(setq ent (entlast))
(command "copy" ent "" "m" p0)
(setq i 1
p3 p0
k 9
)
(repeat 100
(setq p2 (list (car p3) (+ (cadr p3) i )))
(repeat 30
(setq nb (rtos (getvar "cputicks") 2 0)
l (strlen nb)
nb (substr nb k 1)
p1 (list (+ (car p2) (/ (atof nb) 3)) (cadr p2))
)
(command p1)
(setq p2 p1)
)
(setq i (+ i 0.4)

)
)
(command "")
(setvar "cmdecho" 1)
)

kevinchan · 发表于 2005-4-13 00:42:00

本帖最后由作者于 2005-4-14 0:45:14 编辑

好象有点难度,....

kevinchan · 发表于 2005-4-13 12:48:00

各位斑竹们,能不能帮帮小弟呀.

偶都快走投无路啦...

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

请高手帮忙编程--哪位大哥能帮帮忙吗?急呀!!!

本帖子中包含更多资源

本帖子中包含更多资源

好象有点难度,