wuxjld 发表于 2005-12-30 11:41:00

关于line、pline、arc的批量标注程序

<P>哪位有line、pline、arc的批量标注程序，即一次标注当前图形所有line、pline、arc的长度？另外有批量删除的程序吗(选择一个对象，删除删除当前图形的所有同类对象)？</P>

wuxjld 发表于 2006-1-4 10:10:00

<P>line、pline、arc的批量标注程序应该是比较通用的，哪位曾经做过？请版本帮忙！谢谢！</P>

maomao2004 发表于 2006-1-4 16:32:00

<P>(defun c:eraseall()<BR>&nbsp; (setq ent (entget (car (entsel "select the entity you want:"))))<BR>&nbsp; (setq lis (assoc 0 ent))<BR>&nbsp; (setq data (cdr lis))<BR>&nbsp; (setq morent (ssget "x" (list (cons 0 data))))<BR>&nbsp; (command "erase" morent "")<BR>&nbsp; (princ)&nbsp; &nbsp;<BR>&nbsp; )</P>
<P>;;随便写了个简单的删除所有同类函数，不够全面，请搂住自己再添点判断吧，呵呵</P>
<P>&nbsp;</P>

maomao2004 发表于 2006-1-4 16:56:00

<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=46092" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=46092</A></P>
<P>这里面有你要的标注的程序</P>

wuxjld 发表于 2006-1-5 19:43:00

<P>问题的关键在于对象长度的标注点的确定(这与标注文字的高度、对象的斜率有关)，哪位能帮忙给出标注在对象中间的算法？谢谢！</P>
页: [1]
查看完整版本: 关于line、pline、arc的批量标注程序