块阵列不会写请教

bearbear1 · 发表于 2010-6-24 14:48:00

(defun c:xx( )

(setq pt0 (list 1000 0)) ;块插入点pt0

(command "insert" "2boli" pt0 "" "" 0);
(setq la (entget (entlast)))
(command "array" pt0 r 1 4 1000);
)

;最后两句不会写意思是块阵列一行四列间矩1000

crazylsp · 发表于 2010-6-24 15:06:00

(setq p(entget(entlast)))好像不起作用去掉算了

下一句改成

(command "array" (entlast) "" "R" "1" "4" "1000" )

或(command "array" "w" pause pause "" "R" "1" "4" "1000" )

bearbear1 · 发表于 2010-6-24 15:16:00

非常感谢

bearbear1 · 发表于 2010-6-24 15:25:00

(command "array" (entlast) "" "R" "1" n cd )

我的列是个变量 n ，及间矩也是变量cd

语法过不去，请教

bearbear1 · 发表于 2010-6-24 15:39:00

已解决，

n 用getint,不能用getreal

账号		自动登录	找回密码
密码			注册

[基础] 块阵列 不会写请教