[求助]：怎么画正三角形?

copyyear · 发表于 2005-1-23 15:06:34

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

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

×

我想在pt10(已知)这一点插入一个正三角形,在已有的LISP中加入一句 (command "polygon" 3 pt10 i 3.5"")怎么不行啊?
哪位大哥大姐能帮忙啊?谢谢

qjcpj · 发表于 2005-1-23 15:17:58

请看：
_$ (setq pt10 (getpoint "\n Pick a Point:"))
(612.481 438.4 0.0)
_$ (command "polygon" 3 pt10 "I" 3.5)

copyyear · 发表于 2005-1-23 15:32:58

这样:
(setq pt (getpoint "\n 插入点: "))
(setq  pt10 (list (+ (car pt) 17.5)
               (+ (cadr pt) 4.5)
         )
  )
(command "polygon" 3 pt10 "I" 3.5)

有问么?

qjcpj · 发表于 2005-1-23 15:53:36

对不起，代码3.5处应为“点”，完整测试码如下。
;;TEST by qjcpj
(defun c:test ( / pt10 pt_x pt_y)
(setq pt10 (getpoint "\n插入点: "))
(setq pt_x (car pt10)
pt_y (cadr pt10)
)
(command "polygon" 3 pt10 "I" (list pt_x (+ pt_y 3.5) 0))
)

xyp1964 · 发表于 2005-1-23 16:27:51

最初由 copyyear 发布
[B]我想在pt10(已知)这一点插入一个正三角形,在已有的LISP中加入一句 (command "polygon" 3 pt10 i 3.5"")怎么不行啊?
哪位大哥大姐能帮忙啊?谢谢 [/B]

(command "polygon" "3" (list 0 0) "i" "3.5")

ll_j · 发表于 2005-1-23 17:47:01

最初由 copyyear 发布
[B]我想在pt10(已知)这一点插入一个正三角形,在已有的LISP中加入一句 (command "polygon" 3 pt10 i 3.5"")怎么不行啊?
哪位大哥大姐能帮忙啊?谢谢 [/B]

i 字符缺引号，最后多回车。

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

[求助] [求助]：怎么画正三角形?

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

相关帖子

Re: [求助]：怎么画正三角形?

Re: [求助]：怎么画正三角形?

浏览过的版块