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.
到底哪裡不對勁 Aoe1-113到底哪裡不對勁 Ioaoe110到底哪裡不對勁 2020-310到底哪裡不對勁 Oiu15010到底哪裡不對勁 2020-211到底哪裡不對勁 Ia15010到底哪裡不對勁 Aizyao10到底哪裡不對勁 Uos15010到底哪裡不對勁 BPl3tjj到底哪裡不對勁 Ziao1510
到底哪裡不對勁 Aoe15010到底哪裡不對勁 Oo-2-110到底哪裡不對勁 Zuoiy_10到底哪裡不對勁 Aizyao11到底哪裡不對勁 Iyb_1510到底哪裡不對勁 Aoe1-112到底哪裡不對勁 Uos15011到底哪裡不對勁 Aoe2da10到底哪裡不對勁 Aoe2da11到底哪裡不對勁 Aoe10

到底哪裡不對勁

3 posters

向下

到底哪裡不對勁 Empty 到底哪裡不對勁

發表 由 hoodpinrh0829 2019-09-18, 15:09

(defun c:ii ()
  (setvar "cmdecho" 0)
(setq point_ss (ssget '((0 . "point"))))
  (setq i 0)
  (repeat
    (sslength point_ss)
    (setq en(ssname point_ss i))
    (setq a1(entget en))
    (setq a2(cdr(assoc 10 a1)))   

;;以下開始就一直搞不好,有時可以有時只會畫長度0的線 

    (setq x1(polar a2 pi 2.5))
    (setq x2(polar x1 0 5))
    (setq y1(polar a2 (* pi 1.5) 2.5))
    (setq y2(polar y1 (* pi 0.5) 5))
    (command "line" x1 x2 "")
    (command "chprop" "l" "" "c" "2" "")   
    (command "line" y1 y2 "")
    (command "chprop" "l" "" "c" "2" "la" "0" "")

;;以下都正常
    (command "circle" a2 2.5)
    (command "chprop" "l" "" "c" "2" "la" "0" "")
    (command "point" a2)
    (command "chprop" "l" "" "c" "4" "la" "0" "")
    (setq i (1+ i)) 
  )
  (command "erase" point_ss "")
  (setvar "cmdecho" 1)
(prin1)
  )


請大大指教~~~ 感動

____________________________________________________________________________________
到底哪裡不對勁 Ioaoe110 到底哪裡不對勁 Zuoiy_10 到底哪裡不對勁 2020-211 到底哪裡不對勁 Aizyao11 到底哪裡不對勁 Iyb_1510
到底哪裡不對勁 Aizyao10 到底哪裡不對勁 BPl3tjj.png 到底哪裡不對勁 Ziao1510 到底哪裡不對勁 Oo-2-110 到底哪裡不對勁 Oooa_110
hoodpinrh0829
hoodpinrh0829
一般會員
一般會員

文章總數 : 76
年齡 : 42
來自 : 桃園
職業 : 板金
愛好 : 到處走走
個性 : 內向
使用年資 : 5年以上
使用版本 : 2019
經驗值 : 4317
威望值 : 0
注冊日期 : 2014-02-27
男 處女座 狗

回頂端 向下

到底哪裡不對勁 Empty 回復: 到底哪裡不對勁

發表 由 naruto018 2019-09-18, 16:50

hoodpinrh0829 寫到:(defun c:ii ()
  (setvar "cmdecho" 0)
(setq point_ss (ssget '((0 . "point"))))
  (setq i 0)
  (repeat
    (sslength point_ss)
    (setq en(ssname point_ss i))
    (setq a1(entget en))
    (setq a2(cdr(assoc 10 a1)))   

;;以下開始就一直搞不好,有時可以有時只會畫長度0的線 

    (setq x1(polar a2 pi 2.5))
    (setq x2(polar x1 0 5))
    (setq y1(polar a2 (* pi 1.5) 2.5))
    (setq y2(polar y1 (* pi 0.5) 5))
    (command "line" x1 x2 "")
    (command "chprop" "l" "" "c" "2" "")   
    (command "line" y1 y2 "")
    (command "chprop" "l" "" "c" "2" "la" "0" "")

;;以下都正常
    (command "circle" a2 2.5)
    (command "chprop" "l" "" "c" "2" "la" "0" "")
    (command "point" a2)
    (command "chprop" "l" "" "c" "4" "la" "0" "")
    (setq i (1+ i)) 
  )
  (command "erase" point_ss "")
  (setvar "cmdecho" 1)
(prin1)
  )


請大大指教~~~ 感動

使用command +內建指令創建物件常出現錯誤是忽略鎖點處理
naruto018
naruto018
中級會員
中級會員

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

回頂端 向下

到底哪裡不對勁 Empty 回復: 到底哪裡不對勁

發表 由 hoodpinrh0829 2019-09-19, 12:35

naruto018 寫到:
hoodpinrh0829 寫到:(defun c:ii ()
  (setvar "cmdecho" 0)
(setq point_ss (ssget '((0 . "point"))))
  (setq i 0)
  (repeat
    (sslength point_ss)
    (setq en(ssname point_ss i))
    (setq a1(entget en))
    (setq a2(cdr(assoc 10 a1)))   

;;以下開始就一直搞不好,有時可以有時只會畫長度0的線 

    (setq x1(polar a2 pi 2.5))
    (setq x2(polar x1 0 5))
    (setq y1(polar a2 (* pi 1.5) 2.5))
    (setq y2(polar y1 (* pi 0.5) 5))
    (command "line" x1 x2 "")
    (command "chprop" "l" "" "c" "2" "")   
    (command "line" y1 y2 "")
    (command "chprop" "l" "" "c" "2" "la" "0" "")

;;以下都正常
    (command "circle" a2 2.5)
    (command "chprop" "l" "" "c" "2" "la" "0" "")
    (command "point" a2)
    (command "chprop" "l" "" "c" "4" "la" "0" "")
    (setq i (1+ i)) 
  )
  (command "erase" point_ss "")
  (setvar "cmdecho" 1)
(prin1)
  )


請大大指教~~~ 感動

使用command +內建指令創建物件常出現錯誤是忽略鎖點處理
感謝指導
害羞

____________________________________________________________________________________
到底哪裡不對勁 Ioaoe110 到底哪裡不對勁 Zuoiy_10 到底哪裡不對勁 2020-211 到底哪裡不對勁 Aizyao11 到底哪裡不對勁 Iyb_1510
到底哪裡不對勁 Aizyao10 到底哪裡不對勁 BPl3tjj.png 到底哪裡不對勁 Ziao1510 到底哪裡不對勁 Oo-2-110 到底哪裡不對勁 Oooa_110
hoodpinrh0829
hoodpinrh0829
一般會員
一般會員

文章總數 : 76
年齡 : 42
來自 : 桃園
職業 : 板金
愛好 : 到處走走
個性 : 內向
使用年資 : 5年以上
使用版本 : 2019
經驗值 : 4317
威望值 : 0
注冊日期 : 2014-02-27
男 處女座 狗

回頂端 向下

到底哪裡不對勁 Empty 回復: 到底哪裡不對勁

發表 由 Tiger&蘋果爸 2019-09-19, 14:57

試試你的程式碼裡加入以下這行,就不會受到[物件鎖點]影響
代碼:
(SETVAR "OSNAPCOORD" 1);;;以鍵盤輸入取代物件鎖點設定值

____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
到底哪裡不對勁 Sesa2011 到底哪裡不對勁 Youtub11 到底哪裡不對勁 Oiea2011 到底哪裡不對勁 Oe20011 到底哪裡不對勁 Fbi20011 到底哪裡不對勁 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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
到底哪裡不對勁 Aoe1-113到底哪裡不對勁 Ioaoe110到底哪裡不對勁 2020-310到底哪裡不對勁 Oiu15010到底哪裡不對勁 2020-211到底哪裡不對勁 Ia15010到底哪裡不對勁 Aizyao10到底哪裡不對勁 Uos15010到底哪裡不對勁 BPl3tjj到底哪裡不對勁 Ziao1510
到底哪裡不對勁 Aoe15010到底哪裡不對勁 Oo-2-110到底哪裡不對勁 Zuoiy_10到底哪裡不對勁 Aizyao11到底哪裡不對勁 Iyb_1510到底哪裡不對勁 Aoe1-112到底哪裡不對勁 Uos15011到底哪裡不對勁 Aoe2da10到底哪裡不對勁 Aoe2da11到底哪裡不對勁 Aoe10