两头带箭头的直线怎样生成!

stivenyu · 发表于 2004-11-16 21:54:00

请教各位高手,请问两头带箭头的直线怎样生成!

平时我都是用标注线来模拟,将文字的大小设的很小很小,并且去掉边界线,请问您有没有直接的线型可以生成,或用程序的方法来解决!(抱歉,我不会编写线形程序)

zl-sir · 发表于 2004-11-16 22:15:00

用PL试试。

xqyhome · 发表于 2004-11-17 13:47:00

方法之一(在已画好的直线两端添加箭头),我刚写的，其中"JTK"为加入到摸板(*.dwt)中的箭头块，尖头为插入点。 ( DEFUN C:JT (/ SS ENMING ED) ;画箭头
( PRINC "请选择要画箭头的直线:")
( SETQ SS (SSGET))
( SETQ ENMING (SSNAME SS 0))
( SETQ ED (ENTGET ENMING))
( IF (EQUAL (CONS 0 "LINE") (ASSOC 0 ED))
(PROGN
(setq p1 (cdr (assoc 10 ED))) ;依次取出每个点
(setq p2 (cdr (assoc 11 ED))) ;依次取出每个点
(setq ang (* 57.29578 (angle p1 p2) ) )
(command "INSERT" "JTK" p1 "1" "1" (+ 180.0 ang))
(command "INSERT" "JTK" p2 "1" "1" ang)
)
) )

stivenyu · 发表于 2004-11-17 15:39:00

楼上发的贴子怎么用啊？好象不是直接的方法！我的意思是能否直接生成，之后通过更改线形比例来改变箭头的大小！可以吗？

xqyhome · 发表于 2004-11-17 16:41:00

要加载的，把程序复制到acad.lsp中，启动AutoCAD，在命令行中输入JT回车。

xqyhome · 发表于 2004-11-17 16:52:00

方法之一(在已画好的直线两端添加箭头)
方法之一(在已画好的直线两端添加箭头),我刚写的，其中"JTK"为加入到摸板(*.dwt)中的箭头块，尖头为插入点。 ( DEFUN C:JT (/ SS ENMING ED) ;画箭头
( PRINC "请选择要画箭头的直线:")
( SETQ SS (SSGET))
( SETQ ENMING (SSNAME SS 0))
( SETQ ED (ENTGET ENMING))
( IF (EQUAL (CONS 0 "LINE") (ASSOC 0 ED))
(PROGN
(setq p1 (cdr (assoc 10 ED))) ;依次取出每个点
(setq p2 (cdr (assoc 11 ED))) ;依次取出每个点
(setq ang (* 57.29578 (angle p1 p2) ) ) (setq bl (getreal "请输入箭头的比例"))
(command "INSERT" "JTK" p1 bl bl (+ 180.0 ang))
(command "INSERT" "JTK" p2 bl bl ang)
)
) )

席恩蒂 · 发表于 2004-11-17 18:48:00

用多段线画。

Joseflin · 发表于 2004-11-18 12:45:00

指令QLEADER→在第二次next point提示时回应ENTER→完成后以MIRROR镜像为两端有箭头的直线。

ylin012 · 发表于 2004-11-18 15:53:00

直接在标注设定中调节箭头大小，标注后炸开，然后删除尺寸，多方便

xstlf · 发表于 2004-12-8 15:07:00

其实大家都听不懂楼主的真正意思，我也听不懂，是指用PL线画呢还是。。。。这问题应该不是问题。

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