[LISP]请问各位大侠我的程序有问题 不知道什么改正？

BDYCAD

好象不行的喲.

meflying

呆呆发表于2003-12-11 10:51:00请问各位怎么样才能使选中的目标根据自己设定的颜色来亮显？ 谢谢

将它改为你想要的颜色，然后用redraw

呆呆

我的意思是 选中后 显亮 如果程序进入下一步操作又恢复原状 不知道可否行的通呢

呆呆

我们用SSGET选中目标后 对象会从视觉上变成虚线状，但是用ENTSEL来选择目标的时候 有时不知道是不是被选中了 我的意思是想让entsel选择后也能象ssget那样能够从视觉上判断它 是否真的被选中过 谢谢

meflying

跟你说过了，22楼，
将它改为你想要的颜色，然后用redraw
等你需要恢复的时候，再将它的颜色改回去不就行了吗？

不用每次都说那么明白你才懂吧，提示一下，就应该自己想明白了

呆呆

飞哥 还有各位大侠 我依据15楼的想法编辑了一个程序 没有用到TRANS函数 但是还是不行 是不是这个愿望就不能实现 但是我们老板自己用LISP编的就行 我模仿他的步骤做的 但是他的行 我的不行 他的原程序是不会给我们看的  我只是在他使用的时候 记下了他的操作步骤 我是根据他的操作步骤联想到的 还望飞哥和各位大侠不吝赐教指教 在这里我先谢谢了
(defun hj(ang) (* (/ ang pi) 180.0))
(defun c:xy()
     (setq p1 (getpoint"\nFirst point:"))
     (setq s1 (entsel"\nFirst X=:")
           s11 (entsel"\nFirst Y=:")
           y1 (atof(substr (cdr (assoc 1 (entget (car s1)))) 3))
           x1 (atof(substr (cdr (assoc 1 (entget (car s11)))) 3))
           p11(list x1 y1)
     )
     (setq p2 (getpoint"\nSecond point:"))
     (setq s2 (entsel"\nSecond X=:")
           s22 (entsel"\nSecond Y=:")
           y2 (atof (substr (cdr (assoc 1 (entget (car s2)))) 3))
           x2 (atof (substr (cdr (assoc 1 (entget (car s22)))) 3))
           p22(list x2 y2)
     )
     (setq l1(distance p1 p2)
           l2(distance p11 p22)
     )
     (setq jj(abs (- l1 l2)))
     (setq ww (strcat "\n实际长度=" (rtos l2 2 3) "   现在长度="
                      (rtos l1 2 3) "  误差=" (rtos  jj 2 3)))
     (princ ww)
   (if (<= jj 0.005)
       (progn
       (setq ang1 (angle p11 (list 0 0))
             wl (sqrt (+ (* x1 x1) (* y1 y1)))
       )
       (setq xyd (polar p1 ang1 wl))
       (setq ang2 (- (angle p1 p2) (angle p11 p22)))
       (command "ucs" "n"  xyd )
       (command "ucs " "z" (hj ang2))
       )
   )
(princ)
)

meflying

你还没有回答图是怎样被修改的啊，如果是移动过，又旋转过，那你至少得知道一个图元的原始位置吧，

呆呆

一般只要知道两点就能够确定一个坐标系呀

meflying

可还有旋转呢，如果仅仅是移动，你移回去不就可以了吗？

呆呆

知道两个点的 现在的坐标 和原来的坐标不就行了吗？