[原创]：如何在Autolisp中设置UCS的Origin

gxuhm · 发表于 2005-10-4 13:17:27

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

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

×

如何用在AUTOCAD R14 中用AUTOLISP语言来设置UCS的origin, 大侠们帮帮我这位新手

我编了一个求截面形心的程序
(defun COG (/ )
(command "ucs" "o")
(princ)
(setq a (getpoint "\nPlease cilcik point a"))
(setq b (getpoint "\nPlease cilcik point b"))
(setq c (getpoint "\nplease cilcik point c"))
(setq d (getpoint "\nplease cilcik point d"))
(setq e (getpoint "\nplease cilcik point e"))
(setq f (getpoint "\nplease cilcik point f"))
(setq gx (car a))
(setq gy (cadr d))
(setq g (list gx gy))
(setq o1 (inters a c b g))
(setq o2 (inters g e f d))
(setq d1 (distance a b))
(setq d2 (distance b c))
(setq d3 (distance d e))
(setq d4 (distance e f))
(setq Area1 (* d1 d2))
(setq Area2 (* d3 d4))
(setq o1x (car o1))
(setq o1y (cadr o1))
(setq o2x (car o2))
(setq o2y (cadr o2))
(setq A1X1 (* area1 o1x))
(setq A2X2 (* area2 o2x))
(setq A1Y1 (* area1 o1y))
(setq A2Y2 (* area2 o2y))
(setq ox (/ (+ A1X1 A2X2) (+ area1 area2) ))
(setq oy (/ (+ A1X1 A2X2) (+ area1 area2) ))
(setq o (list ox oy))
(princ o)
(princ)
)

问题就是设置UCS时出了问题

eachy · 发表于 2005-10-4 16:14:30

你知道用 Command 怎么设置吗？

gxuhm · 发表于 2005-10-4 17:59:28

不知道哦

LADESIGNER · 发表于 2005-10-4 20:02:13

(command "ucs" "o")下面怎么没有了？下面应该接你UCS的原点啊！

gxuhm · 发表于 2005-10-5 05:50:34

最初由 LADESIGNER 发布
[B](command "ucs" "o")下面怎么没有了？下面应该接你UCS的原点啊！ [/B]

应该怎样，我运算的时候，它就直接跳到，Please click point a, 根本没有提示click the origin.

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

[原创]：如何在Autolisp中设置UCS的Origin

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

相关帖子