模拟CASS命令B接着画添加了隔一点微导线功能

13648893846

模拟CASS命令B接着画添加了隔一点微导线功能(defun BF-curve-2D (ent / alist)
(setq alist (entget ent))
  (apply
    'append
    (mapcar
   '(lambda (x)
     (if (eq (car x) 10)
      (list (cdr x))
     )
    )
   alist
    )
  )
)
(defun LM:3p->bulge ( pt1 pt2 pt3 )
  (if(not (equal (angle pt1 pt2)(angle pt2 pt3) 1.0e-8))
    ((lambda ( a ) (/ (sin a) (cos a))) (/ (+ (- pi (angle pt2 pt1)) (angle pt2 pt3)) 2))
    0.0
    )
  )
(defun LC:One-by-one-pt(p1 p2 p);;;
  (trans(cons(car(trans p 0(setq p1(mapcar'- p2 p1))))(cdr(trans p2 0 p1)))p1 0)
)
(defun LC:Microwire (pt1 pt2 pt3 dis / ang1 a)
  (setq ang1 (angle pt1 pt2)
       a (abs (- (angle pt1 pt3) ang1))
       a (if (> a pi)
             (- (* pi 2) a)
             a
         )
  )
(cond
  ((<= a (* pi 0.25));延伸方向
   (polar pt2 ang1 dis)
  )
  ((and (<= (* pi 0.25) a (* pi 0.75)) (> (car (trans (mapcar '- pt3 pt1) 0 (mapcar '- pt2 pt1))) 0));左侧垂直方向
   (polar pt2 (+ ang1 (* pi 0.5)) dis)
  )
  ((and (<= (* pi 0.25) a (* pi 0.75)) (< (car (trans (mapcar '- pt3 pt1) 0 (mapcar '- pt2 pt1))) 0));右侧垂直方向
   (polar pt2 (- ang1 (* pi 0.5)) dis)
  )
  ((<= (* pi 0.75) a pi);相反方向
   (polar pt2 ang1 (- dis))
  )
)
)

13648893846

欠缺的函数在模拟X命令中

awd37

看一下看一下看一下

happy336

谢谢分享，支持

LIULISHENG

感谢开源支持