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

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)
   )
   )
)