如何使用（数组）com
بسم الله الرحمن الرحيمالحمد لله رب العالمين ، و الصلاة و السلام على أشرف المرسلين ، أشهد أن لا إله إلا الله ، و أن محمداً رسول الله ، و أن عيسى المسيح عبد الله و رسوله و كلمته ألقاها إلى مريم ،، و بعد :
Hii人员和cad管理员：
我真的很爱你，很高兴加入这个伟大的论坛
(command "circle" p1 "d" d1 "")
(setq soda ( entlast))
(command "hatch" "s" soda "")
(command "array" "l" "" "r" "1" "10" "150" "")
这将沿（+X）方向形成一个圆形阵列
如果我需要（-X）方向的阵列，，，，或者如果我想为阵列指定角度，我该怎么办？？ 只需在数字减号上加上“-150”
祝你好运 (Defun c:demo (/ soda p1 d1 dir ang)
(setq p1 (Getpoint "\nPick point:"))
(setq d1 (getdist "\nEnter Circle Diameter size: "))
(setq soda (ssadd)) ;<-- empty selection set
(command "circle" p1 "d" d1 "")
(ssadd (entlast) soda) ;<--addcircle to selection set
(command "hatch" "s" soda "")
(ssadd (entlast) soda);<--addhatch to selection set
;;; option for direction ;;;
(initget 1 "R L")
(setq dir (getkword "\nChoose Direction : "))
;;; ;;;
(command "array"
soda"""r" "1" "10"
(if (eq dir "L")
(- 150)
150
)
)
(princ)
) 真正地：：：：
这是一个很棒的论坛
谢谢大家，我每天都在学习新的东西。。。
ssadd对我来说是新的，，，但实际上它是一个非常好、非常有用和重要的。。。。非常感谢pBe先生
我需要的是方向角
谢谢你eng.Tharwat
但有些事情我不明白
我试图理解和使用的任何方式
如果要保持命令数组的使用，可以像这样扭曲UCS：
（Defun c：演示（/soda p1 d1 dir ang）（setq p1（Getpoint“\n点击点：）（setq d1（getdist p1”\n输入圆直径：）（setq d（getdist“\n输入圆之间的距离：）（setq it（getint”\n输入ITME数：）（setq soda（ssadd））；
pBe先生
真的，你是个很棒的人
非常感谢非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常
页:
[1]