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

使用arraypolar错哪了郁闷啊

(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)
页: [1]
查看完整版本: 使用arraypolar错哪了郁闷啊