[求助]：如何画带箭头的标注线？

yzhmyyy · 发表于 2003-10-29 15:43:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何画带箭头的标注线？

ssggcc777 · 发表于 2003-10-29 15:47:06

画箭头，再填充；或从天正的标注找

yzhmyyy · 发表于 2003-10-29 15:48:06

不好用

zxd2003 · 发表于 2003-10-29 15:52:21

用天正或理的正绘楼梯上下方向线也。

winmagic · 发表于 2003-10-29 16:48:28

用PL线就可以

jxsqq · 发表于 2003-10-29 16:59:53

很多cad外挂都可以实现，总不能干用CAD

lt_zzy · 发表于 2003-10-29 17:04:31

用下面的程序，可以在你的图形中的当前层生成一个三个角形的块，用这个块，可以进行标注。

[FONT=courier new]
(defun c:lt_arrow()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho"0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq orth (getvar "orthomode"))
(setvar "orthomode"0)
(if (not (tblsearch "block" "lt_arrow"))
(progn
(command"line"(list 0 0) (list -1 0) (list -1 -0.2) "_c")
(command"zoom""w"(list -3 -3) (list 3 3))
(command"-bhatch""_p""solid"(list -0.8 -0.07)"")
(command"block""lt_arrow"(list 0 0)"c" (list -0.6 0.1) (list -0.7 -0.04) "")
))
(setvar "osmode"os)
(setvar "orthomode"orth)
(setvar"cmdecho"cm)
(princ)
)
[/FONT]

lt_zzy · 发表于 2003-10-29 17:07:02

用下面的程序可以在你当前的图形中产生一种标注，如果没有箭头会自动定义箭头。

