如何使用（数组）com

سبع الليل · 发表于 2022-7-6 06:49:06

بسم الله الرحمن الرحيم
الحمد لله رب العالمين ، و الصلاة و السلام على أشرف المرسلين ، أشهد أن لا إله إلا الله ، و أن محمداً رسول الله ، و أن عيسى المسيح عبد الله و رسوله و كلمته ألقاها إلى مريم ،، و بعد :

Hii人员和cad管理员：
我真的很爱你，很高兴加入这个伟大的论坛

copy


(command "circle" p1 "d" d1 "")
(setq soda ( entlast))
(command "hatch" "s" soda "")
(command "array" "l" "" "r" "1" "10" "150" "")

这将沿（+X）方向形成一个圆形阵列
如果我需要（-X）方向的阵列，，，，或者如果我想为阵列指定角度，我该怎么办？？

Tharwat · 发表于 2022-7-6 07:06:00

只需在数字减号上加上“-150”

祝你好运

pBe · 发表于 2022-7-6 07:10:22

copy

(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) ;<--add  circle to selection set
 (command "hatch" "s" soda "")
 (ssadd (entlast) soda);<--add  hatch to selection set
 ;;;         option for direction        ;;;
 (initget 1 "R L")
 (setq dir (getkword "\nChoose Direction [Left/Right]: "))
 ;;;                                ;;;
 (command "array"
          soda  ""  "r" "1" "10"
          (if (eq dir "L")
            (- 150)
            150
          )
          
 )
 (princ)
)

Tharwat · 发表于 2022-7-6 07:22:17

真正地：：：：
这是一个很棒的论坛
谢谢大家，我每天都在学习新的东西。。。

ssadd对我来说是新的，，，但实际上它是一个非常好、非常有用和重要的。。。。非常感谢pBe先生
我需要的是方向角

سبع الليل · 发表于 2022-7-6 07:23:59

谢谢你eng.Tharwat
但有些事情我不明白
我试图理解和使用的任何方式

سبع الليل · 发表于 2022-7-6 07:37:46

如果要保持命令数组的使用，可以像这样扭曲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 · 发表于 2022-7-6 07:40:48

pBe先生
真的，你是个很棒的人
非常感谢非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常

سبع الليل · 发表于 2022-7-6 07:55:27

[编程交流] 如何使用（数组）com

发表回复

精选推荐

浏览过的版块