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選集的問題 Aoe1-113*[討論]問一個有關於LISP選集的問題 Ioaoe110*[討論]問一個有關於LISP選集的問題 2020-310*[討論]問一個有關於LISP選集的問題 Oiu15010*[討論]問一個有關於LISP選集的問題 2020-211*[討論]問一個有關於LISP選集的問題 Ia15010*[討論]問一個有關於LISP選集的問題 Aizyao10*[討論]問一個有關於LISP選集的問題 Uos15010*[討論]問一個有關於LISP選集的問題 BPl3tjj*[討論]問一個有關於LISP選集的問題 Ziao1510
*[討論]問一個有關於LISP選集的問題 Aoe15010*[討論]問一個有關於LISP選集的問題 Oo-2-110*[討論]問一個有關於LISP選集的問題 Zuoiy_10*[討論]問一個有關於LISP選集的問題 Aizyao11*[討論]問一個有關於LISP選集的問題 Iyb_1510*[討論]問一個有關於LISP選集的問題 Aoe1-112*[討論]問一個有關於LISP選集的問題 Uos15011*[討論]問一個有關於LISP選集的問題 Aoe2da10*[討論]問一個有關於LISP選集的問題 Aoe2da11*[討論]問一個有關於LISP選集的問題 Aoe10

*[討論]問一個有關於LISP選集的問題

3 posters

向下

*[討論]問一個有關於LISP選集的問題 Empty *[討論]問一個有關於LISP選集的問題

發表 由  2009-01-22, 00:32

有人能幫我看看我是哪邊寫錯嗎
想寫一個多線段轉弧的小程式
不過在選擇物件時
如果是用框選的都沒反應
我測試過單選物件都OK

