请教一个动态显示的问题

LIHUISHUAN

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

xazhji

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

LIHUISHUAN

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

meflying

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

LIHUISHUAN

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

meflying

不好意思，我不记得权限的问题了，其实原来是没有权限限制的，可有些不法分子利用论坛的资源做出一些对论坛及各位会员不利的事，所以才设置了权限。
以下是前生的程序，你看看：
在冲压模具设计中,经常要在板上打一些小的孔,供线切割加工板时用
就做了这个动态的。。。

(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)
)

LIHUISHUAN

我飞兄真是个热心人，非常感谢！

我同时提出的另外两个问题为什么没人答复，我飞兄能否也帮看一下，再次谢谢您！

meflying

另两个都是要写程序的， 没这么快。一个我已经写好了，你看看。
还有一个需要一些专业知识，虽说这个不怎么深，可我几年没弄这些东西，忘了，让我先看看资料，再写。

cag

看下我写的这个
对不起,老忘记上传

meflying

？？？？？？？？