[编程申请]：能否编一各画对称符号的程序

zh_6531394 · 发表于 2004-11-12 15:43:53

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

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

×

*-*a 能否编一各画对称符号的程序

自由的鱼 · 发表于 2004-11-12 19:59:03

什么对称符号》

zh_6531394 · 发表于 2004-11-13 12:19:56

一竖两横画对称图形的符号

xyp1964 · 发表于 2004-11-14 00:10:12

[php]
;;;*  C:DCFH. 对称符号.
(DEFUN C:DCFH (/ PT1 PT2 ANG ANG1 P3 P4)
  (command "ortho" "on")
  (setq sc 1);;;此处修改
  (setq pt1 (getpoint "\n起点位置 :"))
  (setq pt2 (getpoint pt1 "\n终点位置 :"))
  (setq ang (angle pt2 pt1))
  (setq ang1 (angtos ang 0))
  (setq p3 (polar pt1 ang -1000))
  (setq p4 (polar pt2 ang 1000))
  (command "insert" "$dcfh" p3 sc sc ang1)
  (command "insert" "$dcfh" p4 sc sc ang1)
  (command "line" pt1 pt2 "")
  (COMMAND "ORTHO" "OFF")
  (princ)
)
(prompt "程序命令：DCFH(对称符号)")
[/php]
2004.11.18修改：

zh_6531394 · 发表于 2004-11-16 08:23:52

*-*a 楼上的,先谢谢你,但我试用后,出现下面错误,请你帮忙,再次感谢
"命令:
DCFH
起点位置 :
终点位置 :未知命令“90”。按 F1 查看帮助。
未知命令“90”。按 F1 查看帮助。"

它山之石 · 发表于 2004-11-16 12:19:30

(command "insert" "$dcfh" p3 sc sc ang1)
未给变量SC赋值。
我认为没有必要插入图块，得到点后直接画两根线就行了。

zh_6531394 · 发表于 2004-11-22 08:12:06

我试用过不行

xyp1964 · 发表于 2004-11-22 12:35:34

最初由 zh_6531394 发布
[B]我试用过不行 [/B]

不下载附件怎么行？！

hisen · 发表于 2004-11-22 14:34:47

是不是可以利用镜像函数呢？

zh_6531394 · 发表于 2004-11-22 16:14:47

"不下载附件怎么行？！ "
我下了载附件也不行

cnnets · 发表于 2004-11-22 19:08:08

呵呵，天正建筑里有呀，可以抄考呀。

zh_6531394 · 发表于 2004-11-23 07:52:18

4楼楼主好人做到底,请你帮忙,调试程序

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

[编程申请]：能否编一各画对称符号的程序

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

相关帖子