File: showxdata.lsp

package info (click to toggle)
ezdxf 1.4.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 104,528 kB
  • sloc: python: 182,341; makefile: 116; lisp: 20; ansic: 4
file content (6 lines) | stat: -rw-r--r-- 234 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
 
(defun C:SHOWXDATA (/ appid entity_list xdata_list)
  (setq appid (getstring "Show XDATA for which AppID:"))
  (setq entity_list (entget (car (entsel)) (list appid)))
  (setq xdata_list (assoc -3 entity_list))
(car (cdr xdata_list))
)