请教一个动态显示的问题

LIHUISHUAN · 发表于 2003-9-26 10:39:00

我想做一个粗糙度标注程序，要求在标注位置确定之前，可随着光标移动，粗糙度符号随之移动并虚线显示，千万指教，谢谢！

xazhji · 发表于 2003-9-26 10:50:00

可以先插入，再移动....

LIHUISHUAN · 发表于 2003-9-26 10:58:00

请再说详细一点，最好给一样例，谢谢！

meflying · 发表于 2003-9-26 11:22:00

参看
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=7870

LIHUISHUAN · 发表于 2003-9-26 11:59:00

怎么看东西还要权限？解决这样一点小问题就这么麻烦！直接来段程序多好！

meflying · 发表于 2003-9-26 12:34:00

不好意思，我不记得权限的问题了，其实原来是没有权限限制的，可有些不法分子利用论坛的资源做出一些对论坛及各位会员不利的事，所以才设置了权限。
以下是前生的程序，你看看：
在冲压模具设计中,经常要在板上打一些小的孔,供线切割加工板时用
就做了这个动态的。。。
(DEFUN C:WC () ; (/ P0 P1 XY)
;;;________________________________
  (defun mc ()
(SETVAR "ORTHOMODE" 0)
(setq xy (trans (list (* 0.5 (+ (CAR P0) (CAR P1)))
   (* 0.5 (+ (CADR P0) (CADR P1)))
   (caddr p1)
   )
   1
   0
   )
)
(setq eli (list (cons 0 "CIRCLE")
   (cons 8 "HH")
   (cons 10 xy)
   (Cons 40 0.75)
   )
)
(entmake eli)
  )
;;;________________________________
  (setq p0 nil
p1 nil
  )
  (SETQ P0 (GETPOINT "\n 请点取第一点!.."))
  (setq pp (trans p0 1 0))
  (while (= 0 (distance (setq p1 (cadr (grread t 4 0))) p0)))
  (mc)
  (setq ls (entlast))
  (vla-put-color (vlax-ename->vla-object ls) 1)
  (setq ed (entget ls))
  (command "line" p0 p1 "")
  (setq ls1 (entlast))
  (vla-put-color (vlax-ename->vla-object ls1) 2)
  (setq ed1 (entget ls1))
  (setq pick nil)
  (while (null pick)
; (setq p (grread t 4 0))
(setq p (grread t 4 2))
(princ)
(setq ip (car p)
pt (cadr p)
)
(if (= ip 5)
   (progn
(setq xy (trans (list (* 0.5 (+ (CAR P0) (CAR Pt)))
      (* 0.5 (+ (CADR P0) (CADR Pt)))
      (caddr p1)
)
1
0
)
)
(setq ed (Subst (cons 10 xy) (assoc 10 ed) ed))
(entmod ed)
(setq p2 (trans pt 1 0))
(setq ed1 (subst (cons 10 pp) (assoc 10 ed1) ed1))
(setq ed1 (subst (cons 11 p2) (assoc 11 ed1) ed1))
(entmod ed1)
   )
)
(setq pick (= 3 ip))
  )
  (entdel ls1)
  (prompt "\n 前生制作")
  (prompt "....circle园系列")
  (princ)
)