[讨论]：2004画箭头

byyw · 发表于 2003-4-18 16:20:00

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

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

×

我刚在晓东学会用mline画箭头，到2004居然发现不行：
首先可以将
mline的宽度设为0，拉动一段距离后再就没法改宽度了，只能输入点的坐标，不知道大家发现没有

Kosilin · 发表于 2003-4-18 16:27:04

那是因为你的操作或软件的问题,我的2004可以定义不同的线宽来画箭头.

yxc · 发表于 2003-4-18 18:24:02

PLINE画箭头吧

王可 · 发表于 2003-4-19 11:37:39

Mtext在2004是可以用的，没什么问题

byyw · 发表于 2003-4-21 08:58:05

谢谢，我用了mline ,原来是要用pline

keven · 发表于 2003-4-21 11:55:02

我在2002画，为什么不出来箭头呢，？
而是出来线条，就像画LINE是的，为什么呢，？

大水瓢 · 发表于 2003-4-21 16:42:41

在明经通道上有一lisp程序（附后）画箭头非常顺手！在2002中可用，2004我目前尚未使用。有兴趣的可以一试。
附：ar.lsp
(defun ureal (bit kwd msg def / inp)
(if def
  (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
      bit (* 2 (fix (/ bit 2)))
  )
  (if (= " " (substr msg (strlen msg) 1))
   (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
   (setq msg (strcat "\n" msg ": "))
  )
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)

(defun upoint (bit kwd msg def bpt / inp)
(if def
  (setq pts (strcat
         (rtos (car def))
         ","
         (rtos (cadr def))
         (if
            (and (caddr def) (= 0 (getvar "FLATLAND")))
            (strcat "," (rtos (caddr def)))
            ""
         )
         )
         msg (strcat "\n" msg "<" pts ">: ")
         bit (* 2 (fix (/ bit 2)))
  )
  (if (= " " (substr msg (strlen msg) 1))
(setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
(setq msg (strcat "\n" msg ": "))
  )
)
(initget bit kwd)
(setq inp
  (if bpt
(getpoint msg bpt)
(getpoint msg)
  )
)
(if inp inp def)
)
(setq cm(getvar "cmdecho"))
(setvar "cmdecho" 0)

(defun C:AR ( / #dwgsc w v pt1 pt2 pt3 )
(if(= arscl nil)(setq arscl 0.1875))
(setq #dwgsc(getvar "DIMSCALE")
         W(getvar "PLINEWID")
         V(getvar "OSMODE")
         L(getvar "CLAYER"))
(setq arscl(ureal 7 "" "请输入箭头长度" arscl))
(setvar "OSMODE" 1)
(setq pt1 (upoint 1 "" "指定箭头顶点" nil nil))
(setvar "OSMODE" 512)

(setq PT(entsel "\n选择直线上要画箭头一端的任意一点"))
(setq PT2(cadr PT))
(setq ED(entget(car PT)))
(setq PT3 (polar PT1 (angle PT1 PT2) (* #dwgsc arscl)))
(command "PLINE" pt1 "w" "0" (* #dwgsc (/ arscl 3)) pt3 "")
(setvar "OSMODE" V)
(setvar "CLAYER" L)
(setvar "plinewid" W)
(princ)
)
(setvar "cmdecho" cm)
(princ)

wxy5612236 · 发表于 2004-3-4 20:18:42

如何在2004内加载上面的lisp呢？？

ztgx · 发表于 2004-7-21 12:05:58

请问用mline怎么画呢？

llmin · 发表于 2005-9-17 11:00:21

我的可以用，刚试过了

shusi · 发表于 2005-9-17 11:01:08

如何加载？

唯一00 · 发表于 2005-9-17 13:04:57

mline我不会用。2004的有这个命令吗？？
帮忙说下！！！

静宜 · 发表于 2005-9-17 14:24:56

keven：选择宽度时，起点宽度和端点宽度数字要不同，不然就会画出直线。

小不点儿 · 发表于 2005-9-17 14:41:43

最初由唯一00 发布
[B]mline我不会用。2004的有这个命令吗？？
帮忙说下！！！ [/B]

看CAD帮助

冷血人 · 发表于 2005-9-17 14:47:43

也可以用快速引线的方法画呀,只要稍加设置就可以了

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

[讨论]：2004画箭头

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

相关帖子