[已解決]LISP中的EXTEND的寫法?

各位先進,小弟初學AUTOLISP,
想讓一條線段A (command "line" pa pb "")
(setq en1(entlast))

EXTEND到另一條建構線B(command "xline""h" pg "")
(setq en2(entlast))

最後寫到(COMMAND "EXTEND" "en2" "" "en1" "?")

問號的部分該怎麼寫呢?

指定pa或pb都是點好像不行

請各位先進指導一下,感謝
謝謝judyyai幫我修改主題顏色,謝謝

發表問題時，請在主題前請加入[問題]，顏色請指定為[藍色]，論壇管理顧問會將您的主題置頂，方便大家即時討論。


[說明]發表主題前，請遵守相關要領!
http://autocad.bestoforum.net/forum-f12/topic-t1521.htm

已幫你改過!

(COMMAND "EXTEND" "en2" "" "en1" "?")
更改成如下:
(COMMAND "EXTEND" en2 "" en1 "")

測試程式:


影片:

---

謝謝熱心圖文回覆~< 積分 +1>

[公告]關於團隊成員的回文及貢獻

謝謝明~大提供的方法,可是還是無法連線
可能是除了pa是直接點選外,其他點都是設定好跑出來的

我後來測試只要寫成
(COMMAND "EXTEND" en2 "" en1 pa "")
線段A就會連到建構線上,但是還是會顯示一次{在該方向內沒有邊緣}。
這部分我之前是寫錯,選pa時加上""所以都失敗;但寫"en2"和"en1"好像沒差

但是若寫成:
(COMMAND "EXTEND" en2 "" en1 pb "")
則不會連上,且會顯示兩次{在該方向內沒有邊緣}。

雖然最後是連上了,但總覺得程式怪怪的,先貼出來請各位幫忙看看,謝謝
程式其實未完成,應該對一些需要輸入的變數作if或是cond或是while,否則會有錯
但是我才學到那邊而已,還沒寫入,所以大大們要輸入可以先輸入
行程:5
直徑:30
旋轉角度:90
槽寬:4
擴孔角度:8

代碼:


(defun c:cam()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq pa(getpoint "請輸入原點"))
  (setq x(getreal "\n 請輸入行程"))
  (setq d(getreal "\n 請輸入直徑"))
  (setq ang1(getreal "\n 請輸入旋轉角度"))
  (setq r1(getreal "\n 請輸入槽寬"))
  (setq ang3(getreal "\n 請輸入擴孔角度="))
  (setq y(polar pa (* pi 1.5) (* d (/ ang1 360) pi)))
  (setq pb(polar y 0 x))
  (command "line" pa pb "")
  (setq en1(entlast))
  (setq ang2(atan x (* d (/ ang1 360) pi)))
  (setq pc(polar pa ang2 (/ r1 2)))
  (setq pd(polar pa (+ ang2 pi) (/ r1 2)))
  (command "arc" "c" pa pc pd)
  (setq pe(polar pb ang2 (/ r1 2)))
  (setq pf(polar pb (+ ang2 pi) (/ r1 2)))
  (command "arc" "c" pb pf pe)
  (command "line" pc pe "")
  (command "line" pd pf "")
  ;以下是擴孔
  (setq pg(polar pa (/ pi 2) (* pi (/ ang3 360) d)))
  (command "xline""h" pg "")
  (setq en3(entlast))
  ;;(setvar "osmode" 0)
  (command "extend" en3 "" en1 pa "")
  ;;(setvar "osmode" 1)
   
  (prin1)
)


謝明~大,補上圖片

我是依你提供的條件寫的~

你還是貼出你要的圖形和標示出各點的變數名稱
讓別人來檢察,你程式有些地方錯誤~

剛剛看了一些例題,總算是解決了
關於extend的用法,其實和trim類似
(command "extend" en3 "" en1 pa "")
這行改為
(command "extend" en3 "" (list en1 pa) "")
多個list就沒有{在該方向內沒有邊緣}的訊息了

雖然知道這樣寫,但對於list這個函數的用法還是不太明白
書上是寫list是{將任意數目或元素的表示式組合成一個串列}
所以我大概是這麼解釋的:
使用extend會先選要延伸到的物件en3,再選需要延伸的物件en1
但由於需要選en1要延伸的方向,所以要再點靠pa附近才會延伸
所以extend要有2個元素
若沒有list寫成(command "extend" en3 "" en1 pa "")
就有en3,en1,pa等3個元素
所以要利用list將en1和pa結合成1個元素(串列?)就沒問題了

不知道我這樣解釋對不對?請各位指導,謝謝.

你的程式我整理了一下:

代碼:


(defun c:cam(/ pa x d ang1 r1 ang3 y pb en1 ang2 pc pd pe pf pg en3)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq pa(getpoint "請輸入原點:"))
  (setq x(getreal "\n 請輸入行程:"))
  (setq d(getreal "\n 請輸入直徑:"))
  (setq ang1(getreal "\n 請輸入旋轉角度="))
  (setq r1(getreal "\n 請輸入槽寬:"))
  (setq ang3(getreal "\n 請輸入擴孔角度="))
  (setq y(polar pa (* pi 1.5) (* d (/ ang1 360) pi)))
  (setq pb(polar y 0 x))
  (setq ang2(atan x (* d (/ ang1 360) pi)))
  (setq pc(polar pa ang2 (/ r1 2)))
  (setq pd(polar pa (+ ang2 pi) (/ r1 2)))
  (setq pe(polar pb ang2 (/ r1 2)))
  (setq pf(polar pb (+ ang2 pi) (/ r1 2)))
  ;以下是擴孔
  (setq pg(polar pa (/ pi 2) (* pi (/ ang3 360) d)))
  (setvar "osmode" 0)
  (command "line" pa pb "")
  ;(setq en1(entlast));;不需要寫
  (command "arc" "c" pa pc pd)
  (command "arc" "c" pb pf pe)
  (command "line" pc pe "")
  (command "line" pd pf "")
  (command "xline" "h" pg "")
  (setq en3(entlast))
  (command "extend" en3 "" pa "")
  (setvar "osmode" 1)
  (setvar "cmdecho" 1)
  (princ)
)


執行影片:

謝謝明~大的整理和實際操作的影片
原來也可以不點線,直接選點去extend
又多了一種方法
主要extend寫法的問題已經解決了,謝謝