AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.

LISP-求剖面直線角度穩定

2 posters

向下

LISP-求剖面直線角度穩定 Empty LISP-求剖面直線角度穩定

發表 由 Grace.Hsu 2022-07-22, 17:30

各位前輩好~
小蝦向知道為何自己的剖線始終無法斜角直線= =....一直抓不出來角度問題點,想請前輩們給予指教>"<~ 感動

(DEFUN C:CAS0719()
(setq cir 12
cir2 (* cir 0.5)
       bc (getpoint "\n START line 1 point:")
       bp1 (getpoint bc "\n END line 2 point:")
       Bp2 (getpoint BP1"\n direction:")
      )
 (setq p1 (cal "Bc+nor(bP1,bp2)*cir2")
       p2 (cal "rot(p1,bc,-45)")
       p3 (cal "P2+nor(bc,P2)*cir2")
       PR (inters BC p1 p2 p3 nil)
       h (distance BC PR )
)
(setq A (cal "ang(BC,BP1,BP2)"));;ang (apex,p1,p2),ang(BP2,BC,BP1)
(if (> A 5 45 90 180 )
   (setq way +1 )
   (setq way -1 )
 )
(setq AA (cal "ang(BC,BL1,BL2)"))
(IF (> AA 5 90 180)
  (setq way1 +1 )
  (setq way1 -1 )
  )
(SETQ BL1 (CAL "PLD(BP1,BC,CIR2)")
         BL2 (CAL "BP1+NOR(BL1,BP1)*H*WAY1")
      )
(COMMAND "circle" Bc (* CIR2))
   (setq p4 (cal "PLD(BC,BP1,H)")
           p5 (cal "rot(p2,bc,-45)")
           p6 (cal "rot(p5,bc,-45)")
            P61 (cal "rot(p3,bc,-90)")
            P3 (cal "P6-nor(bc,P6)*cir2*WAY")
            P7 (cal "rot(p6,bc,-45)")
             P8 (cal "rot(p7,bc,-45)")
            P9 (cal "rot(p8,bc,-45)")
            P10 (cal "rot(p9,bc,-45)")
            P11 (cal "rot(p10,bc,-45)")
            P12 (CAL "PLD (P7,P11,1/2)")
       )
(COMMAND "PLINE" P3 p7 "A" "S" P5 P11 "L" PR  P61 "C" "" )
 (command "LAYER" "M" "MARK" "C" "2" "MARK" "")
 (setvar "CECOLOR" "2")
 (setq p (entlast) )
 (command "hatch" "P" "solid" "s" P "")
(COMMAND "Line" p11 p7 "")
(setq
      V1 (CAL "PLD(BP1,BC,CIR2*0.4)");V1 (CAL "BP1+NOR(P12,BP1)*H")
      V2 (CAL "PLD(BC,BP1,H)");;V2 (CAL "PLD(PR,BP1,H*2)")
      V3 (CAL "PLD(V2,BP1,CIR)")
      V4 (CAL "PLD(V3,BP1,-CIR2)")
      V5 (CAL "PLT(V4,V3,1/3)")
      V6 (CAL "PLT(V5,V2,1/2)")
      V7 (CAL "PLD(BP1,V1,CIR2)")
      V8 (CAL "PLD(V7,V1,-CIR2)")
      V9 (CAL "PLT(V8,V7,1/3)")
      V10 (CAL "PLT(V9,V7,1/2)")
      )
(COMMAND "PLINE" BP1 BL2 V1 "C" )
(COMMAND "LINE" V2 V6 "" "LINE" V4 V5 "" "LINE" V9 V10 "" "LINE" V7 V1 "" "PLINE" BP1 BL2 V1 "C" )
(command "LAYER" "M" "MARK" "C" "2" "MARK" "")
(setvar "CECOLOR" "2")
(setq O (entlast))
(command "hatch" "P" "solid" "s" O "")
Grace.Hsu
Grace.Hsu
一般會員
一般會員

文章總數 : 6
年齡 : 32
來自 : 高雄市
職業 : 工程設計
愛好 : 運動
個性 : 直爽
使用年資 : 1
使用版本 : 2015
經驗值 : 161
威望值 : 0
注冊日期 : 2022-05-26
女 水瓶座 馬

回頂端 向下

LISP-求剖面直線角度穩定 Empty 回復: LISP-求剖面直線角度穩定

發表 由 Tiger&蘋果爸 2022-07-25, 10:17

👇因為你重複發表文章,請回到原文章討論😅
https://www.autocad-tw.com/t26273-topic
註:此文章稍後刪除。

____________________________________________________________________________________
👉[訂購]AutoCAD圖層大師課程(點我)...全新到貨👈
LISP-求剖面直線角度穩定 Sesa2011 LISP-求剖面直線角度穩定 Youtub11 LISP-求剖面直線角度穩定 Oiea2011 LISP-求剖面直線角度穩定 Oe20011 LISP-求剖面直線角度穩定 Fbi20011 LISP-求剖面直線角度穩定 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 20357
年齡 : 46
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 83412
威望值 : 16184
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
LISP-求剖面直線角度穩定 Ioaoe110 LISP-求剖面直線角度穩定 2020-310 LISP-求剖面直線角度穩定 Oiu15010 LISP-求剖面直線角度穩定 2020-211 LISP-求剖面直線角度穩定 Ia15010 LISP-求剖面直線角度穩定 Aizyao10
LISP-求剖面直線角度穩定 Uos15010 LISP-求剖面直線角度穩定 BPl3tjj LISP-求剖面直線角度穩定 Ziao1510 LISP-求剖面直線角度穩定 Oo-2-110 LISP-求剖面直線角度穩定 Zuoiy_10 LISP-求剖面直線角度穩定 Aizyao11
LISP-求剖面直線角度穩定 Aoe1-111 LISP-求剖面直線角度穩定 Uos15011 LISP-求剖面直線角度穩定 RQvAhqF LISP-求剖面直線角度穩定 YdKelqY LISP-求剖面直線角度穩定 K410yWG