[求助]请问能不能将字符串信息附加在多段线或线段中

sccat

我想把线槽的大小,如:CT50X50,记录在线段或多段线中,方便以后查看,而不必显示出来.请问能不能实现?

BDYCAD

可以使用扩展数据更新入对象里去

alin

2. (defun C:Test (/ sel en)
3.    (if (setq sel (entsel "\n选择线段或多段线："))
4.        (if (wcmatch (cdr (assoc 0 (entget (setq en (car sel))))) "*LINE")
5.            (progn
6.   (X_DATA_ADD en "SIZE" '((1000 . "CT50X50")))
7.   (princ "\n数据"CT50X50"已附加在该图元上。")
8.            )
9.            (princ "\n无效图元。")
10.        )
11.        (princ "\n没有选中图元。")
12.    )
13.    (princ)
14. )
15.            
16. ;----------------------------------------------------------
17. ;   Extended data Utilities and Example of use
18. ;   From 1999 Autodesk University course PR31
19. ;   taught by Bill Kramer
20. ;;---------------------------------------------------------
21. ;; X_DATA_ADD   add extended data list DLST with
22. ;;                         application name APID to the entity list
23. ;;                         of entity name EN.
24. ;;                         Overwrites existing.
25. ;;
26.   (defun X_DATA_ADD (EN APID DLST / EL TMP1)
27.      (if (null (tblsearch "APPID" APID)) ;;registered?
28.            (regapp APID)) ;;register it
29.      (setq EL (entget EN) ;;get Entity list
30.                  TMP1 (list -3 (cons APID DLST))
31.      )
32.      (if (< (xdsize TMP1) (xdroom EN)) ;;got enough room?
33.            (entmod (append EL (list TMP1)))) ;;modify database
34. )

(defun C:Test (/ sel en)    (if (setq sel (entsel "\n选择线段或多段线："))        (if (wcmatch (cdr (assoc 0 (entget (setq en (car sel))))) "*LINE")            (progn   (X_DATA_ADD en "SIZE" '((1000 . "CT50X50")))   (princ "\n数据"CT50X50"已附加在该图元上。")            )            (princ "\n无效图元。")        )        (princ "\n没有选中图元。")    )    (princ) )             ;---------------------------------------------------------- ;   Extended data Utilities and Example of use ;   From 1999 Autodesk University course PR31 ;   taught by Bill Kramer ;;--------------------------------------------------------- ;; X_DATA_ADD   add extended data list DLST with ;;                         application name APID to the entity list ;;                         of entity name EN. ;;                         Overwrites existing. ;;   (defun X_DATA_ADD (EN APID DLST / EL TMP1)      (if (null (tblsearch "APPID" APID)) ;;registered?            (regapp APID)) ;;register it      (setq EL (entget EN) ;;get Entity list                  TMP1 (list -3 (cons APID DLST))      )      (if (< (xdsize TMP1) (xdroom EN)) ;;got enough room?            (entmod (append EL (list TMP1)))) ;;modify database )

sccat

加了以后怎样查看啊?


我用list也看不到.

alin

(entget (car (entsel)) '("SIZE"))