반응형 ssname1 선택한 개체의 레이어 기입 (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,.. 2024. 6. 17. 이전 1 다음 반응형