tangjunasd58 发表于 2017-10-27 22:32:18

单向阵列 怎么样才能角度跟距离一次完成 不像现在的要用两次

;;单向阵列
(defun C:AW ( / ssbp d)
(cwwe-Start)
   (setq a (getvar "osmode"))
(cwwe-princA"单向阵列")
(setvar "pickadd" 1)
(setvar "osmode" 15359)
(setvar "cmdecho" 0)
(command "undo" "be")
(setq ss (ssget))
(setq lienum (cwwe-int "阵列总数" lienum 5))
(setq angx (cwwe-ang"阵列角度" angx (cwwe-D2R 90)))
(setq liedist (cwwe-dist "阵列距离" liedist 3000))
(setq i 1)
(setvar "osmode" 0)
(setq distx 0)
(repeat (- lienum 1)
    (setq distx (+ distx liedist))
    (setq ptx_last (polar '(0 0) angx distx))
    (command "copy" ss "" '(0 0) ptx_last)
    (setq i (1+ i)))
(command "undo" "e")
   (setvar "osmode" a)
(cwwe-END)
(princ)
)



(setq angx (cwwe-ang"阵列角度" angx (cwwe-D2R 90)))
(setq liedist (cwwe-dist "阵列距离" liedist 3000))       怎么样才能角度跟距离一次完成 不像现在的要用两次


xinxirong 发表于 2017-10-30 09:34:48

怎样才能评分-2明经币的？早就看他不顺眼了

pengfei2010 发表于 2017-10-29 10:54:12

回帖是一种美德！感谢楼主的无私分享 谢谢

tangjunasd58 发表于 2017-10-31 01:09:28

xinxirong 发表于 2017-10-30 09:34
怎样才能评分-2明经币的？早就看他不顺眼了

问都不能问了。

qq1254582201 发表于 2017-11-29 21:04:04

正是我所需要的，收藏了
页: [1]
查看完整版本: 单向阵列 怎么样才能角度跟距离一次完成 不像现在的要用两次