[LISP程序]：一个LISP小工具,(折断线)

coco25825

;    =============================================
;    |             截断线自动绘制软件            |
;    |         版本: V1.1   作者: 尉迟俊岭       |
;    =============================================
(defun C:jdx(/ lay pt1 pt2 dis x1 pt3 pt4 pt5 pt6 scale)
  (setvar "CMDECHO" 0)
  (setq lay (getvar "clayer"))
  (command "color" "bylayer")
  (command "layer" "m" "jdx" "c" "m" "jdx" "")
  (setq scale (getreal "\nScale<1>:"))
  (if (= scale nil) (setq scale 1))
  (setq pt1 (getpoint "\nFirst point:"))
  (setq pt2 (getpoint pt1 "\nSecond point:"))
  (setq ang (angle pt1 pt2))
  (setq dis (distance pt1 pt2))
  (setq x1 (/ (- dis (* 2 scale)) 2))
  (setq pt3 (polar pt1 ang x1))
  (setq pt4 (polar pt1 ang (+ x1 (* 2 scale))))
  (setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 scale)))
  (setq pt6 (polar pt4 (- ang 1.81577) (* 2.0616 scale)))
  (command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 "")
  (command "layer" "s" lay "")
  (princ)(princ)
)   

大家看看这个有没有问题

ajing_sky

顶下吧，支持楼主！

littleq

不明白市什么样的折线

longxianhua

是用C语言的啊,我现在还只会LSP,就不下了!!

zhbzhbzhb

这个跟pe里面那个加点的有什么区别啊？