선택한 개체의 레이어 기입

getLayer.lsp

0.00MB

(defun c:info (/) ;; 선택한 개체의 레이어 기입
(setq info_H 2.0)
(setq OSM (getvar "OSMODE"))
(setvar "osmode" 512)
(setq p1 (getpoint "pick a entity: "))
(setq p2 (getpoint "pick a leader: "))
(setq p1_1 (list (+ (car p1) -2.0) (+ (cadr p1) -2.0) 0))
(setq ent (ssget "_C" p1 p1_1))
;(setq dxf (entget (ssname ent 0)))
(setq txtString (cdr (assoc 8 (entget (ssname ent 0)))))
(command "pline" p1 p2 "non" "@2,0" "")
(entmake
  (list
    (cons 0 "TEXT")
(cons 10 (getvar "LASTPOINT"))
(cons 40 info_H)
(cons 72 0)
(cons 1 txtString)
  )
)
(setvar "OSMODE" OSM)
(princ)
)