i have a idea- (defun c:newName()
- (c:yourProgram)
- (vl-load-com)
- (setq *AcadDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
- (setq *ModelSpace* (vla-get-ModelSpace *AcadDoc*))
- (setq *PaperSpace* (vla-get-PaperSpace *AcadDoc*))
- (setq obj4 (vlax-ename->vla-object (entlast)))
- (setq obj4String (vla-get-TextString obj4))
- (setq obj4inPoint (vla-get-InsertionPoint obj4))
- (setq obj4Heght (vla-get-Height obj4))
- (vla-delete obj4)
- (setq obj3 (vlax-ename->vla-object (entlast)))
- (setq obj3String (vla-get-TextString obj3))
- (setq obj3inPoint (vla-get-InsertionPoint obj3))
- (setq obj3Heght (vla-get-Height obj3))
- (vla-delete obj3)
- (setq obj2 (vlax-ename->vla-object (entlast)))
- (setq obj2String (vla-get-TextString obj2))
- (setq obj2inPoint (vla-get-InsertionPoint obj2))
- (setq obj2Heght (vla-get-Height obj2))
- (vla-delete obj2)
- (setq obj1 (vlax-ename->vla-object (entlast)))
- (setq obj1String (vla-get-TextString obj1))
- (setq obj1inPoint (vla-get-InsertionPoint obj1))
- (setq obj1Heght (vla-get-Height obj1))
- (vla-delete obj1)
- (setq txtobj4 (vla-addText *ModelSpace* obj4String obj4inPoint obj4Heght))
- (vla-put-layer textobj4 "layer-4")
- (setq txtobj3 (vla-addText *ModelSpace* obj3String obj3inPoint obj3Heght))
- (vla-put-layer textobj3 "layer-3")
- (setq txtobj2 (vla-addText *ModelSpace* obj2String obj2inPoint obj2Heght))
- (vla-put-layer textobj2 "layer-2")
- (setq txtobj1 (vla-addText *ModelSpace* obj1String obj1inPoint obj1Heght))
- (vla-put-layer textobj1 "layer-1")
- )
|