[求助]：连续执行连线

szx025 · 发表于 2007-3-21 19:43:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:str (/ pt1 pt2 l n p0 p1)
(setq pt1 (getpoint "\n左下角点:"))
(setq pt2 (getpoint pt1 "\n右下角点:"))
(setq L (distance pt1 pt2))
(command "line" pt1 pt2 "")
(setvar "osmode" 0)
(command "donut"  "0" "80" pt1 "")
(command "donut"  "0" "80" pt2 "")
(setq N (/ L 1200))
(setq I 1)
(setq k (angle pt1 pt2))
(setq P0 Pt1)
(while (<= i N)
(setq P1 (polar p0 k 1200))
(command "donut"  "0" "80" p1 "")
(setq P0 (polar p0 k 1200))
(setq I (+ i 1))
(setvar "osmode" 32)
(setq *error* olderr)
(princ)
)
)
这是通过两点连线,然后在线上连续布点的程序,如何让程序能连续执行,第一点,第二点,第三点........连线,然后布点.
请高手指点

Dream.Fei · 发表于 2007-3-21 23:00:13

没看明白~

szx025 · 发表于 2007-3-22 07:56:26

运行一下上面的程序,你会发现点取两点后,程序就完成.我想要的是能连续取点,然后把这一些点连成线,然后布实心点.我想实现并不难,程序中应该加入(setq pt1 pt2).下面的我就不会了,

zml84 · 发表于 2007-3-22 08:33:10

szx025请不要重复发帖，这个问题在你的前一个主题中就已经解决了。
<br>
见下面地址的13楼：
http://p4.xdcad.net/forum/showthread.php?s=&threadid=625435

TLHMQH · 发表于 2007-3-24 23:45:16

向zml84 致敬！

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

[求助] [求助]：连续执行连线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子