曾经想写的绘制箭头程序，现在很简单了

illcyt

革天明 发表于 2012-2-28 21:49
是的，动态了

你好，能否写个指定图层直线端加箭头呢

革天明

illcyt 发表于 2012-12-4 08:56
你好，能否写个指定图层直线端加箭头呢

这应该比较简单啊，
记住当前图层
切换到指定层，没有就创建该层
在指定层画箭头
切换在初始图层

illcyt

革天明 发表于 2012-12-4 09:42
这应该比较简单啊，
记住当前图层
切换到指定层，没有就创建该层

你好，感谢你的关注，现在有一个想法，能否帮忙实现如下操作，请大神帮助，谢谢

革天明

illcyt 发表于 2012-12-4 12:04
你好，感谢你的关注，现在有一个想法，能否帮忙实现如下操作，请大神帮助，谢谢

传样图，，，，，

革天明

主要的已经写出来了，其它的自己搞定
;;carrot1983  http://bbs.mjtd.com/forum.php?mod=viewthread&tid=64502
   ;;选择集->图元名表
   (defun ss->elst (ss / elst)
     (setq i 0)
     (repeat (sslength ss)
       (setq elst (cons (ssname ss i) elst)
            i         (1+ i)
       )
     )
     (reverse elst)
   )
   ;;两点的中点
   (defun mpt (mpt1 mpt2)
     (polar mpt1 (angle mpt1 mpt2) (/ (distance mpt1 mpt2) 2))
   )
   (setq        ss    (ssget '((8 . "CX砂面线")))
        sslst (ss->elst ss)
        ptlst (mapcar '(lambda (x / data p1 p2 dist p0)
                         (setq data (entget x))
                         (setq p1 (cdr (assoc 10 data)))
                         (setq p2 (cdr (assoc 11 data)))
                         (setq dist (distance p2 p1))
                         (setq p0 (mpt p1 p2))
                         (list p0
                               (polar p0 (* pi 0.5) dist)
                               (polar p0 (* pi 0.5) (* 1.5 dist))
                         )
                       )
                      sslst
              )
   )
   (setq i 0)
   (repeat (length ptlst)
     (setq n (nth i ptlst))
     (entmake (list '(0 . "LEADER")
                   '(100 . "AcDbEntity")
                   '(100 . "AcDbLeader")
                   (cons 10 (car n))
                   (cons 10 (cadr n))
                   (cons 10 (caddr n))
             )
     )
     (setq i (1+ i))
   )

革天明

目前缺少箭头对齐，缺少总引线

illcyt

革天明 发表于 2012-12-4 13:58
目前缺少箭头对齐，缺少总引线

lisp新手，还需多多指导啊，不过谢谢你了

caoxinheng

要是做成实心的就更好了

lzg8877

求一个动态　箭头的代码　　求帮忙写个代码　只要箭头　不用标注　箭头变化值大概如图

start4444

革天明 发表于 2012-3-3 15:01
qleader的箭头有什么好用的地方吗？如果把第二个程序中的箭头中直线的宽度定小一些看起来和这个引线也差不 ...

qleader画的是标注引线，是带属性的，还可以选箭头的节点拉动，比用线直接画出来的箭头方便很多的。