求助：文字转shape

chengcheng123

因为文字的Bbox比文字本身要大一些。所以想把文字转为shape再去比较文字和文字以及文字和其他东西有没有重叠。
之前在网上看到过大神提供的思路：先用axlText2Lines ,再用axlPolyFromDB,最后用axlDBCreateShape，但是我试了一下午都没有成功。有高手可以帮忙看看吗？或者有其他更好的办法不。我的最终目的是要判断文字和文字、焊盘、零件外框之类的有没有重叠。感谢感谢~~~

jordanli22

axlCmdRegister("c2s" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB_Cancel)
axlSetFunckey("cts" "c2sXXX")
procedure(LCB_cline_to_shape()
let( ()
axlSetFindFilter(?enabled list("noall" "clines" "lines" )
                  ?onButtons list("noall" "clines" "lines"))
LCBpopup = axlUIPopupDefine( nil (list
    (list "Undo" 'LCB_unDo)
    (list "Done" 'LCB_Done)
    (list "Cancel" 'LCB_Cancel)
     ))
axlUIPopupSet(LCBpopup)

LCB_mark = axlDBTransactionStart()
notdone = t
while(notdone
  lclines = axlGetSelSet(axlSelect(?prompt "Select Clines to convert to a shape."))
  if(lclines then
    foreach(clinedbid lclines
      ;layer = "etch/bottom"
      layer = car(axlGetSelSet())->layer
       polydbid = axlPolyFromDB(clinedbid ?endCapType "ROUND")
       if(polydbid then
        ;axlDeleteObject(clinedbid)
        if(! axlDBCreateShape(car(polydbid) t layer)  then
          axlUIWPrint(nil "** Error. Failed to create Shape from Cline. **")
        ); endif
        if(cadr(polydbid) then
            axlDBCreateShape(cadr(polydbid) t layer)  )
       else
        axlUIWPrint(nil "** Error. Failed to create Polydbid from Cline. **")
       ); endif
    ); end foreach cline
  ); endif
); end while
axlDBTransactionCommit(LCB_mark)

)); let and procedure

procedure(LCB_unDo()
let( ()
  if(! axlDBTransactionOops(LCB_mark) then
    axlUIWPrint(nil "-- Nothing Left To Undo. --")
  else
    axlUIWPrint(nil "-- Replacing Clines. --")
  ); endif
  axlClearSelSet()
)); end let procedure

procedure(LCB_Cancel()
let( ()
  axlUIWPrint(nil "** Cancelled Program. **")
  ;axlDBTransactionRollback(LCB_mark)
  notdone = nil
  axlClearSelSet()
  axlCancelEnterFun()

)); end let procedure

procedure(LCB_Done()
let( ()
  axlUIWPrint(nil "- Done -")
  axlDBTransactionCommit(LCB_mark)
  notdone = nil
  axlCancelEnterFun()
   
)); end let and procedure

jordanli22

cline2shape.rar (838 Bytes, 下载次数: 0)

2018-4-11 09:33 上传

点击文件名下载附件
下载积分: 贡献 -30 , 威望 -10

leilei4908

lines = axlText2Lines(text)
paths = foreach(mapcan x lines x)
tPolys = nil
foreach(path paths
      polys = axlPolyFromDB(path ?endCapType 'ROUND ?line2poly t)
      foreach(poly polys
             tPolys = axlPolyOperation(tPolys poly 'OR)
      )
)
unless(listp(tPolys) tPolys = list(tPolys))
foreach(tPoly tPolys
      axlDBCreateShape(tPoly t "BOARD GEOMETRY/SILKSCREEN_TOP")
)
这个方式仅限于16.6及以上版本使用

leilei4908

jordanli22 发表于 2018-4-11 09:32
axlCmdRegister("c2s" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB ...

楼主要的是文字转图形，不是铜线转图形

chengcheng123

leilei4908 发表于 2018-4-11 10:47
lines = axlText2Lines(text)
paths = foreach(mapcan x lines x)
tPolys = nil

试了，很好哦，非常非常感谢您

chengcheng123

jordanli22 发表于 2018-4-11 09:32
axlCmdRegister("c2s" 'LCB_cline_to_shape ?cmdType "interactive"
?doneCmd 'LCB_Done ?cancelCmd 'LCB ...

改天再来研究下你这个。感谢Jordan童鞋~~

leilei4908

chengcheng123 发表于 2018-4-11 16:19
试了，很好哦，非常非常感谢您

检查文字是否与焊盘重叠，可以用axlPolyOperation(tPoly pPoly 'And)判断