我编了个很菜的程序，怎么画了一半，最后两条中心线不画了啊？还有怎么实现换层啊？

fizuwy · 发表于 2004-4-11 16:21:00

本帖最后由作者于 2004-4-12 14:42:40 编辑

;design of 01-04-03 (defun c:d3 ()

( Command (gen 2 "sh4")) (setq pt0 (list 190.0 370.0 ))

(setq r1 105.0
r2 57.0
th 11.0 )
(setq pt00 (polar pt0 0 (+ r1 50 ))
pt01 (polar pt00 (/ pi 2 ) r1 )
pt02 (polar pt01 0 th )
pt04 (polar pt00 (/ pi 2 ) r2 )
pt03 (polar pt04 0 th ) pt010 (polar pt00 (/ (- 0 pi) 2 ) r1 )
pt020 (polar pt010 0 th )
pt040 (polar pt00 (/ (- 0 pi) 2 ) r2 )
pt030 (polar pt040 0 th ) pt10 (polar pt0 0 (+ r1 10))
pt20 (polar pt0 pi (+ r1 10))
pt30 (polar pt0 (* 0.5 pi) (+ r1 10))
pt40 (polar pt0 (* 1.5 pi) (+ r1 10)) pt50 (polar pt00 pi 20)
pt60 (polar pt00 0 (+ th 20)))

(setvar "clayer" "0")
(command "circle" pt0 r1 " "
"circle" pt0 r2 " "
"line" pt01 pt02 pt03 pt04 "close"
"line" pt010 pt020 pt030 pt040 "close"
"line" pt04 pt040 pt030 pt03 "close") (setvar "clayer" "01center")
(command "line" pt10 pt20 " "
"line" pt30 pt40 " "
"line" pt50 pt60 " ")
)

fizuwy · 发表于 2004-4-11 16:24:00

此程序是为了实现画该图！

meflying · 发表于 2004-4-11 17:08:00

LINE命令没有close 这个选项的,另外,要把捕捉关掉

切换图层用(setvar "clayer" layername)

fizuwy · 发表于 2004-4-12 13:59:00

本帖最后由作者于 2004-4-12 14:43:48 编辑

谢谢！！

你是不是说把下面的osnap关了？！这”close“好像还是要的啊！？否则就不能运行的啊！

fizuwy · 发表于 2004-4-12 14:40:00

谢谢啊！我现在会换层啦！我就需要这么简单的问题的回答！哈哈

可是我中心线只画了一条啊？为什么

meflying · 发表于 2004-4-12 14:55:00

你在命令行试试看,LINE命令没有CLOSE这个选项的......LINE是不能闭合的.

crane_QS · 发表于 2004-4-12 20:26:00

本帖最后由作者于 2004-4-12 21:13:53 编辑

当"line" 命令中出现第三个点是会提示是否和第一个点闭合 [闭合(C)/放弃(U)]

用“c”就可以～如果只是画这个图应该是很简单的程序，怎么写了这么长啊？既然知道圆心坐标，我建议你利用相对坐标得到右图各点坐标～

fizuwy · 发表于 2004-4-13 10:28:00

我把所有的点都找出来的，所以很罗嗦，我可能应该用 mirror功能，具体我还不会

lzy9788 · 发表于 2004-4-13 17:40:00

用"" 代替"close"，你用""就行了，表示回车。

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

我编了个很菜的程序，怎么画了一半，最后两条中心线不画了啊？还有怎么实现换层啊？

本帖子中包含更多资源