[编程申请]：等差、等比阵列！

heibaizi · 发表于 2006-1-8 13:14:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问怎么在cad里面实现同一个方向的等差或者等比阵列呢？
就是多条直线临近两条直线的间距在x方向等差或等比变化的！
高手请帮帮我，十万火急啊！

zxq0220 · 发表于 2006-1-8 16:20:48

编程思路：循环执行拷贝命令

heibaizi · 发表于 2006-1-9 12:52:46

编程不怎么会使用，不好意思哈！！！
你们能不能编一个呢？
多谢le !!!

zxq0220 · 发表于 2006-1-9 23:49:11

[php]
;等差/等比阵列。晓东 zxq0220
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ PP (GETINT "\n阵列方式 (<1=等差>,2=等比) :")
   PP (IF PP PP 1)
   NUM (GETDIST (IF (= PP 1) "\n等差值 :" "\n等比值 :")))
(WHILE (SETQ SS (SSGET))
  (SETQ P1 (GETPOINT "\nFirst Point 第一点 :")
      P2 (GETPOINT P1 "\nSecond Point 第二点:")
      DS (DISTANCE P1 P2)
      AN (ANGLE P1 P2)
      NN (GETINT "\nNumber of Entity 阵列数量 <2> :")
      NN (IF NN NN 2) I 1)
  (REPEAT (1- NN)
(COND
((= I 1) (COMMAND "COPY" SS "" P1 P2))
((= PP 1) (COMMAND "COPY" SS "" P1 (SETQ P2 (POLAR P2 AN (+ (* (1- I) NUM) DS)))))
(T    (COMMAND "COPY" SS "" P1 (SETQ P2 (POLAR P2 AN (* (EXPT NUM (1- I)) DS)))))
)
(SETQ I (1+ I))
  )
)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

heibaizi · 发表于 2006-1-10 00:32:14

感谢万分！！！

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

[编程申请]：等差、等比阵列！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子