array 執行錯誤 ??

dinny5526

(defun c:test()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(command "line" p1 p2 "")

(setq ent (entlast))

(command "array" ent "" "r" "3" "4" "100" "150")
;array

(setq ss (ssadd))

(ssadd ent ss)

(while (setq ent (entnext))

(ssadd ent ss)

)

(command "block" "xx" p1 ent "")

)

meflying

仔细对比一下，看看差别， 另，注意，一个问题最好接着原来帖子问，不要老是新开帖子 (defun c:test ()
(setq p1 (getpoint "\n p1:"))
(setq p2 (getpoint "\n p2:"))
(command "line" p1 p2 "")
(setq ent (entlast))
(command "array" ent "" "r" "3" "4" "100" "150");array
(setq ss (ssadd))
(ssadd ent ss)
(while (setq ent (entnext ent))
(ssadd ent ss)
)
(command "block" "xx" p1 ss "")
)