sachindkini 发表于 2012-8-23 23:59:14

can u help create this lisp

dear all,
can u help me create this lisp



http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 sachindkini的微博

ZZXXQQ 发表于 2012-8-24 12:47:29

Can not understand your meaning.

sachindkini 发表于 2012-8-24 14:45:19

ZZXXQQ 发表于 2012-8-24 12:47 static/image/common/back.gif
Can not understand your meaning.

dear sir,
thx for reply
i want create same lisp with layer
this lisp written old employ in my office i want modify this lisp but this is vlx file(example bed =layer-1
size in mm = layer-2
size if feet = layer-3
area in mm = layer-4
area in feet = layer-5)

mandala 发表于 2012-8-24 16:12:40

i dont understand

logoin 发表于 2012-8-25 00:22:31

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")

)

sachindkini 发表于 2012-8-27 22:17:32

logoin 发表于 2012-8-25 00:22 static/image/common/back.gif
i have a idea

dear sir,
thx its work

but i want new lisp no modify existing lisp

lidaxiu 发表于 2012-8-30 20:18:07

“i want create same lisp with layer “？？？
页: [1]
查看完整版本: can u help create this lisp