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) ;画箭头<BR>       ( PRINC "请选择要画箭头的直线:")<BR>       ( SETQ SS (SSGET))<BR>                       ( SETQ ENMING (SSNAME SS 0))<BR>                       ( SETQ ED (ENTGET ENMING))<BR>                       ( IF (EQUAL (CONS 0 "LINE") (ASSOC 0 ED)) <BR>                                               (PROGN <BR>                                                                       (setq p1 (cdr (assoc 10 ED))) ;依次取出每个点<BR>                                                                       (setq p2 (cdr (assoc 11 ED))) ;依次取出每个点<BR>                                                                       (setq ang       (* 57.29578       (angle p1 p2) ) )<BR>                                                                       (command "INSERT" "JTK" p1 "1" "1" (+ 180.0 ang))<BR>                                                                       (command "INSERT" "JTK" p2 "1" "1" ang)<BR>                                               )<BR>                       )


)<BR>

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

在已画好的直线两端添加箭头

<B>方法之一(在已画好的直线两端添加箭头)</B><BR>方法之一(在已画好的直线两端添加箭头),我刚写的，其中"JTK"为加入到摸板(*.dwt)中的箭头块，尖头为插入点。



( DEFUN C:JT (/ SS ENMING ED) ;画箭头<BR>       ( PRINC "请选择要画箭头的直线:")<BR>       ( SETQ SS (SSGET))<BR>                       ( SETQ ENMING (SSNAME SS 0))<BR>                       ( SETQ ED (ENTGET ENMING))<BR>                       ( IF (EQUAL (CONS 0 "LINE") (ASSOC 0 ED)) <BR>                                               (PROGN <BR>                                                                       (setq p1 (cdr (assoc 10 ED))) ;依次取出每个点<BR>                                                                       (setq p2 (cdr (assoc 11 ED))) ;依次取出每个点<BR>                                                                       (setq ang       (* 57.29578       (angle p1 p2) ) )


                                                                               (setq       bl (getreal "请输入箭头的比例"))<BR>                                                                       (command "INSERT" "JTK" p1         bl         bl         (+ 180.0 ang))<BR>                                                                       (command "INSERT" "JTK" p2       bl       bl         ang)<BR>                                               )<BR>                       )


)<BR>

席恩蒂 发表于 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线画呢还是。。。。这问题应该不是问题。
页: [1] 2
查看完整版本: 两头带箭头的直线怎样生成!