[编程交流] 代码切一个矩形刚马

(defun c:chtest ( / a b c)
(setvar "OSMODE" 0)
(setq        a (getreal "\NNhap CHIEU RONG cong hop:"))
(setq b (getreal "\NNhap CHIEU CAO cong hop:"))
(setq c (getreal "\NNhap be rong vat mep trong:"))
(setq dv (getpoint "\NChon diem ve MC:"))
(setq dv1 (list (+ (car dv) b) (+ (cadr dv) a)))
(command ".RECTANG" dv dv1)
(command ".CHAMFER" "Distance" c c)
(command ".CHAMFER" "P" (entlast))
(princ)
)

(defun C:test ( / SS d i )
 (and (princ "\nSelect polylines to chamfer: ")
   (setq SS (ssget "_:L" '((0 . "LWPOLYLINE"))))
   (setq d (getdist "\nSpecify chamfer distance: "))
   (repeat (setq i (sslength SS))
     (_ChamferPoly (ssname SS (setq i (1- i))) d)
   ); repeat
 ); and
 (princ)
); defun
; NOTE: it Straightens the bulges
(defun _ChamferPoly ( e d / enx pts L nenx )
 (and
   (setq enx (entget e))
   (= "LWPOLYLINE" (cdr (assoc 0 enx)))
   (setq pts (apply 'append (mapcar '(lambda (x) (if (= 10 (car x)) (list (cdr x)))) enx)))
   (setq pts 
     (apply 'append
       (mapcar '(lambda (x) (list (cons 10 x) '(40 . 0.0) '(41 . 0.0) '(42 . 0.0) '(91 . 0)))
         (setq L
           (cond 
             ( (= 1 (cdr (assoc 70 enx)))
               (apply 'append 
                 (mapcar '(lambda (a b) (list (polar a (angle a b) d) (polar b (angle b a) d)))
                   pts (append (cdr pts) (list (car pts)))
                 )
               )
             )
             (T
               (apply 'append 
                 (reverse 
                   (cdr 
                     (reverse
                       (mapcar '(lambda (a b) (list (polar a (angle a b) d) (polar b (angle b a) d)))
                         pts (append (cdr pts) (list (car pts)))
                       )
                     )
                   )
                 )
               )
             )
           ); cond
         )
       )
     )
   )
   (setq nenx (apply 'append (mapcar '(lambda (x) (if (not (member (car x) '(10 40 41 42 91 210))) (list x))) enx)))
   (entmod
     (setq nenx 
       (append
         (subst (cons 90 (length L)) (assoc 90 nenx) nenx)
         pts
         (list (assoc 210 enx))
       )
     )
   )
 ); and
); defun _ChamferPoly

Your Code Here[/NOPARSE]

Your Code Here

(defun c:plcham ( / pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12) 
(setq pi2 (/ pi 2.0))
(setq pi15 (* pi 1.5))
(setq pt1 (getpoint "Pick lower left"))
(setq l (getdist pt1 "Enter length"))
(setq w (getdist pt1 "Enter height"))
(setq cham (getdist "Enter champher"))
(setq cham2 (* cham 2.0))
(setq pt2 (polar Pt1 0.0 cham))
(setq pt3 (polar pt2 0.0 (- l cham2)))
(setq pt4 (polar pt3 0.0 cham))
(setq pt5 (polar pt4 pi2 cham))
(setq pt6 (polar pt5 pi2 (- w cham2)))
(setq pt7 (polar pt6 pi2 cham))
(setq pt8 (polar pt7 pi cham))
(setq pt9 (polar pt8 pi (- l cham2)))
(setq pt10 (polar pt9 pi cham))
(setq pt11 (polar pt10 pi15 cham))
(setq pt12 (polar pt11 pi15 (- w cham2)))
(command "pline" Pt2 pt3 pt5 pt6 pt8 pt9 pt11 pt12 "c")
(princ)
)