请教椭圆要怎样实现.

sanji14

自贡黄明儒

封闭多段线，

sanji14

自贡黄明儒 发表于 2015-4-9 16:09
封闭多段线，

对呀,可以实现这功能吗/

donghuidong2003

这个可以，但是不是输入4这个尺寸，而是要输长孔的总长

sanji14

donghuidong2003 发表于 2015-4-11 12:44
这个可以，但是不是输入4这个尺寸，而是要输长孔的总长

;
这个是我之前的程序,但不能输入U圆长度,可以帮我改下吗?

制做扣位沉頭 command c:GF


(defun C:GF (/ en midpt endpt1 endpt2 pt1 pt2 pt3 pt4 pt5 pt6)
  (setvar "cmdecho" 0)
  (setq en (entsel "\n選取要做扣位沉頭的直邊... "))
  (if en
    (progn
      (setq endata (entget (car en)))
      (setq entyp (cdr (assoc 0 endata)))
      (cond ((= entyp "LINE") (sub-GG))
            ((= entyp "LWPOLYLINE") (sub-GG))
            (t (Princ "\n制做扣位沉頭失敗!"))
      )
    )
    (Princ "\n空操作!")
  )
  (prin1)
)

(defun sub-GG ()
  (setq midpt (osnap (cadr en) "mid"))
  (setq endpt1 (osnap midpt "end"))
  (setq        endpt2 (polar endpt1
                      (angle endpt1 midpt)
                      (* (distance endpt1 midpt) 2.0)
               )
  )
  (setq        pt1 endpt1
;;;         (getpoint "\nEnter first point:")
  )
  (setq        pt2 endpt2
;;;         (getpoint "\nEnter second point:")
  )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt3 (polar pt1 (+ (angle pt1 pt2) (* pi 0.5)) 2))
  (setq pt4 (polar pt2 (+ (angle pt1 pt2) (* pi 0.5)) 2))
  (setq pt5 (polar pt1 (- (angle pt1 pt2) (* pi 0.5)) 2))
  (setq pt6 (polar pt2 (- (angle pt1 pt2) (* pi 0.5)) 2))
  (command "pline" pt3 pt4 "a" pt6 "l" pt5 "a" "cl")
  (setvar "osmode" os)
  (Princ "\n-----------Bye c:GG 制做扣位沉頭------------")
)

;;;;;;;;

*************************************************************************