[求助]如何批量处理符号？
<P></P><P>请问如何把那些红色的点用左图中的相应的块代替？是不是有图层符号设置什么的？</P>
<P>谢谢！！</P> 一般没有这样的功能。想要实现可以编程序。下面是程序：
(DEFUN C:INBP ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(IF (SETQ SS (SSGET "X" '((0 . "POINT")))) (PROGN
(SETQ BN (GETSTRING "\nBlock name 图块名 :")
I 0)
(REPEAT (SSLENGTH SS)
(SETQ PT (CDR (ASSOC 10 (ENTGET (SSNAME SS I)))))
(COMMAND "_.INSERT" BN PT 1 1 0)
(SETQ I (1+ I))
)
(COMMAND ".UNDO" "E")
))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
本帖最后由 作者 于 2005-10-20 11:04:53 编辑 <br /><br /> <P>谢谢<A name=63049><FONT color=#0000ff><B>ZZXXQQ</B></FONT></A>!!</P>
<P>我这两天才开始用CAD，您用的是Visual LISP吧，不知道用VBA是否可以实现呢，这两种语言哪一个更方便啊？ 谢谢</P> 自己顶一下 ：P GISc发表于2005-10-20 8:53:00static/image/common/back.gif
谢谢ZZXXQQ!!
我这两天才开始用CAD，您用的是Visual LISP吧，不知道用VBA是否可以实现...
我用的是纯LISP。VBA可以实现，但我不太熟。<BR> <P>好的，谢谢！</P>
<P>好厉害，LISP看的我很晕</P> 我也来顶一下，多谢高手分享
页:
[1]