[求助]动态画个的顶针

ygrzz

真不好意思老提问题~~
谁来作个动态的画台肩型顶针
输入插入点和长度，
顶针屁股就定个10毫米大，3毫米深吧

xbtang

可以參考一下﹐我這個是用來畫五金模頂針的﹐比較粗糙﹐或者修改一下能夠用上。

ygrzz

粗看是够粗糙的，连局部变量也没加
估计这程序出土年代较9的，没程序指定的图层还运行不了
不过肯定没动态效果的，据说要使用grread函数的动态

ygrzz

;;; ---------------------------
(defun c:3w (/ p1 p2 dis widf os p3 p4 p5 p6 wid4)
    (setq p1 (getpoint "\n>请指定插入点:"))
    (setq p2 (getpoint p1 "\n>>请指定拉伸点:"))
    (setq dis (distance p1 p2))
    (setq widf wid3)
    (if (null widf)
        (setq widf 100.0)
    )
    (setq wid3 (getdist p1 (strcat "\n>>>输入半宽度(可点取)┗┛默认< " (rtos widf)
                                  " >... : "
                           )
               )
    )
    (if (null wid3)
        (setq wid3 widf)
    )
    (setq os (getvar "osmode"))
    (setvar "osmode" 4151)
    (setq p3 (polar p1 (+ (angle p1 p2) (* pi 0.5)) wid3))
    (setq p4 (polar p2 (+ (angle p1 p2) (* pi 0.5)) wid3))
    (setq p5 (polar p1 (- (angle p1 p2) (* pi 0.5)) wid3))
    (setq p6 (polar p2 (- (angle p1 p2) (* pi 0.5)) wid3))
    (setvar "cmdecho" 0)
    (command "line" "non" p3 "non" p4 "non" p6 "non" p5 "")
    (setvar "osmode" os)
    (setq wid4 (* wid3 2))
    (princ (strcat "\nok！^.^ 3W_已完成！┗┛:" (rtos wid4) "×"
                   (rtos dis)
           )
    )
    (princ)
)
;;;这是一个画3包围形的，能不能改成指定第2点的时候动态出现3包围形？？
当然搞动态的有点作秀的成分，但有难度啊

mccad

自己用动态图块来做，连程序都不需要，全动态的拖动，应该会更适合。

ygrzz

哈说实话我用CAD从没碰过块~~~（非正规）