[求助]：怎么画这种弯形箭头？

dxh

怎么画这种箭头？我画的不标准，不知该如何画？

zxdcad

象这种吗？？

不过我也用的笨办法：先画一个圆或弧（好定位），用PL画的！

有好点的办法吗？期待中！！！！！！

lsjjm

转贴一个旧程序:
[php]
(DeFun IN ()
  (SetQ VARS
    (MapCar
      '(Lambda (A B)
         (SetQ TEMP (GetVar A))
         (SetVar A B)
         (List A TEMP)
       )
       '("CmdEcho""BlipMode""DragMode")
       '(0 1 2)
    )
  )
  (Command "UNDO" "End" "UNDO" "Group")
  (GraphScr)
)
(DeFun OUT ()
  (Command "UNDO" "End" "CANCLE")
  (ForEach TEMP VARS
    (Apply 'SetVar TEMP)
  )
  (PrinC)
)
(DeFun CL-ERR (MSG)
  (PrinC "\nerror: ")
  (PrinC MSG)
  (SetQ *ERROR* ERR)
  (OUT)
)
(DeFun GET (A B)  (Cdr (Assoc A B)))
(DeFun C:CL (/ VARS ERR PT2 PT1 ASIZE
    ANG TSIZE X1 Y1 PT4)
  (SetQ ERR *ERROR* *ERROR* CL-ERR)
  (IN)
  (SetQ PT1 (GetPoint "\nStart point:"))
  (Prompt "\nPoint on arc segment: ")
  (Command "ARC" PT1 Pause)
  (Prompt "\nNext point: ")
  (Command Pause)
  (Setq
    PT3    (GetVar "LastPoint")
    DSCALE (GetVar "DimScale")
    ASIZE  (* (GetVar "DimAsz") DSCALE)
    TSIZE  (* (GetVar "DimTxt") DSCALE)
    BLOCK  (GetVar "DimBlk")
    90DEG  (/ Pi 2)
    ENT1   (EntLast)
    EDATA  (EntGet ENT1)
    CENTER (Get 10 EDATA)
    RADIUS (Get 40 EDATA)
    START  (Polar CENTER (Get 50 EDATA)
      RADIUS)
    ANG    (/ ASIZE RADIUS)
    ANG    ((If (< (Distance PT1 START)
               1.0e-6) + -)
             (Angle CENTER PT1) ANG)
    PT2    (Polar CENTER ANG RADIUS)
    ANG    (Angle PT1 PT2)
  )
  (Cond
    ((Eq BLOCK "")
      (SetQ ASIZE (* ASIZE 0.1667))
      (Command
        "SOLID" PT1 (Polar PT2 (+ ANG
           90DEG) ASIZE) (Polar PT2
           (- ANG 90DEG) ASIZE) "" ""
      )
    )
    (T (Command "INSERT" BLOCK PT1 ASIZE
          "" (AngToS (- ANG Pi))))
  )
  (Prompt "\nText: ")
  (If (<= (Nth 0 PT3) (Nth 0 PT1))
    (ProgN
      (SetQ
        X (- (Nth 0 PT3) TSIZE)
        Y (- (Nth 1 PT3) (* TSIZE 0.5))
      )
      (Command "DTEXT" "R" (List X Y)
        TSIZE 0)
    )
    (ProgN
      (SetQ
        X (+ (Nth 0 PT3) TSIZE)
        Y (- (Nth 1 PT3) (* TSIZE 0.5))
      )
      (Command "DTEXT"(List X Y)TSIZE 0)
    )
  )
  (OUT)
)
[/php]

popxi

先用索引标注，再把引线样式照图修改即可。

jhwylm

4楼的你用的是CAD2004？

waddy

好像不是很圆的感觉，呵呵

cqdyf

输入命令PL后输入A画弧,再输入W起点5,终点0就可以画成弧形箭头.

dxh

如果有弧形的引线标注就好了。

popxi

最初由 jhwylm 发布
[B]4楼的你用的是CAD2004？ [/B]

至少从R14开始就有这个功能了。

最初由 waddy发布
[B]好像不是很圆的感觉，呵呵 [/B]

弧度的大小形状你可以通过加点调整。（标注中完全画成弧线是很难看的)

最初由 dxh 发布
[B]如果有弧形的引线标注就好了 [/B]

这个不是吗？

第四类感情

其实我觉得二楼的方法要好一些.
毕竟——POP大哥的方法偶觉得麻烦啊！~~

设计者

我觉得7楼的方法好~~~还可以定义箭头的大小

fallingstar05

偶一般用PL解决，不过画出来滴箭头如2楼的一样，与楼主的稍有区别。

dxh

有没有好办法呀。还是没有我要的那种箭头呀。

eongz

有一个专门画箭头的小程序可以解决这个问题

小别墅

我也有一个笨方法，就是如七楼说的用pl，然后a画弧，然后w输入你想要的线宽，然后再pl画同样宽度的箭头（如果想要标准点的画一根线然后镜像）试试再说。