已经编辑过帖，再重复命令名：NPLJG。
虚词的程序运行效果的确不错！不过，你最好不要编译它，好程序，大家共同分享，共同发展，共同促进，才能打败鬼子！
再来一个送给明经通道，请教如何才能延长字样删出前的显示时间。
命令名：MJTDA。
没有看到你的文件，也不知道你所说的是什么意思。
sorry !
命令名：MJTDA。
本帖最后由 作者 于 2003-8-8 11:26:33 编辑
我看到你的程序，效果可以说很好。但是有问题，就是你应该提前设置好文字类型，你的运行环境里，可能设置好了，但是其他人的没有相应的设置，出现的汉字时就是“？”。
关于延长时间问题，用delay，不过，延长的时间太长，最少1ms，但是我感觉比1s还长，起不到连贯的效果，好像xdcad里有工具。也可用下述的方法是，用while，在求得系统时间以后，再控制时间，比较，这样非常好！
该程序由“屏幕蹦蹦球”改编而成，更具活跃气氛！代码也就无需公布，大家就欣赏吧！
命令行键入 sswx执行程序！
哈哈！上传一个新鲜的好玩艺儿，给大家共享，看看是什么东东？直接下载附件的文件后，拖入CAD绘图环境。“安全无毒，绿色环保！”
欣赏之余，别忘了按时参加讨论会，还有支持《我的图库》，快快下载吧！嘿嘿！
[注]本来此贴在基础应用中发过，但是，我也认为应该归到这里。
做得不错，奖励一下。BP
1.先画一条pline
2.任意做一个block
3.加载以下程序
4.在command输入pset
Select block to move -> 选择画好块
Select polyline path ->选择画好的pline
Number of steps :1000 （次数字可以调节块运动的速度）
5.在command输入pmove
便可以看到图块按pline移动，
我曾经用这个办法让一个车子图块按照所指定的pline线“行驶”
(defun pathmove (mcar point angle)
(setq modcar (entget mcar)
modcar (subst (cons 10 point) (assoc 10 modcar) modcar)
modcar (subst (cons 50 angle) (assoc 50 modcar) modcar))
(entmod modcar)(redraw mcar )
);end pathmove
(defun c:pmove ()
(command "undo" "BE")
(foreach p pathlist
(command "delay" 100)
(pathmove eblock (car p) (cdr p))
);end foreach
(command "undo" "END")
);end pmove
(defun c:pset ()
(command "undo" "M")
(setq eblock (car (entsel "\nSelect block to move -> "))
path (car (entsel "\nSelect polyline path -> ")))
(command "area" "o" path)
(setq lpath (getvar "area")
nsteps (getint "\nNumber of steps :")
lsteps (/ lpath nsteps));end setq
(command "point" (list 0 0 0)
"block" "$-$" (list 0 0 0) (entlast) ""
"oops")
(setq mark (entlast))
(command "measure" path "b" "$-$" "y" lsteps)
(setq ret (entnext mark) pathlist nil)
(while ret
(setq pathlist (cons (cons (cdr (assoc 10 (entget ret)))
(cdr (assoc 50 (entget ret)))) pathlist))
(setq ret (entnext ret))
);end while
(command "undo" "B")
(princ "\nType PMOVE to start the movement")
(princ)
);end pset
(princ "\nType PSET ...")