[求助]如何批量处理符号？

GISc

请问如何把那些红色的点用左图中的相应的块代替？是不是有图层符号设置什么的？

谢谢！！

ZZXXQQ

一般没有这样的功能。想要实现可以编程序。下面是程序：

2. (DEFUN C:INBP ()
3. (SETVAR "CMDECHO" 0)
4. (COMMAND ".UNDO" "BE")
5. (SETQ OLDOS (GETVAR "OSMODE"))
6. (SETVAR "OSMODE" 0)
7. (IF (SETQ SS (SSGET "X" '((0 . "POINT")))) (PROGN
8.   (SETQ BN (GETSTRING "\nBlock name 图块名 :")
9.               I 0)
10.   (REPEAT (SSLENGTH SS)
11.     (SETQ PT (CDR (ASSOC 10 (ENTGET (SSNAME SS I)))))
12.     (COMMAND "_.INSERT" BN PT 1 1 0)
13.     (SETQ I (1+ I))
14.   )
15.   (COMMAND ".UNDO" "E")
16. ))
17. (SETVAR "OSMODE" OLDOS)
18. (SETVAR "CMDECHO" 1)
19. (PRINC)
20. )

复制代码

GISc

谢谢ZZXXQQ!!

我这两天才开始用CAD，您用的是Visual LISP吧，不知道用VBA是否可以实现呢，这两种语言哪一个更方便啊？ 谢谢

GISc

自己顶一下 ：P

ZZXXQQ

GISc发表于2005-10-20 8:53:00 谢谢ZZXXQQ!! 我这两天才开始用CAD，您用的是Visual LISP吧，不知道用VBA是否可以实现...

我用的是纯LISP。VBA可以实现，但我不太熟。

GISc

好的，谢谢！

好厉害，LISP看的我很晕

the-xuan

我也来顶一下，多谢高手分享