大虾接招，难题！！！

meflying · 发表于 2003-10-13 13:58:00

这个按你的要求编程的话，功能比较容易实现，但很难实现那种光标只在某角度上移动（就象正交那样）的效果

tukuitk · 发表于 2003-10-13 14:40:00

于我心有戚戚焉……
我虽然已实现了，但我觉得实现那种光标只在某角度上移动（就象正交那样）的效果会更好。
我见“天河CAD”有那种效果，那是怎么实现的呢？

***************
众人拾柴火焰高
***************

tukuitk · 发表于 2003-10-13 14:46:00

难道这是不能解决的问题？？？？？？

meflying · 发表于 2003-10-13 14:57:00

把你的程序帖上来我看看是什么样的效果，看看我写得效果会不会好点

tukuitk · 发表于 2003-10-13 14:59:00

(setq var (getvar "orthomode"))
(setq errtmp *error*)
(defun *error* (msg)
  (setvar "orthomode" var)
  (command "ucs" "w")
  (princ)
)
(setq *error* errtmp)

(defun c:fc ()
  (setvar "cmdecho" 0)
  (setq se (entsel "\n 选一已知线"))
  (setq ed (entget (car se)))
  (setq ps (cdr (assoc 10 ed)))
  (setq pe (cdr (assoc 11 ed)))
  (setq ang (* (angle ps pe) (/ 180 pi)))
  (command "orthomode" "1")
  (command "ucs" "n" "z" ang)
  (setq p (getpoint "\n 选将画线的第一点 \n"))
  (command "line" p pause "")
  (command "ucs" "w")
  (command "orthomode" var)
  (princ)
)

tukuitk · 发表于 2003-10-13 15:00:00

(setq var1 (getvar "orthomode"))
(setq var2 (getvar "autosnap"))
(setq errtmp *error*)
(defun *error* (msg)
  (command "ucs" "w")
  (setvar "orthomode" var1)
  (setvar "autosnap" var2)
  (princ)
)
(setq *error* errtmp)
;;;
(defun C:pfx ()
  (setvar "cmdecho" 0)
  (setq se1 (entsel "\n 请选择第一条直线："))
  (setq se2 (entsel "\n 请选择第二条直线："))
  (setq x1 (entget (car se1)))
  (setq x2 (entget (car se2)))
  (setq p1s (cdr (assoc 10 x1)))
  (setq p1e (cdr (assoc 11 x1)))
  (setq p2s (cdr (assoc 10 x2)))
  (setq p2e (cdr (assoc 11 x2)))
  (setq g1 (* (angle p1s p1e) (/ 180 pi)))
  (setq g2 (* (angle p2s p2e) (/ 180 pi)))
  (setq an (+ (/ (- g2 g1) 2) g1))
  (setq pj (inters p1s p1e p2s p2e nil))
  (command "ucs" "n" "z" an)
  (setq pok (trans pj 0 1))
  (setvar "orthomode" 1)
  (setvar "autosnap" 0)
  (command "line" pok pause "")
  (command "ucs" "w")
  (setvar "orthomode" var1)
  (setvar "autosnap" var2)
  (princ)
)

tukuitk · 发表于 2003-10-13 15:03:00

请指教。
我是个菜鸟，但很勤劳的。

meflying · 发表于 2003-10-13 15:09:00

你用了坐标系转换，我的是方向模糊确定，即鼠标移动时并没有方向限制，就是最后根据鼠标的大致方向确定最终方向。
注意，你的程序自定义*error*没有起作用。

tukuitk · 发表于 2003-10-13 15:14:00

meflying大哥：
我能看看你的程序吗？谢谢！
我不太会用*error*函数，你能指点一下吗？在我上面的程序中应怎样用才是对的呢？

e2002 · 发表于 2003-10-13 15:15:00

如果是交互操作时,你可以先算出这个角度,然后在command命令中输入这个角度,就会锁定了
如:

line , <pick a point> , <34.676, ....

这时的移动鼠标就会锁定在你输入的角度的方向上了.
不过只是200x才支持

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