3527188 发表于 2008-12-15 11:54:00

[讨论]会乱跑的圆

(defun c:12 ()
(setq a(getvar "osmode"))
(setvar "cmdecho" 0)
(setq p(getpoint "\n选择基点"))
(setq p1(getint "\n ( 1 )画基准点"))
(setq p2 (list (+(cadr p)5.0)(+(car p)13.0)))
(setq p3(list (+(cadr p)13.0)(+(car p)5.0)))
(setq p4(list(+(car p)5.0)(+(cadr p)5.0)))
(setvar "osmode" 0)
       (if (= p1 1)
(progn
    (command "ucs" "o" p)
    (command "CIRCLE" p2 "1" "")
    (command "CIRCLE" p3 "1" "")
    (command "CIRCLE" p4 "1" "")
    (princ))
(command "ucs" "o"p))
(setvar "osmode" a)
(princ)
)谁能解释一下为什么P2   P3   P4点上的圆会乱跑
有时候不会乱跑

3527188 发表于 2008-12-15 12:28:00

有谁能解释？？？？？

Andyhon 发表于 2008-12-15 14:10:00

会乱跑?<br/>是从那儿跑那儿?<br/>是从那个点(A)跑那个点(B)了<br/>您的本意A点应在何处?<br/>能否给个示意说明图

phoenixdjq 发表于 2008-12-15 18:49:00

<p>是不是用户坐标系的问题，你在世界坐标系下看看有没有这个问题</p><p>如果是的话，用trans函数</p>

祥子 发表于 2008-12-15 22:57:00

<p>程式运行时坐标系改变了，要用trans函数，将前面计算的坐标点进行换算</p>

3527188 发表于 2008-12-15 23:37:00

<p>就是画的3个圆每次都不是在同一个位置</p><p>就算是不要第12行也是一个样子</p>

3527188 发表于 2008-12-16 19:31:00

<p>程式运行时坐标系改变了，要用trans函数，将前面计算的坐标点进行换算</p><p>能告诉怎么转吗？</p><p>不怎么明白这个函数的意思</p>
页: [1]
查看完整版本: [讨论]会乱跑的圆