[求助]：急，高手请进：怎样将cad 的一个对象，按步长分解？

misters

在cad中画的圆、直线、矩形、椭圆等各个对象，想按步长分解成一小段一小段的或是直线，或是圆弧，各位有没有办法？
比如半径为10mm的圆，按边长1.5mm为步长，分解成很多圆弧的话，有没有什么办法？

gdzhou

measure 可不可以？定距等分点

misters

谢谢，我试了一下，是可以的。
有没有读取cad中文字点阵的方法，就是把汉字分解成可以多线段，就像刻绘机刻字似的，分解出一个字的边缘形状

我在这里找了个方法，但看不懂这是怎么写的，谁能帮忙
(Defun C:TextB (/ lvl lul lvp lvs lss ViewPL)
       (SetQ lvs (GetVar "viewsize")
             lss (GetVar "screensize")
       )
       (SetVar "cmdecho" 0)
       (Defun ViewPL ( / vi vw vh vc)
              (setq vi (* lvs (/ (Car lss) (Cadr lss)))
                    vc (GetVar "viewctr")
                    vw (list (- (car vc)  (* 0.5 vi))
                             (- (cadr vc) (* 0.5 lvs))
                       )
                    vh (list (+ (car vc)  (* 0.5 vi))
                             (+ (cadr vc) (* 0.5 lvs))
                       )
              )
              (List vw vh)
       )
       (PrinC "\n要分解的文字行: ")
       (SetQ ltl (SSGet)
             lvl (ViewPL)
             lul (List (Caar lvl) (Cadadr lvl))
             lvp (GetVar "viewctr")
       )
       (Command "mirror" ltl "" lvp "@0,1" "y"
                "wmfout" "textb" ltl ""
                "erase" ltl ""
                "wmfin" "textb" lul "2" "" ""
                "mirror" (EntLast) "" lvp "@0,1" "y"
                "explode" (EntLast)
                "erase" (ssget "p") "R" "W"
                        (polar (car lvl) (* 0.25 Pi)
                               (Max (Abs (/ lvs (Cadr lss)))
                                    (Abs (/ (* lvs
                                               (/ (Car lss) (Cadr lss))
                                            )
                                            (Car lss)
                                         )
                                     )
                               )
                        )
                        (cadr lvl)
                    ""
       )
       (SetVar "cmdecho" 1)(PrinC)
)

雪山飞狐(lzh)

首先调用wmfout命令将对象转化为wmf文件，再用wmfin命令读入

misters

什么意思呢？读出来还是字呀，能详细说吗？

再就是用sendcommaon执行measure时，要求选择对象，怎样才能自动选择所有要定点分矩的对象呢？我想把它放在sset选择集中，或是其的办法都行，只要能自动选择就可以。
代码如下：
            Set sset = acadApp.ActiveDocument.SelectionSets.Add("test")
            sset.Select acSelectionSetAll
            /////这句：
            doc1.SendCommand "measure" & vbCr & "select" & vbCr & "all" & vbCr & Object_Step & vbCr

            sset.Erase
            sset.Select acSelectionSetAll
            
            For Each obj In doc1.ModelSpace
                xyz = obj.Coordinates
                conn.Execute "insert into object_points (tablename,objectid,xmgl_id,chamfer_id,pointx,pointy) values ('circle'," & db("id") & "," & NowXmgl_id & "," & ids & "," & Round(xyz(0), 4) & "," & Round(xyz(1), 4) & ")"
            Next

gdzhou

将wmf读入后再炸开就是多段线了   不过外面多了个框框

god

express tool 里面有现成的命令，可以把ttf炸成多段线