点选多段线自动生成凸台

前生

要判断顺逆，后在弄这个

2496653555

(defun c:99 ( / A p1 p2 p3 jl p4 ang)
(command "ucs" "w")
        (setq os (getvar "osmode"))
        (setvar "osmode" 512)
        (princ "\n画凸台,顺时在外,逆时在内")
       
  (If (= (setq A (getreal "\n外移量A<0.03>=")) nil)
      (setq A 0.03)
        )
(setq ss (entsel))

   (setq p1 (getpoint"\n输入矩形的一个角点:"))
   (setq p3 (getpoint"\n输入矩形的另一个角点:"))
   (command "BREAK" ss "f" p1 p3)
   (setq jl (distance p1 p3));两点距
   (setq ang (angle p1 p3)) ;X轴角度
   (setq P2 (polar p1 (- ang (* 0.15 pi)) (* A (sqrt 2.0))))   
   (setq p4 (polar p3 (- ang (* 0.85 pi)) (* A (sqrt 2.0))))
   (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(62 . 1)
                (cons 90 3) (cons 10 p1) (cons 10 p2) (cons 10 p4) (cons 10 p3))) ;90 线段数
                               
   (setq FILLETRAD "0.15")
   (command "fillet"(cadr(nentselp p1))(cadr(nentselp p4))
(cadr(nentselp p3))(cadr(nentselp p2)))
        (setvar "osmode" os)
        jl
);改成了手动点的，后面怎么加上圆角了，一直没弄出来

2496653555

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\584817306\QQ\WinTemp\RichOle\Y128~_HVOH0`VN)11@_MC1E.png[/img]

LYC688

yshf 发表于 2020-12-11 16:30
(defun c:sctt()
  (vl-load-com)
  (setvar "cmdecho" 0)

两边修改R，怎么修改？

LYC688

yshf 发表于 2020-12-11 16:30
(defun c:sctt()
  (vl-load-com)
  (setvar "cmdecho" 0)

怎么只能在X轴，4边都可以就更好了

flfcegu168

2496653555 发表于 2021-8-25 11:42
(defun c:99 ( / A p1 p2 p3 jl p4 ang)
(command "ucs" "w")
        (setq os (getvar "osmode"))

  ; (setq FILLETRAD "0.15")
  ; (command "fillet"(cadr(nentselp p1))(cadr(nentselp p4))

这两行不要或前面加工分号就没有圆角了