两头带箭头的直线怎样生成!
请教各位高手,请问两头带箭头的直线怎样生成!平时我都是用标注线来模拟,将文字的大小设的很小很小,并且去掉边界线,请问您有没有直接的线型可以生成,或用程序的方法来解决!(抱歉,我不会编写线形程序) 用PL试试。 方法之一(在已画好的直线两端添加箭头),我刚写的,其中"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)
)
)
)
楼上发的贴子怎么用啊?好象不是直接的方法!我的意思是能否直接生成,之后通过更改线形比例来改变箭头的大小!可以吗? 要加载的,把程序复制到acad.lsp中,启动AutoCAD,在命令行中输入JT回车。 方法之一(在已画好的直线两端添加箭头)
方法之一(在已画好的直线两端添加箭头),我刚写的,其中"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)
)
)
)
用多段线画。 指令QLEADER→在第二次next point提示时回应ENTER→完成后以MIRROR镜像为两端有箭头的直线。 直接在标注设定中调节箭头大小,标注后炸开,然后删除尺寸,多方便 其实大家都听不懂楼主的真正意思,我也听不懂,是指用PL线画呢还是。。。。这问题应该不是问题。
页:
[1]