Change the cline or line to shape( Source Code)

wolf343105 · 发表于 2012-10-21 20:41

LINE转变不了为相应层面的SHAPE.真没办法吗

wolf343105 · 发表于 2012-10-21 20:42

LINE转变不了为相应层面的SHAPE.真没办法吗

bavol · 发表于 2012-10-21 22:41

wolf343105 发表于 2012-10-21 20:42
LINE转变不了为相应层面的SHAPE.真没办法吗

有办法，过两天帮你改吧。你为什么一定要转line 呢？

wolf343105 · 发表于 2012-10-22 08:47

有需要.

longzhiming · 发表于 2012-10-22 21:03

bavol 发表于 2012-10-21 22:41
有办法，过两天帮你改吧。你为什么一定要转line 呢？

line可以方便画多种形状,而cline不行

cao_7654321 · 发表于 2012-10-25 14:36

happytree@163.com
楼主能发给我一份吗？非常感谢！

bavol · 发表于 2012-10-25 22:37

cao_7654321 发表于 2012-10-25 14:36
楼主能发给我一份吗？非常感谢！

请查收

deadknight · 发表于 2012-10-26 15:41

496907988@qq.com
急需，多谢了！

szhot · 发表于 2012-10-26 20:10

planet.deng@163.com

bavol · 发表于 2012-10-26 23:41

deadknight 发表于 2012-10-26 15:41
急需，多谢了！

请查收

szhot · 发表于 2012-10-27 02:28

thank you !

XYX365 · 发表于 2012-10-28 09:50

本帖最后由 XYX365 于 2012-10-28 09:51 编辑

新增Lines轉為静态shape

procedure(LCB_cline_to_shape()
let( ()
axlSetFindFilter(?enabled list("noall" "LINES" "clines") ?onButtons list("noall" "LINES" "clines"))
LCBpopup = axlUIPopupDefine( nil (list
list("Done" 'LCB_Done)
list("Undo" 'LCB_unDo)
list("Cancel" 'LCB_Cancel)
list("MENU_SEPARATOR" nil)
list("Set Dynamic" "bDynamic = t")
list("Set Statics" "bDynamic = nil")
list("MENU_SEPARATOR" nil)
list("EndCapType = OCTAGON" "sEndCapType = 'OCTAGON")
list("EndCapType = ROUND" "sEndCapType = 'ROUND")
list("EndCapType = SQUARE" "sEndCapType = 'SQUARE")
))
axlUIPopupSet(LCBpopup)
LCBstartMark = axlDBTransactionStart()
notdone = t
bDynamic = t
sEndCapType = 'OCTAGON
while(notdone
lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
if(lclines then
foreach(clinedbid lclines ;clinedbid = car(lclines)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
net = clinedbid->net->name
layer = clinedbid->layer
;******************
unless(clinedbid->isEtch
bDynamic = nil
)
axlUIWPrint(layer "** now layer is layer. **")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
polydbid = axlPolyFromDB(clinedbid ?endCapType sEndCapType)
if(polydbid then
axlDeleteObject(clinedbid)
if(bDynamic then
tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
unless(axlDBCreateShape(car(polydbid) t tNewLayer net)
axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
); endif
else
unless(axlDBCreateShape(car(polydbid) t Layer net)
axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
); endif
)
if(cadr(polydbid) then
if(bDynamic then
tNewLayer = strcat("BOUNDARY/" cadr(parseString(layer "/")))
axlDBCreateShape(cadr(polydbid) t tNewLayer net)
else
axlDBCreateShape(cadr(polydbid) t layer net)
)
)
else
axlUIWPrint(nil "** Error. Failed to create Polydbid from Cline. **")
); endif
); end foreach cline
); endif
); end while
axlDBTransactionCommit(LCBstartMark)
)); let and procedure