使用arraypolar错哪了郁闷啊

杨如迁 · 发表于 2012-7-17 15:39:12

(defun c:test3()
  (setq baspt (getpoint "请求输入基准点"))
  (setq rad (getdist "\n请求输入基小圆半径"))
  (setq num (getint "\n请求输入相切小圆数量"))
  (setq ang1 (/ (* pi 2) (* num 2)))
  (setq kk (/ rad (sin ang1)))
  (setq ang2 (- (/ pi 2) ang1))
  (setq cenpt (polar baspt ang2 kk))
  (command "circle" baspt rad)
  (command "arraypolar" (entlast) "" cenpt num "" "")
  (prin1)
)
(prompt "\n<<test3>>自动等圆相切绘制")
(prin1)

vormittag · 发表于 2012-7-17 17:55:50

arraypolar ? 哪里的命令？

杨如迁 · 发表于 2012-7-17 20:10:22

CAD2012环形阵列

′Mua.〢、旭 · 发表于 2015-12-18 15:05:53

(defun c:test3()
  (setq baspt (getpoint "请求输入基准点"))
  (setq rad (getdist "\n请求输入基小圆半径"))
  (setq num (getint "\n请求输入相切小圆数量"))
  (setq ang1 (/ (* pi 2) (* num 2)))
  (setq kk (/ rad (sin ang1)))
  (setq ang2 (- (/ pi 2) ang1))
  (setq cenpt (polar baspt ang2 kk))
  (command "circle" baspt rad)
  (command "arraypolar" (entlast) "" cenpt "e" num "" "")
  (prin1)
)
(prompt "\n<<test3>>自动等圆相切绘制")
(prin1)

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

使用arraypolar错哪了郁闷啊

相关帖子