AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
到底哪裡不對勁 Oooo-110 到底哪裡不對勁 Oo-2-110 到底哪裡不對勁 Ia15010 到底哪裡不對勁 Ziao1510 到底哪裡不對勁 BPl3tjj 到底哪裡不對勁 Uos15010 到底哪裡不對勁 Uos15011

到底哪裡不對勁

向下

到底哪裡不對勁 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)
  )


請大大指教~~~ 感動
hoodpinrh0829
hoodpinrh0829
一般會員
一般會員

文章總數 : 65
年齡 : 37
來自 : 桃園
職業 : 待業
愛好 : 到處走走
個性 : 內向
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2476
威望值 : 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
中級會員
中級會員

文章總數 : 155
年齡 : 27
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 2123
威望值 : 306
注冊日期 : 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 +內建指令創建物件常出現錯誤是忽略鎖點處理
感謝指導
害羞
hoodpinrh0829
hoodpinrh0829
一般會員
一般會員

文章總數 : 65
年齡 : 37
來自 : 桃園
職業 : 待業
愛好 : 到處走走
個性 : 內向
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 2476
威望值 : 0
注冊日期 : 2014-02-27
男 處女座 狗

回頂端 向下

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

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

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

____________________________________________________________________________________
到底哪裡不對勁 Oo-2-110 到底哪裡不對勁 Ia15010 到底哪裡不對勁 Ziao1510 到底哪裡不對勁 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
到底哪裡不對勁 Uos15011 到底哪裡不對勁 Uos15010 到底哪裡不對勁 BPl3tjj 到底哪裡不對勁 Ziao1510 到底哪裡不對勁 Ia15010 到底哪裡不對勁 Oo-2-110 到底哪裡不對勁 Oooo-110