[讨论]会乱跑的圆

3527188

2. (defun c:12 ()
3.   (setq a(getvar "osmode"))
4.   (setvar "cmdecho" 0)
5.   (setq p(getpoint "\n选择基点"))
6.   (setq p1(getint "\n ( 1 )画基准点"))
7.   (setq p2 (list (+(cadr p)5.0)(+(car p)13.0)))
8.   (setq p3(list (+(cadr p)13.0)(+(car p)5.0)))
9.   (setq p4(list(+(car p)5.0)(+(cadr p)5.0)))
10.   (setvar "osmode" 0)
11.        (if (= p1 1)
12.   (progn
13.     (command "ucs" "o" p)
14.     (command "CIRCLE" p2 "1" "")
15.     (command "CIRCLE" p3 "1" "")
16.     (command "CIRCLE" p4 "1" "")
17.     (princ))
18.   (command "ucs" "o"  p))
19.   (setvar "osmode" a)
20.   (princ)
21.   )

(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

有谁能解释？？？？？

Andyhon

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

phoenixdjq

是不是用户坐标系的问题，你在世界坐标系下看看有没有这个问题

如果是的话，用trans函数

祥子

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

3527188

就是画的3个圆每次都不是在同一个位置

就算是不要第12行也是一个样子

3527188

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

能告诉怎么转吗？

不怎么明白这个函数的意思