[LISP程序]：急！请教二个问题

zcy792096

AUTOCAD我是新手，许多地方都不清楚，可工作要干，没法。所以为此，请教各位二
个问题：

1) 我想让在图层“PIPE”中的所有的直线和园弧都带上管道的信息，比如管道的名
称，外径和内径。不知该如何编程。
2) 如果我在装入的图块中能否也可让它们也都带上管道的信息？

aidraft

附加扩展数据

zcy792096

1) 我该怎样才能将扩展数据加上去呢？怎么能拿到我要的直线和园弧呢？能否请教
写些简单的代码？

2) 图块中能否也可让它们也都带上管道的信息？

aidraft

(SSGET "X" '((0 . "ARC,LINE")(8 . "PIPE")))可得到PIPE图层上的arc和LINE,至于附加XDATA...
看帮助文件，有
Attachment of Extended Data to an Entity  

You can use xdata to store any type of information you want. For example, draw an entity (such as a line or a circle), then enter the following code to attach xdata to the entity:

(setq lastent (entget (entlast))) ; Gets the association
                                  ; list of definition data
                                  ; for the last entity.
(regapp "NEWDATA")                ; Registers the
                                  ; application name.
(setq exdata                      ; Sets the variable
'((-3 ("NEWDATA"                 ; exdata equal to the
  (1000 . "This is a new thing!") ; new extended data—
  )))                             ; in this case, a text
)                                 ; string.
(setq newent  
  (append lastent exdata))  ; Appends new data list to
                            ; entity's list.
(entmod newent)             ; Modifies the entity with the new
                            ; definition data.
To verify that your new xdata has been attached to the entity, enter the following code and select the object:

(entget (car (entsel)) '("NEWDATA"))
This example shows the basic method for attaching extended data to an entity.

zcy792096

非常感谢！