前生 发表于 2021-7-4 12:55:50

要判断顺逆，后在弄这个

2496653555 发表于 2021-8-25 11:42:13


(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 发表于 2021-8-25 11:48:52

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


LYC688 发表于 2022-9-5 02:15:40

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


两边修改R，怎么修改？

LYC688 发表于 2022-9-5 02:27:05

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


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

flfcegu168 发表于 2024-4-16 16:38:38

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))

这两行不要或前面加工分号就没有圆角了
页: 1 [2]
查看完整版本: 点选多段线自动生成凸台