(setq os (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n選取物件")
(setq joinarc_ss (ssget))
(setq joinarc_n 0)
(repeat (sslength joinarc_ss)
(setq joinarc_en (ssname joinarc_ss joinarc_n))
(setq joinarc_endata (entget joinarc_en))
(cond ((= (cdr (assoc 0 joinarc_endata)) "LINE") (joinarc_line))
(t nil)
) ;_ 結束 cond
(setq joinarc_n (1+ joinarc_n))
(cond ((= joinarc_n 1)
(progn
(setq pt1 joinarc_str10)
(setq pt2 joinarc_end11)
))
(t
(progn
(setq pt3 joinarc_str10)
(setq pt4 joinarc_end11)
(cond ((and (= (car pt3) (car pt2)) (= (cadr pt3) (cadr pt2)))
(progn
(command "arc" pt1 pt3 pt4)
(setq pt2 pt4)
))
(t (setq joinarc_n 0))
);結束cond
))
);結束cond
) ;_ 結束 repeat
(setvar "osmode" os)
(prin1)


judyyai 在 2009-06-28, 10:54 作了第 7 次修改 (原因 : 圖片顯示不出來~發問者要求修正主題)
avatar
初級會員
初級會員

文章總數 : 42
年齡 : 44
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 一般
使用年資 : 10幾年
使用版本 : 2008
積分 : 1
經驗值 : 5961
威望值 : 43
注冊日期 : 2008-10-20
男 雙子座 猴

https://www.facebook.com/?ref=logo#!/group.php?gid=14518553218008

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由 阿希 2009-01-22, 08:45

文中欠缺(joinarc_line) 副程式 ~ 能否貼上來檢視 ?

可以用 IF 函數解決的內容為何都用COND ?
avatar
阿希
高級會員
高級會員

文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6777
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由  2009-01-22, 09:21

阿希 寫到:文中欠缺(joinarc_line) 副程式 ~ 能否貼上來檢視 ?

可以用 IF 函數解決的內容為何都用COND ?

(defun joinarc_line ()
(setq joinarc_str10 (cdr (assoc 10 joinarc_endata)))
(setq joinarc_end11 (cdr (assoc 11 joinarc_endata)))
)

IF、WHILE、COND 這三個函數我也還不太了解怎麼用
我的習慣是寫一部份程式後就測試
有試著用WHILE函數寫
不過在跑的時候
電腦常常死當
avatar
初級會員
初級會員

文章總數 : 42
年齡 : 44
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 一般
使用年資 : 10幾年
使用版本 : 2008
積分 : 1
經驗值 : 5961
威望值 : 43
注冊日期 : 2008-10-20
男 雙子座 猴

https://www.facebook.com/?ref=logo#!/group.php?gid=14518553218008

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由 阿希 2009-01-22, 09:52

霖 寫到:
阿希 寫到:文中欠缺(joinarc_line) 副程式 ~ 能否貼上來檢視 ?

可以用 IF 函數解決的內容為何都用COND ?

(defun joinarc_line ()
(setq joinarc_str10 (cdr (assoc 10 joinarc_endata)))
(setq joinarc_end11 (cdr (assoc 11 joinarc_endata)))
)

IF、WHILE、COND 這三個函數我也還不太了解怎麼用
我的習慣是寫一部份程式後就測試
有試著用WHILE函數寫
不過在跑的時候
電腦常常死當



IF (當你答案只有兩種的時候)
如果 A+B >C -----------------------------------LISP表示 (IF (> (+ A B) C)
成立執行-----------------------------------------------(成立時表示式)
不成立執行---------------------------------------------(不成立表示式) PS:不成立表示式可省略不執行
-------------------------------------------------------------);結束IF


COND (當你答案可能有三種以上時)
如果你有錢會做啥
有一百萬 ~~買車
有一千萬~~買房子
有一兆 ~~ .....
.
.

WHILE
跟IF差不多
只是一樣東西一在迴圈內 ~ 成立時就執行,一直到不成立時才離開迴圈
avatar
阿希
高級會員
高級會員

文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6777
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由  2009-01-22, 10:10

阿希 寫到:
霖 寫到:
阿希 寫到:文中欠缺(joinarc_line) 副程式 ~ 能否貼上來檢視 ?

可以用 IF 函數解決的內容為何都用COND ?

(defun joinarc_line ()
(setq joinarc_str10 (cdr (assoc 10 joinarc_endata)))
(setq joinarc_end11 (cdr (assoc 11 joinarc_endata)))
)

IF、WHILE、COND 這三個函數我也還不太了解怎麼用
我的習慣是寫一部份程式後就測試
有試著用WHILE函數寫
不過在跑的時候
電腦常常死當



IF (當你答案只有兩種的時候)
如果 A+B >C -----------------------------------LISP表示 (IF (> (+ A B) C)
成立執行-----------------------------------------------(成立時表示式)
不成立執行---------------------------------------------(不成立表示式) PS:不成立表示式可省略不執行
-------------------------------------------------------------);結束IF


COND (當你答案可能有三種以上時)
如果你有錢會做啥
有一百萬 ~~買車
有一千萬~~買房子
有一兆 ~~ .....
.
.

WHILE
跟IF差不多
只是一樣東西一在迴圈內 ~ 成立時就執行,一直到不成立時才離開迴圈

大概了解這三個函數的用法了
非常感謝QQ
avatar
初級會員
初級會員

文章總數 : 42
年齡 : 44
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 一般
使用年資 : 10幾年
使用版本 : 2008
積分 : 1
經驗值 : 5961
威望值 : 43
注冊日期 : 2008-10-20
男 雙子座 猴

https://www.facebook.com/?ref=logo#!/group.php?gid=14518553218008

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由 Tiger&蘋果爸 2009-01-22, 10:14

阿希 寫到:IF (當你答案只有兩種的時候)
如果 A+B >C -----------------------------------LISP表示 (IF (> (+ A B) C)
成立執行-----------------------------------------------(成立時表示式)
不成立執行---------------------------------------------(不成立表示式) PS:不成立表示式可省略不執行
-------------------------------------------------------------);結束IF


COND (當你答案可能有三種以上時)
如果你有錢會做啥
有一百萬 ~~買車
有一千萬~~買房子
有一兆 ~~ .....
.
.

WHILE
跟IF差不多
只是一樣東西一在迴圈內 ~ 成立時就執行,一直到不成立時才離開迴圈
******************************************************
謝謝熱心回覆~< 積分 +1>

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

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
*[討論]問一個有關於LISP選集的問題 Sesa2011 *[討論]問一個有關於LISP選集的問題 Youtub11 *[討論]問一個有關於LISP選集的問題 Oiea2011 *[討論]問一個有關於LISP選集的問題 Oe20011 *[討論]問一個有關於LISP選集的問題 Fbi20011 *[討論]問一個有關於LISP選集的問題 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21320
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 89999
威望值 : 17174
注冊日期 : 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選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由 阿希 2009-01-22, 11:20

看不到您上傳的圖片喔
avatar
阿希
高級會員
高級會員

文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6777
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

*[討論]問一個有關於LISP選集的問題 Empty 回復: *[討論]問一個有關於LISP選集的問題

發表 由  2009-01-22, 12:39

修該前-
*[討論]問一個有關於LISP選集的問題 J0169a
http://www.wretch.cc/album/show.php?i=lin19800617&b=1&f=1586799665&p=0
修改後-
*[討論]問一個有關於LISP選集的問題 J0169b
http://www.wretch.cc/album/show.php?i=lin19800617&b=1&f=1586799666&p=1

希望可以寫個小工具做到這樣的功能


Tiger&amp;蘋果爸 在 2009-01-22, 14:01 作了第 1 次修改 (原因 : 補上貼圖)
avatar
初級會員
初級會員

文章總數 : 42
年齡 : 44
來自 : 台北
職業 : 工程師
愛好 : 電腦
個性 : 一般
使用年資 : 10幾年
使用版本 : 2008
積分 : 1
經驗值 : 5961
威望值 : 43
注冊日期 : 2008-10-20
男 雙子座 猴

https://www.facebook.com/?ref=logo#!/group.php?gid=14518553218008

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
*[討論]問一個有關於LISP選集的問題 Aoe1-113*[討論]問一個有關於LISP選集的問題 Ioaoe110*[討論]問一個有關於LISP選集的問題 2020-310*[討論]問一個有關於LISP選集的問題 Oiu15010*[討論]問一個有關於LISP選集的問題 2020-211*[討論]問一個有關於LISP選集的問題 Ia15010*[討論]問一個有關於LISP選集的問題 Aizyao10*[討論]問一個有關於LISP選集的問題 Uos15010*[討論]問一個有關於LISP選集的問題 BPl3tjj*[討論]問一個有關於LISP選集的問題 Ziao1510
*[討論]問一個有關於LISP選集的問題 Aoe15010*[討論]問一個有關於LISP選集的問題 Oo-2-110*[討論]問一個有關於LISP選集的問題 Zuoiy_10*[討論]問一個有關於LISP選集的問題 Aizyao11*[討論]問一個有關於LISP選集的問題 Iyb_1510*[討論]問一個有關於LISP選集的問題 Aoe1-112*[討論]問一個有關於LISP選集的問題 Uos15011*[討論]問一個有關於LISP選集的問題 Aoe2da10*[討論]問一個有關於LISP選集的問題 Aoe2da11*[討論]問一個有關於LISP選集的問題 Aoe10