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

tangjunasd58

;;单向阵列
(defun C:AW ( / ss  bp 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

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

pengfei2010

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

tangjunasd58

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

问都不能问了。

qq1254582201

正是我所需要的，收藏了