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.

求剖面直線角度穩定

3 posters

向下

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

發表 由 Grace.Hsu 2022-07-21, 09:28

愛哭 愛哭 愛哭
各位版上的前輩好~
小蝦自學LISP中遇到困難,一直搞不懂使剖面線段可以穩定於不同角度唯一直線,在裡面設置的IF CAL' ANG不太理解,想請各位大大指點迷津>~<



(DEFUN C:S07()
(setq cir 12
cir2 (* cir 0.5)
TT 2.5
T1 2
       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)"))
(if (> A PI )
   (setq way +1)
   (setq way -1)
 )
(SETQ BL1 (CAL "PLD(BP1,BC,H)")
   
     BL2 (CAL "ROT(BL1,BP1,-90)")
     BA (cal "ang(BP1,BP2,BC)"))
(IF (> BA 1)
  (SETQ BA -90)
  (SETQ BA +90)
)

(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)")
 PT1 (CAL "PLT (P6,BC,1/2)")
 PT2 (CAL "PLT (P2,BC,1/2)")
 PT3 (CAL "PLT (PT2,PT1,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 "" "LINE" P12 P13 "" "LINE" P15 P14 "")  



(setq V1 (CAL "PLD(BP1,BC,CIR2*0.4)")
      V2 (CAL "PLD(BC,BP1,H)")
      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 "")
)
附件
求剖面直線角度穩定 Attachment
S07.zip 您無權下載這里的附件。(1 Kb) 下載 1 次
Grace.Hsu
Grace.Hsu
一般會員
一般會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 2022-07-22, 11:43

IF函數是單一條件
(IF 條件表達式 是表達式 [否表達式] )
函數先檢查條件表達式,若其傳回值為 T,便會執行其後的是表達式

CAL指令是內建計算機
在指令提示下或在指令中演算數學和幾何表示式。
CAL 是一個線上幾何計算器,可演算點 (向量)、實數或整數表示式。表示式可以使用 CEN、END 和 INS 等物件鎖點函數來存取既有幾何圖形。

不太明白你的問題剖面直角唯一角度問題😅

____________________________________________________________________________________
👉[好康]加入專屬B取得大補帖及看2D+3D課程(點我)👈
求剖面直線角度穩定 Sesa2011 求剖面直線角度穩定 Youtub11 求剖面直線角度穩定 Oiea2011 求剖面直線角度穩定 Oe20011 求剖面直線角度穩定 Fbi20011 求剖面直線角度穩定 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 20428
年齡 : 46
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 83897
威望值 : 16216
注冊日期 : 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

回頂端 向下

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

發表 由 naruto018 2022-07-23, 21:08

取得角度 (CAL 指令)
ang(apex,p1,p2)
取得線段 (apex,p1) 與線段  (apex,p2) 的夾角。
求剖面直線角度穩定 GUID-CAC31210-EA23-4762-9E4E-9B54059268A1

我也看不懂你的問題
可以把你有問題程式碼的部分圈出來
或是妳想要的結果與程式產生的結果的比較,用圖片等方式呈現
可以讓人比較知道你的問題在哪裡
naruto018
naruto018
中級會員
中級會員

文章總數 : 194
年齡 : 30
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 3639
威望值 : 536
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

Tiger&蘋果爸 and Grace.Hsu like this post

回頂端 向下

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

發表 由 Grace.Hsu 2022-07-26, 10:50

= =謝謝兩位前輩的提醒,出使用網站還不太熟.... 求剖面直線角度穩定 1f605
Grace.Hsu
Grace.Hsu
一般會員
一般會員

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

回頂端 向下

回頂端


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