[FONT=courier new]
(defun c:dim_st()
(setq cm (getvar "cmdecho"))
(setvar"cmdecho"0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq orth (getvar "orthomode"))
(setvar "orthomode"0)
(command "undo" "group")
(if (not (tblsearch "dimstyle" "lt"))
(command"dimstyle""_s""lt")
(command"dimstyle""_r""lt")
)
(command"-style""lt""txt,tjhzd""""0.75""""""")
(if (not (tblsearch "block" "lt_arrow"))
(progn
(command"line"(list 0 0) (list -1 0) (list -1 -0.2) "_c")
(command"zoom""w"(list -3 -3) (list 3 3))
(command"-bhatch""_p""solid"(list -0.8 -0.07)"")
(command"block""lt_arrow"(list 0 0)"c" (list -0.6 0.1) (list -0.7 -0.04) "")
))
(command "DIMALT" "Off")
(setvar"DIMALTD" 4)
(setvar"DIMALTF" 0.0394)
(setvar"DIMALTTD" 4)
(setvar"DIMALTTZ" 0)
(setvar"DIMALTU" 8)
(setvar"DIMALTZ" 0)
(command"DIMASO" "On")
(setvar"DIMASZ" 1.5)
(setvar"DIMAUNIT" 0)
(command"DIMBLK1" "LT_ARROW")
(command"DIMBLK2" "LT_ARROW")
(setvar"DIMCEN" 0.9)
(command"DIMCLRD" 256)
(command"DIMCLRE" 256)
(command"DIMCLRT" 256)
(setvar"DIMDEC" 0)
(setvar"DIMDLE" 0)
(setvar"DIMDLI" 3)
(setvar"DIMEXE" 1.5)
(setvar"DIMEXO" 2)
(setvar"DIMFIT" 3)
(setvar"DIMGAP" 0.3)
(setvar"DIMJUST" 0)
(setvar"DIMLFAC" 1)
(command"DIMLIM" "Off")
(setvar"DIMRND" 0)
(command"DIMSAH" "On")
(setvar"DIMSCALE" 1)
(command"DIMSD1" "Off")
(command"DIMSD2" "Off")
(command"DIMSE1" "Off")
(command"DIMSE2" "Off")
(command"DIMSHO" "On")
(command"DIMSOXD" "Off")
(setvar"DIMTAD" 1)
(setvar"DIMTDEC" 1)
(setvar"DIMTFAC" 1)
(command"DIMTIH" "Off")
(command"DIMTIX" "Off")
(setvar"DIMTM" 0)
(command"DIMTOFL" "On")
(command"DIMTOH" "Off")
(command"DIMTOL" "Off")
(setvar"DIMTOLJ" 1)
(setvar"DIMTP" 0)
(setvar"DIMTSZ" 0)
(setvar"DIMTVP" 0)
(setvar"DIMTXT" 2)
(command"DIMTXSTY" "LT")
(setvar"DIMTZIN" 8)
(setvar"DIMUNIT" 2)
(command"DIMUPT" "Off")
(setvar"DIMZIN" 8)
(command "undo" "end")
(setvar "orthomode"orth)
(setvar "osmode"os)
(setvar"cmdecho"cm)
(princ)
) [/FONT]

[FONT=courier new] 
(defun c:dim_st() 
(setq cm (getvar "cmdecho")) 
(setvar"cmdecho"0) 
(setq os (getvar "osmode")) 
(setvar "osmode" 0) 
(setq orth (getvar "orthomode")) 
(setvar "orthomode"0) 
(command "undo" "group") 
(if (not (tblsearch "dimstyle" "lt")) 
(command"dimstyle""_s""lt") 
(command"dimstyle""_r""lt") 
) 
(command"-style""lt""txt,tjhzd""""0.75""""""") 
(if (not (tblsearch "block" "lt_arrow")) 
  (progn 
(command"line"(list 0 0) (list -1 0) (list -1 -0.2) "_c") 
(command"zoom""w"(list -3 -3) (list 3 3)) 
(command"-bhatch""_p""solid"(list -0.8 -0.07)"") 
(command"block""lt_arrow"(list 0 0)"c" (list -0.6 0.1) (list -0.7 -0.04) "") 
)) 
(command "DIMALT" "Off") 
(setvar"DIMALTD" 4) 
(setvar"DIMALTF" 0.0394) 
(setvar"DIMALTTD" 4) 
(setvar"DIMALTTZ" 0) 
(setvar"DIMALTU" 8) 
(setvar"DIMALTZ" 0) 
(command"DIMASO" "On") 
(setvar"DIMASZ" 1.5) 
(setvar"DIMAUNIT" 0) 
(command"DIMBLK1" "LT_ARROW") 
(command"DIMBLK2" "LT_ARROW") 
(setvar"DIMCEN" 0.9) 
(command"DIMCLRD" 256) 
(command"DIMCLRE" 256) 
(command"DIMCLRT" 256) 
(setvar"DIMDEC" 0) 
(setvar"DIMDLE" 0) 
(setvar"DIMDLI" 3) 
(setvar"DIMEXE" 1.5) 
(setvar"DIMEXO" 2) 
(setvar"DIMFIT" 3) 
(setvar"DIMGAP" 0.3) 
(setvar"DIMJUST" 0) 
(setvar"DIMLFAC" 1) 
(command"DIMLIM" "Off") 
(setvar"DIMRND" 0) 
(command"DIMSAH" "On") 
(setvar"DIMSCALE" 1) 
(command"DIMSD1" "Off") 
(command"DIMSD2" "Off") 
(command"DIMSE1" "Off") 
(command"DIMSE2" "Off") 
(command"DIMSHO" "On") 
(command"DIMSOXD" "Off") 
(setvar"DIMTAD" 1) 
(setvar"DIMTDEC" 1) 
(setvar"DIMTFAC" 1) 
(command"DIMTIH" "Off") 
(command"DIMTIX" "Off") 
(setvar"DIMTM" 0) 
(command"DIMTOFL" "On") 
(command"DIMTOH" "Off") 
(command"DIMTOL" "Off") 
(setvar"DIMTOLJ" 1) 
(setvar"DIMTP" 0) 
(setvar"DIMTSZ" 0) 
(setvar"DIMTVP" 0) 
(setvar"DIMTXT" 2) 
(command"DIMTXSTY" "LT") 
(setvar"DIMTZIN" 8) 
(setvar"DIMUNIT" 2) 
(command"DIMUPT" "Off") 
(setvar"DIMZIN" 8) 
(command "undo" "end") 
(setvar "orthomode"orth) 
(setvar "osmode"os) 
(setvar"cmdecho"cm) 
(princ) 
)  [/FONT]

jxhaha · 发表于 2003-10-29 17:32:39

在标注样式中的“引线”箭头设为“实心闭合”，用“快速引线”qleader就可，不需要文字不输入就按确定便是

hejinhu · 发表于 2003-10-29 18:18:05

方法很多啊!

jindaor · 发表于 2003-10-29 18:24:39

9l楼楼长的方法是最好的

freebird_fly · 发表于 2003-10-29 20:34:05

*-*1 九楼斑竹用的是2004版，其实cad最先用在机械设计上，机械制图都是带箭头的，所以，这要是cad，不管是14，还是2000，都可以向九楼斑竹那样设置！

jxhaha · 发表于 2003-10-29 20:41:16

最初由 freebird_fly 发布
[B]*-*1 九楼斑竹用的是2004版，其实cad最先用在机械设计上，机械制图都是带箭头的，所以，这要是cad，不管是14，还是2000，都可以向九楼斑竹那样设置！ [/B]

俺什么时候成了斑竹啦～～～～

msdg · 发表于 2003-10-30 22:37:40

其实这样也可以的（可能要简单一些）！
当然若要修改剪头的长度，可在标注样式中修改。

账号		自动登录	找回密码
密码			立即注册

[求助]：如何画带箭头的标注线？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子