到底哪裡不對勁

(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 寫到:(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 寫到:

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 +內建指令創建物件常出現錯誤是忽略鎖點處理

感謝指導

試試你的程式碼裡加入以下這行，就不會受到[物件鎖點]影響

代碼:

(SETVAR "OSNAPCOORD" 1);;;以鍵盤輸入取代物件鎖點設定值